VBA マクロでボタンを押下後、フォルダを選択してそのパスを取得する方法

以下のマクロは「fpath」でフォルダのパスを指定して、そのフォルダ内のエクセルファイルを検索しているのですが、これをこのマクロが設定されているボタンを押下するとエクスプローラで検索するフォルダを選択できるようにしたいのですが、うまくできずに困っています。

自分でも色々調べ、以下の「試したコード」のように書いて見たりもしたのですが、これだと
「オブジェクト変数またはWithブロック変数が設定されていません」というエラーが出てしまいました。（現在のコードではコメントアウトしています。）

動作環境はMACのエクセルになります。

試したコード

VBA
1fpath = Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1)

行動規範の内容に同意します

回答1件

ベストアンサー

キャンセルされた場合にはfpathを""に設定しています。

VBA
1Dim fpath As String
2    
3With Application.FileDialog(msoFileDialogFolderPicker)
4    .Show
5    
6    If .SelectedItems.Count = 0 Then
7        fpath = ""
8    Else
9        fpath = .SelectedItems(1)
10    End If
11    
12End With

投稿2020/10/05 11:39

meg_

総合スコア10760

icecleam

2020/10/05 11:42

ご回答ありがとうございます。上記のコードをコピーして、 '試したコードここではコメントアウトしていますのところに貼り付けたのですが、やはり同じエラーが出てしまいました。。

meg_

2020/10/05 11:55

私の回答のコード単独では動作しますか？

icecleam

2020/10/05 11:58

以下のコードで実行して見たのですが、同じエラーが出ました。。 Public Sub Sample() Dim fpath As String With Application.FileDialog(msoFileDialogFolderPicker) .Show If .SelectedItems.Count = 0 Then fpath = "" Else fpath = .SelectedItems(1) End If End With End Sub

meg_

2020/10/05 12:03

Microsoft Office 15.0 Object Library 上記の参照設定を追加してください。　※数字の部分は環境によって異なります

icecleam

2020/10/05 12:21

Microsoft Office 15.0 Object Library は探したのですが見当たらなかったです。。 MACのエクセルだからですかね。。

meg_

2020/10/05 12:36

MACなんですか！！　質問にもOSの情報を追記すると適切な回答が付くかもしれません。

icecleam

2020/10/05 12:42

承知しました。その旨の情報も追記しておきます！