VBAでファイルOPEN ダイアログを使用したいです

質問

現在、指定したファイルを開くVBAを書いているのですが、
↓こんなの
-----------------------------------------------------------
Dim vntFileName As Variant

'ファイルを開くダイアログを開きます

vntFileName = _
Application.GetOpenFilename( _
FileFilter:="エクセルファイル(*.xls),*.xls" & _
",CSVファイル(*.csv),*.csv" _
, FilterIndex:=1 _
, Title:="開けゴマ" _
, MultiSelect:=False _
)

'ファイルが選択されているときは
'選択したファイルをWorkbooks.Openメソッドで開きます
If vntFileName <> False Then
Workbooks.Open Filename:=vntFileName
End If
----------------------------------------------------------------
あらかじめ開くディレクトリを、ネットワーク上のフォルダに指定したいのですが、どこにパスを書いたらいいのか、わかりません。
教えていただけますでしょうか。

回答No.1

Wendy02 · ベストアンサー

こんにちは。

こんな感じになると思います。
(ほかにも方法があるとは思いますが……）

Private Declare Function SetCurrentDirectory Lib "kernel32" Alias _
　　"SetCurrentDirectoryA" (ByVal CurrentDir As String) As Long

Sub Test1()
Dim vntFileName As Variant
Dim myDir As String

'あらかじめはっきりしていればよいですが、場合によって、
'ここに、ネットワーク・ドライブ・チェックのコードが必要になります。

myDir = "\\public\Excel"　'ネットワークドライブ

SetCurrentDirectory myDir　'変更可能

'ファイルを開くダイアログを開きます
vntFileName = _