VBAでのフォルダ指定方法について

質問

ＥＸＣＥＬファイルが保存されているディレクトリ配下のフォルダーを指定できるようにしたくていろいろ試してみたのですが、うまくいきません。
どなたか、お知恵をお貸しください。
以下ソースです。

Private Sub CommandButton1_Click()
Dim ShellApp As Object
Dim oFolder As Object
Dim MyPath As String
MyPath = ActiveWorkbook.Path

Set ShellApp = CreateObject("Shell.Application")
Set oFolder = ShellApp.BrowseForFolder(0, "処理ファイルの格納フォルダ選択", 1, MyPath)

If Not oFolder Is Nothing Then
TextBox1.Value = oFolder.Items.Item.Path
End If

Set ShellApp = Nothing
Set oFolder = Nothing
End Sub

回答No.2

imogasi

http://homepage1.nifty.com/rucio/main/Samples/vbsample038.htm
Sub test06()
'//フォルダ参照ダイアログでフォルダを選択する
'Microsoft Shell Controls And Automation　参照設定
Dim oShell As Object
Dim oFolder As Object

Set oShell = CreateObject("Shell.Application")

Set oFolder = oShell.BrowseForFolder(0, "選択してください。", 1)

If Not (oFolder Is Nothing) Then
MsgBox oFolder.Items.Item.Path & "\" & oFolder.Title
Else
MsgBox "キャンセルされました。"
End If
End Sub
をやってみるとうまく行くようだが。

お礼

ご回答ありがとうございます。
試してみます。

回答No.1

fujillin

このあたりを参考に…
　http://officetanaka.net/excel/vba/tips/tips39.htm

参考URL：

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

お礼

早速のご解答ありがとうございます。
いろいろ試行錯誤しながら試してみます。