Results of 1 - 1 of about 58 for CurrentDirectory (0.000 sec.)
- [[20070708193359]]
- #score: 13656
- @digest: 0ed6e79e7db1edae4ad2fb9c665b22fe
- @id: 31982
- @mdate: 2007-07-09T01:20:01Z
- @size: 1530
- @type: text/plain
- #keywords: currentdirectory (12881), chdir (9992), localfolder (7748), 20051221184046 (7748), saveaswindow (7268), 未接 (7055), 20050928163654 (7005), currentfolder (6058), ー未 (5627), ク他 (5223), ホミ (5037), 続時 (4723), network (3237), ミホ (2841), ノム (2836), order (2466), トワ (2267), ク上 (2140), getsaveasfilename (1778), myfile (1634), filefilter (1520), error (1417), thisworkbook (1066), 定フ (945), resume (868), 接続 (728), ネッ (722), ォル (668), path (627), ルダ (572), ¥" (534), err (523)
- 『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 ".." 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... - https://www.excel.studio-kazu.jp/wiki/kazuwiki/200707/20070708193359.txt - [detail] - similar
PREV
NEXT
Powered by Hyper Estraier 1.4.13, with 97047 documents and 608232 words.
訪問者：