VBAでフォルダ指定

質問

ExcelVBAでは、workbooks.open とすればファイルを開く事ができるのですが
フォルダも開く事ができるのでしょうか？

回答No.4

KenKen_SP · ベストアンサー

こんにちは。

Explorer でフォルダを開くということならこんな感じ。フォルダパス
には半角スペースが含まれる可能性があるので、ダブルクウォート
Chr(34) で挟みます。

' // 1. Shell を利用する方法
Sub Sample1()
　　Dim sDir As String
　　sDir = "C:\Windows"
　　Shell "explorer.exe " & Chr(34) & sDir & Chr(34), vbNormalFocus
End Sub

' // WSH の Run メソッドを利用する方法
Sub Sample2()
　　Dim sDir As String
　　sDir = "C:\Windows"
　　CreateObject("WScript.Shell").Run Chr(34) & sDir & Chr(34), vbNormalFocus
End Sub

回答No.5

n-jun

フォルダを選択するダイアログ
http://officetanaka.net/excel/vba/tips/tips39.htm

こちらのことでしょうか。

回答No.3

n-jun

表示されたフォルダから別の階層に移動して、そのフォルダのファイルを開くことはできるの？
と言う事であれば出来るでしょう。

回答No.2

xls88

下記のようにフォルダを指定して開きます。
ChDrive "D"
ChDir "D:\test"
Application.GetOpenFilename

回答No.1

xls88

質問の意図が明確に把握できないのですが
例えば
Application.GetOpenFilename
で「ファイルを開く」のダイアログボックスが表示されます。