Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

3754 / 76789

←次へ　｜　前へ→


	【78664】Re:SetCurrentDirectoryでネットワーク上のディレクトリをカレントリにしたい

亀マスター - 16/12/12(月) 19:48 -


	引用なし

	パスワード

カレントディレクトリを移動させたいというのは、ファイル選択のダイアログで最初に表示されるディレクトリを指定したいということですよね。
これまでの経過からして、アクセス権自体が怪しいので上手くいかない可能性が高い気がしますが、FileDialogオブジェクトも試してみてはどうでしょうか。

'Microsoft Office ○○ Object Libraryの参照設定があるなら不要
'○○はOfficeのバージョンによる数字
Const msoFileDialogOpen As Long = 1

With Application.FileDialog(msoFileDialogOpen)
　　With .Filters
　　　　.Clear
　　　　.Add "Excel ファイル", "*.xls; *.xlsx", 1 '拡張子は必要に応じて変えてください
　　End With
　　.InitialFileName = "任意のディレクトリパス" '（例　\\ServerName\Sample\"）
　　If .Show Then
　　　　.Execute
　　End If
End With

5 hits

▼

【78661】SetCurrentDirectoryでネットワーク上のディレクトリをカレントリにしたい アソビン 16/12/9(金) 14:24