Sub Sample()
Dim OpenFileName As Variant
OpenFileName = Application.GetOpenFilename("Microsoft Excelブック,*.xls?")
If OpenFileName False Then
Workbooks.Open OpenFileName
Else
MsgBox "キャンセルされました"
End If
End Sub
ファイル選択ダイアログボックスの表示
![](https://mitonote.com/wp-content/themes/cocoon-master/screenshot.jpg)
コメント