|
こんにちは。お邪魔しますm(_ _)m
私は、同じドライブ内で指定するときは、こんな感じにして、
Sub test1()
Dim vFileName As Variant
ChDir ThisWorkbook.Path
vFileName = Application.GetOpenFilename("xlsファイル(*.xls),*.xls", , , , True)
If VarType(vFileName) = vbBoolean Then Exit Sub
End Sub
ドライブが違うときは、カレントディレクトリーを変えてしまってます。
Sub test2()
Dim wshShell As Object
Dim vFileName As Variant
Set wshShell = CreateObject("WScript.Shell")
wshShell.CurrentDirectory = "D:"
vFileName = Application.GetOpenFilename("xlsファイル(*.xls),*.xls", , , , True)
If VarType(vFileName) = vbBoolean Then Exit Sub
End Sub
何か変だったらお手柔らかに突っ込んでください〜m(_ _)m
|
|