[[20070708193359]]　『CurrentDirectoryの変更』（たか）　ページの最後に飛ぶ

『CurrentDirectoryの変更』（たか）
お世話になっております。

CurrentDirectoryをChDirで変え、指定フォルダ（Order No)をCurrentFolderにしたあとSaveAsWindowをOrder　Noのフォルダでひらきたいので、下記のコードを書きました。

ですが、このWorkbookをLocalFolderで使うとちゃんと作動するのですが、会社のNetwork上のフォルダに入れて使うとOrder　Noフォルダが見つからないエラーがでてしまいます。そこでネットワーク上でCurrentDirectoryを変えたあと、チェックしてみると、どのように変えても、CurrentDirectoryは常に"C\"になっています。どうしたら、ネットワーク上のCurrentDirectoryを変える事ができるのでしょうか。よろしくお願い致します。

Sub test ()

On Error Resume Next

ChDir ThisWorkbook.Path

ChDir "Order No\"

If Err <> 0 Then

On Error GoTo 0
On Error Resume Next
ChDir ThisWorkbook.Path
ChDir ".."
ChDir "Order No\"
End If

If Err <> 0 Then
On Error GoTo 0

On Error Resume Next

ChDir ThisWorkbook.Path
ChDir ".."

ChDir ".."

ChDir "Order No\"

End If

If Err <> 0 Then

On Error GoTo 0

On Error Resume Next

ChDir ThisWorkbook.Path
ChDir ".."

ChDir ".."

ChDir "Order No\"
End If

On Error GoTo 0

myFile = Application.GetSaveAsFilename(filefilter:="Excel Workbooks(*.xls),*.xls")
: On Error GoTo sei
If myFile <> False Then ThisWorkbook.SaveAs Filename:=myFile

sei:
Exit Sub

End Sub

 『ネットワーク他のパソコンのファイルを開く』（ホミホミ）
[[20050928163654]]

 『サーバー未接続時のエラー処理についてHELP』（ノム）
[[20051221184046]] 
 BJ

コメント返信：

[ 一覧(最新更新順) ]

[[20070708193359]] 『CurrentDirectoryの変更』（たか） ページの最後に飛ぶ

[[20070708193359]]　『CurrentDirectoryの変更』（たか）　ページの最後に飛ぶ