VBAのダイアログ表示について

質問

VBA　ダイアログ表示について
通常マイドキュメントのダイアログじゃなく直接下記の命令文で指定のフォルダをフォルダを開くダイアログを指定したつもりですが、なぜかマイドキュメントのダイアログが表示されます。
初心者でVBAの事良くわかっていません。
だれかアドバイスをお願いできないでしょうか？

Dim　Openfile As String
Chdir "\Main\VBAdata"
Openfile = Application.getOpenFilename("テキスト　ファイル,*.txt")

回答No.2

Wendy02

こんばんは。

正しい、フォルダなら、質問のコードでも、以下のコードでも、開くはずです。
こちらで試してみましたが、大丈夫のようです。

"C:\Main\VBAdata\"　できるだけ、フル・パスにして、正しいフォルダを確認いているなら、フォルダは変更できるはずです。

Dim　fName As String
Chdir "C:\Main\VBAdata\"
fName = Application.getOpenFilename("テキスト　ファイル,*.txt")

'それでダメなら、
'-------------------------------------------------------
モジュールの一番上に置く
Private Declare Function SetCurrentDirectory Lib "kernel32" Alias _
　　"SetCurrentDirectoryA" (ByVal CurrentDir As String) As Long

Sub Test2()
Dim mPATH As String
Dim fName As String
mPath = "C:\Main\VBAdata\"
SetCurrentDirectory mPATH
　fNames = Application.GetOpenFilename("テキスト　ファイル,*.txt")

End Sub

回答No.1

hige_082

参考にしてみてください

http://www.asahi-net.or.jp/~ef2o-inue/vba_o/sub05_110_140.html