過去ログ

                                Page     192
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
   通常モードに戻る  ┃  INDEX  ┃  ≪前へ  │  次へ≫   
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
 ▼ファイルの上書き保存  beben 02/10/10(木) 15:41
   ┗Re:ファイルの上書き保存  Jaka 02/10/10(木) 16:57
      ┗Re:ファイルの上書き保存  beben 02/10/11(金) 14:39

 ───────────────────────────────────────
 ■題名 : ファイルの上書き保存
 ■名前 : beben
 ■日付 : 02/10/10(木) 15:41
 -------------------------------------------------------------------------
   毎回自分のPCにあるファイルを加工して上書き保存及びネートワーク経由(他の事業所、別グループ)で他の決まったPCへ保存をしたいのですが、「上書き保存しますか」とのメッセージが出てしまいます。これを出ないようにするにはどうすればいいですか?

ActiveWorkbook.SaveAs Filename:="\\192.XXX.XXX.XXX\Personal\book.xls"
ActiveWorkbook.SaveAs Filename:="C:\My Documents\book.xls"

自分のPCへの保存は、save にすればいいのですが、他のPCへの保存がわかりません
他のPCへは、上書き保存でなく、コピーでもいいのですが、やはり上書きするかどうかのメッセージが出てしまいます。

よろしくお願いします。
 ───────────────────────────────────────  ■題名 : Re:ファイルの上書き保存  ■名前 : Jaka  ■日付 : 02/10/10(木) 16:57  -------------------------------------------------------------------------
   こんにちは。

Application.DisplayAlerts = False
ActiveWorkbook.SaveAs FileName:="C:\My Documents\book.xls"
Application.DisplayAlerts = True
 ───────────────────────────────────────  ■題名 : Re:ファイルの上書き保存  ■名前 : beben  ■日付 : 02/10/11(金) 14:39  -------------------------------------------------------------------------
   Jaka さん こんにちは。

さっそくのレスありがとうございました。

バッチリです。

どうもありがとうございました。
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━    通常モードに戻る  ┃  INDEX  ┃  ≪前へ  │  次へ≫    ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━                                 Page 192