Excel VBA Application.GetOpenFilename にてネットワークパスが開けない

Question

下記にて「開始シート」の「Ｂ４」セルにネットワ－クパスを指定しているが、マイドキュメントが開く。

「Debug.Print CurDir」で確認したらネットワークパスが正しくセットされている。

その後、ネットワークパスを変更してフォルダを開き、ＥＸＣＥＬファイルは開けるがテキストファイルが開けない。

'ディレクトリの指定

tPath = ThisWorkbook.Worksheets("開始").Range("B4") 

If Left(tPath, 2) = "\\" Then 

   With CreateObject("WScript.Shell") 

       .CurrentDirectory = tPath & "\" 

   End With 

Else 

   ChDir tPath & "\" 

End If 

'chDir 

Debug.Print CurDir 

'Excelファイルの指定 

fname = Application.GetOpenFilename

Answer 1

清洲太郎さん

ご回答ありがとうございました。

ドライブに割り付けていないネットワークパスなので、下記の通りネットワークパスの時は、

CurrentDirectoryに割り付けています。

「If Left(tPath, 2) = "\" Then
　　With CreateObject("WScript.Shell")

       .CurrentDirectory = tPath & "\"」

Answer 2

ChDir ステートメント (VBA) | Microsoft Learn

注釈：ChDir ステートメントでは、既定ディレクトリまたはフォルダーを変更できますが、既定のドライブは変更できません。 既定のドライブは、別のステートメントである ChDrive で変更できます。

とのこと。

Cドライブ以外のフォルダを開こうとしていない？

Answer 3

shasanoさん

ご回答ありがとうございました。

説明が不十分ですいません。

ネットワークパスも開けるパスと開けないパスがあります。

アドレス解決の問題なのかなとは思っていますが、

開けないパスもエクスプローラーでは直接開けます。

「ChDir tPath & ""」のみも試してみましたが、ＮＧでした。

テキストファイルを開こうとすると「Error Number 53　ファイルが見つかりません」のエラーとなります。

Answer 4

原因はわかりません。当方 Excel 2016 ですが普通に動きます。

　が、最初の 2 文字の判定とかせずに（ネットワークパスだろうが） ChDir tPath & ""（'&' 以降も要らないような）だけでダメですか？

　あるいは ChDir とかを使わずに直接初期フォルダを指定できる FileDialog を使う手もありますが。

> テキストファイルが開けない

　これは別な問題のような気もしますが、「Excel で（エラーが出るとかして）読み込めない」のか「ダイアログで（表示されないから）指定できない」のかあるいはそれ以外なのか、詳細不明ですね。

Answer 5

VBA(マクロ)に関しては、海外コミュニティで聞いて下さい。

・Stack Overflow (タグ名：VBA)

　　[VBA プログラミングに関する質問]

　　Stack Overflow には、説明的なタイトル、完全で簡潔な問題ステートメント、問題を再現する
　　ための十分な詳細の要求などのガイドラインがあることに注意してください。
　　機能要求または過度に広範な質問は、トピック外と見なされます。
　　新しいユーザーの場合は、Stack Overflow ヘルプ センター にアクセスして詳細を確認して下さい。