こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

締切り済みの質問

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

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

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

投稿日時 - 2008-12-03 15:29:02

QNo.4526615

困ってます

このQ&Aは役に立ちましたか?

1人が「このQ&Aが役に立った」と投票しています

回答(2)

ANo.2

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
をやってみるとうまく行くようだが。

投稿日時 - 2008-12-03 20:39:09

お礼

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

投稿日時 - 2008-12-04 09:20:07

ANo.1

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

参考URL:http://officetanaka.net/excel/vba/tips/tips39.htm

投稿日時 - 2008-12-03 16:10:11

お礼

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

投稿日時 - 2008-12-03 16:42:51

あなたにオススメの質問