VBAでフォルダ指定

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

No.4 ベストアンサー 回答者： KenKen_SP 回答日時： 2008/09/04 08:17

こんにちは。

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 回答日時： 2008/09/04 08:28

フォルダを選択するダイアログ

http://officetanaka.net/excel/vba/tips/tips39.htm

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

No.3 回答者： n-jun 回答日時： 2008/09/04 06:51

表示されたフォルダから別の階層に移動して、そのフォルダのファイルを開くことはできるの？

と言う事であれば出来るでしょう。

No.2 回答者： xls88 回答日時： 2008/09/04 00:16

下記のようにフォルダを指定して開きます。

ChDrive "D"
ChDir "D:\test"
Application.GetOpenFilename

No.1 回答者： xls88 回答日時： 2008/09/03 23:57

質問の意図が明確に把握できないのですが

例えば
Application.GetOpenFilename
で「ファイルを開く」のダイアログボックスが表示されます。