|
下記のようなプログラムで他のEXCELファイルを開くようにしています。
ファイル選択のダイアログで、一番初めに表示されるフォルダがマイドキュメントになっているのですが、選択したいファイルはサーバー上のフォルダにあるため、毎回フォルダへ移動しないといけません。そこで、ファイル選択のダイアログで、一番初めに表示されるフォルダを変更したいのですが、方法が分かりませんので教えて下さい。
Dim vFileName As String
vFileName = Application.GetOpenFilename(fileFilter:="Microsoft Excel ファイル (*.xls),*.xls", filterIndex:=1, MultiSelect:=False)
If vFileName = "False" Then
MsgBox "キャンセルが選択されました" & Chr(13) & "処理を中止します"
Exit Sub
End If
MsgBox vFileName & " が選択されました。"
Workbooks.Open Filename:=vFileName, ReadOnly:=True
よろしくお願いします。
|
|