VBAで自動化 VBA一覧 ファイル・印刷操作 ファイル操作

【VBA】ダイアログを開いてファイルを開く方法｜ユーザーに選ばせて安全に自動化

Excel VBAで自動化を行う際、ユーザーにファイルを選ばせたい場面はよくあります。例えば「毎日異なるファイル名のデータを取り込む」「特定のフォルダから任意のファイルを読み込みたい」といったケースでは、ファイル選択ダイアログを開いてファイルを指定させる方法が非常に有効です。本記事では、Application.GetOpenFilenameやApplication.FileDialogを活用して、Excel VBAでダイアログを表示しファイルを開く方法を丁寧に解説します。

なぜダイアログを使うのか？

Excel VBAの自動化は、完全自動でファイル名を決め打ちする方法と、ユーザーに選ばせる方法の2つに大別されます。完全自動はミスを減らす利点がありますが、以下のような場面ではダイアログでユーザーに選ばせるのがベストです。

  • ファイル名や保存場所が日々変わる

  • 操作ミスを防ぎつつ柔軟にファイルを読み込みたい

  • 初心者向けのツールとして導入したい

VBAでダイアログを開く方法をマスターすれば、ユーザーとのインタラクションを保ちつつ、安全で効率的なマクロを作成できます。

基本：GetOpenFilenameでファイルパスを取得する

もっとも簡単なダイアログの表示方法はApplication.GetOpenFilename関数を使う方法です。これは「開く」ダイアログを表示し、選択したファイルのパスを文字列として返す関数です。

Sub OpenFileDialogBasic()
    Dim filePath As String

    filePath = Application.GetOpenFilename("Excelファイル (*.xlsx), *.xlsx")

    If filePath <> "False" Then
        Workbooks.Open filePath
    Else
        MsgBox "ファイルの選択がキャンセルされました。"
    End If
End Sub

ポイント解説

  • "Excelファイル (*.xlsx), *.xlsx" はフィルター指定。複数指定も可能です。

  • キャンセルされた場合は "False"（文字列型） が返ります。

  • 選ばれたファイルは Workbooks.Open で開くことができます。

応用：複数のファイルタイプに対応させる

複数の拡張子（例：ExcelとCSV）を選択肢に入れたい場合は、以下のように記述できます。

filePath = Application.GetOpenFilename( _
    "Excelファイル (*.xlsx), *.xlsx, CSVファイル (*.csv), *.csv", , "ファイルを選択してください")

このようにすることで、ユーザーにとって選択しやすいUIになります。

応用：FileDialogオブジェクトで操作の自由度を上げる

GetOpenFilenameは簡単ですが、FileDialogオブジェクトを使うとより柔軟な設定が可能です。たとえば初期フォルダの指定、タイトルのカスタマイズ、ファイル名の確認などが行えます。

Sub OpenFileDialogAdvanced()
    Dim fd As FileDialog
    Dim selectedFile As String

    Set fd = Application.FileDialog(msoFileDialogFilePicker)

    With fd
        .Title = "開くファイルを選択してください"
        .InitialFileName = "C:\Users\"
        .Filters.Clear
        .Filters.Add "すべてのExcelファイル", "*.xls; *.xlsx; *.xlsm"
        .AllowMultiSelect = False

        If .Show = -1 Then
            selectedFile = .SelectedItems(1)
            Workbooks.Open selectedFile
        Else
            MsgBox "操作がキャンセルされました。"
        End If
    End With
End Sub

FileDialogの主なプロパティ

プロパティ説明
.Titleダイアログのタイトルを設定
.InitialFileName初期表示フォルダのパス
.Filters表示対象となるファイル拡張子の指定
.AllowMultiSelect複数ファイル選択を許可（True/False）

ファイルを開いた後の処理も一緒に自動化する

ファイルを選択して開いた後、その中から特定のデータを取り込むような処理も組み込むことで、マクロの実用性はさらに高まります。

Sub OpenAndReadData()
    Dim fd As FileDialog
    Dim selectedFile As String
    Dim wb As Workbook

    Set fd = Application.FileDialog(msoFileDialogFilePicker)

    With fd
        .Title = "読み込むExcelファイルを選択"
        .Filters.Clear
        .Filters.Add "Excelファイル", "*.xlsx; *.xlsm"
        If .Show = -1 Then
            selectedFile = .SelectedItems(1)
            Set wb = Workbooks.Open(selectedFile)

            ' たとえば、A1の値をアクティブシートに出力
            ThisWorkbook.Sheets(1).Range("A1").Value = wb.Sheets(1).Range("A1").Value

            wb.Close SaveChanges:=False
        Else
            MsgBox "ファイル選択がキャンセルされました。"
        End If
    End With
End Sub

よくあるトラブルとその対策

1. キャンセル時の処理を忘れる

キャンセル時に何もしないと、次の行でエラーが出ることがあります。GetOpenFilenameの戻り値が"False"かどうか、.Show = -1かを必ず確認しましょう。

2. マクロが停止してしまう

ファイルが存在しない、破損している場合などはWorkbooks.Openでエラーになることがあります。On Error構文を使って安全に処理するようにしましょう。

On Error Resume Next
Set wb = Workbooks.Open(selectedFile)
If wb Is Nothing Then
    MsgBox "ファイルの読み込みに失敗しました。"
    Exit Sub
End If

まとめ：ユーザーとの連携を強化するための必須テクニック

Excel VBAでのダイアログ表示とファイル選択は、マクロの柔軟性を大きく高める重要なテクニックです。ユーザーに操作の自由度を与えつつ、自動化の効果を発揮できるので、実務での活用シーンも非常に多いです。

今回ご紹介した内容は以下のとおりです：

  • GetOpenFilenameで簡単なファイル選択

  • FileDialogでカスタマイズされたファイル選択

  • 選択ファイルを開いてデータを処理

  • エラー処理やキャンセル時の分岐

この方法を取り入れることで、ユーザー操作と自動処理をバランスよく組み合わせたスマートなマクロが作成できます。これからVBAを活用して業務を効率化したい方は、ぜひ実際にコードを実行して体感してみてください。

    -VBAで自動化, VBA一覧, ファイル・印刷操作, ファイル操作