|
ネットワーク越しの場合、保存先フォルダーのパスは
\\****\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
などとすれば良いと思います。
|
|