VBAのExcelのFileDialogは、選択されたアイテムをオブジェクトとして返します

FileDialogのSelectedItemをオブジェクトとして利用するには、まずオブジェクト変数を宣言し、FileDialogのSelectedItemsプロパティをその変数に代入する必要があります。以下にサンプルコードを示します。

Sub SelectFile()
Dim fd As FileDialog
Dim selectedItem As Variant
'创建一个FileDialog对象
Set fd = Application.FileDialog(msoFileDialogFilePicker)
'显示FileDialog并获取用户选中的文件路径
With fd
If .Show = -1 Then
'将选中的文件路径赋予selectedItem变量
selectedItem = .SelectedItems(1)
'可以在这里继续对选中的文件进行其他操作
MsgBox "选中的文件路径：" & selectedItem
End If
End With
'释放对象
Set fd = Nothing
End Sub

上の例では、まずFileDialogオブジェクトを作成してfd変数に代入しています。次にShowメソッドを使用してFileDialogを表示し、ユーザーがファイルを選択すると選択したファイルのパスがselectedItem変数に代入されます。選択したファイルに対しては、必要に応じて他の操作を行うことができます。最後に、Set文を使用してfdオブジェクトをNothingに設定し、メモリを解放します。