Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


50645 / 76738 ←次へ | 前へ→

【30978】Re:ネットワークを越えての保存方法
回答  Kein  - 05/11/8(火) 16:24 -

引用なし
パスワード
   ネットワーク越しの場合、保存先フォルダーのパスは

\\****\C\****

のようになるのは、お分かりですね ?
そしてブックの保存先を変更する場合は、Workbookオブジェクトの
SaveAsというメソッドを使います。その引数にパスを渡せば良いのですが、
ネットワーク越しなら確実に保存できるように、そのフォルダーをカレントに
した方が良いと思われます。従って

Sub Test_Save()
  Dim WshShell As Object
  Const Fol As String = _
  "\\****\C\****"
  '↑ここは実際の、本店の建物にあるPCの保存先フォルダーのパスに変更する

  Set WshShell = CreateObject("WScript.Shell")
  WshShell.CurrentDirectory = Fol
  ActiveWorkbook.SaveAs Fol
  MsgBox Fol & vbLf & "へ保存しました", 64
  WshShell.CurrentDirectory = Application.DefaultFilePath
  Set WshShell = Nothing
End Sub

などとすれば良いと思います。
0 hits

【30971】ネットワークを越えての保存方法 勝子 05/11/8(火) 15:38 質問
【30978】Re:ネットワークを越えての保存方法 Kein 05/11/8(火) 16:24 回答
【30982】Re:ネットワークを越えての保存方法 こたつねこ 05/11/8(火) 16:48 発言
【30985】Re:ネットワークを越えての保存方法 勝子 05/11/8(火) 17:22 お礼
【30993】Re:ネットワークを越えての保存方法 こたつねこ 05/11/8(火) 20:44 発言
【30983】Re:ネットワークを越えての保存方法 Kein 05/11/8(火) 17:12 発言
【30984】Re:ネットワークを越えての保存方法 勝子 05/11/8(火) 17:20 お礼

50645 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free