VBAでファイルを選択して処理したい場合によく使います。 基本コード Sub SelectFile() Dim fd As FileDialog Dim filePath As String Set fd = Application.FileDialog(msoFileDialogFilePicker) If fd.Show = -1 Then filePath = fd.SelectedItems(1) MsgBox filePath End IfEnd Sub コード解説 ファイル選択ダイアログを表示します。 Set fd = Application.FileDialog(msoFileD…