⚡
OpenExternalFile
自動化ファイル選択ダイアログを開き、選択したExcelファイルを開きます
🎬 デモGIF準備中
📖 使い方
- VBAエディタを開く（Alt + F11）
- モジュールを挿入（挿入 > モジュール）
- 下記VBAコードをコピー&ペースト
- ブック上で実行（Alt + F8 でマクロ選択）
💡 実行例： OpenExternalFile を実行し、開くファイルを選択します
💻 VBAコード
' OpenExternalFile
' -----------------
' Macro Name: OpenExternalFile
' Description: ファイル選択ダイアログを開き、選択したExcelファイルを開きます
' Parameters: なし
' Returns: なし
' Usage: OpenExternalFile を実行し、開くファイルを選択します
' -----------------
Sub OpenExternalFile()
On Error GoTo ErrorHandler
Dim filePath As Variant
filePath = Application.GetOpenFilename( _
"Excelファイル (*.xlsx;*.xlsm;*.xls), *.xlsx;*.xlsm;*.xls", , _
"開くファイルを選択")
If filePath = False Then Exit Sub
Workbooks.Open filePath
MsgBox "ファイルを開きました:" & vbCrLf & filePath, vbInformation, "完了"
Exit Sub
ErrorHandler:
MsgBox "エラーが発生しました:" & vbCrLf & Err.Description, vbCritical, "エラー"
End Sub