Excel VBA質問箱 IV

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

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


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

3686 / 76735

←次へ　｜　前へ→


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

アソビン - 16/12/16(金) 12:19 -


	引用なし

	パスワード

▼亀マスターさん：

お返事が遅くなりまして申し訳ありません（レスが付いてもメールでの通知が来なかったもので…）。
ありがとうございます！FileDialogオブジェクトの方法を試してみた所、目的のディレクトリが表示されました！
と言ってもこれをカレントにするにはどうしたらいいのかまだイマイチわかっていないのですが、大きな前進だと思います。
これをヒントに自分で頑張ってみたいと思います。
大変お世話になりました！どうもありがとうございました！

>カレントディレクトリを移動させたいというのは、ファイル選択のダイアログで最初に表示されるディレクトリを指定したいということですよね。
>これまでの経過からして、アクセス権自体が怪しいので上手くいかない可能性が高い気がしますが、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

1 hits

▼

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