VBAのFileDialog(ファイルダイアログ)を使ってファイル選択・初期フォルダ設定・ファイル名取得を簡単に

「VBAでダイアログボックスを表示して、特定のファイルを選択・保存したりしたいな。。。」
このように思ったことはありませんか？

この記事では、エクセルVBAを使って「FileDialog (ファイルダイアログ)」を利用する方法を詳しくご紹介します。

「FileDialog」を使用することで、ユーザーが簡単に「フォルダ」や「ファイル」を選択できるようになり、手作業でのファイル指定が不要になります。
これにより、選択ミスが減り、作業効率が大幅に向上します。

基本的な使い方から応用的なテクニックまで、初心者でもすぐに実践できる内容です。
ぜひ最後までお読みください。

【　この記事の概要　】

この記事を見てできるようになること

この記事を読めば、以下のことができるようになります。

VBAの「FileDialog」ってなに？

VBAの「FileDialog (ファイルダイアログ)」は、次のような画面 (ダイアログボックス)から「ファイルを選択」「ファイルを保存」することができます。

「FileDialog」を活用することで、作業の正確性と効率が向上し、手作業によるミスを最小限に抑えることができます。

それでは、「FileDialog」の構成について説明を行っていきます。

VBAのコード量が多くて大変そうに思えるかもしれませんが、心配いりません。
必要な部分をコピペして使いまわすだけで十分活用できます。

VBAの「FileDialog」の構成を解説

引数の「fileDialogType」について解説

「fileDialogType」には4つの種類があり、それぞれ異なる目的で使用されます。
これらを理解し使い分けることで、状況に応じた適切な動作を簡単に実装できます。
※各タイプの具体的な動作については、次のセクションで詳しく解説します。

FileDialogの「引数」と「メソッド」について解説

VBAのFileDialogには、様々な「プロパティ」と「メソッド」があります。
ここでは、主要なものを紹介します。

プロパティについて

メソッドについて

より詳しい情報は、Microsoft公式 – FileDialog プロパティを参照してみてください。

引数「fileDialogType」の違いによる動作について

FileDialogの引数「fileDialogType」によって、ダイアログボックスの動作がどのように変わるかを説明します。
実際にコードをコピペして、試してみてください！

「msoFileDialogOpen」の場合の動作 ( ファイルを開く )

「ファイルを開く」ためのダイアログボックスについて解説します。

Sub msoFileDialogOpen_test()
    With Application.FileDialog(msoFileDialogOpen)
        .InitialFileName = "C:\サンプル"
        .AllowMultiSelect = False
        .Title = "msoFileDialogOpenの動作テスト"
        
        If .Show = True Then
            .Execute
            MsgBox "選択したファイルを開きました。" & vbLf & .SelectedItems(1)
        End If
    End With
End Sub

「msoFileDialogSaveAs」の場合の動作 ( ファイルを保存 )

「ファイルを保存」するためのダイアログボックスについて解説します。

Sub msoFileDialogSaveAs_test()
    Dim savePath As String
    
    With Application.FileDialog(msoFileDialogSaveAs)
        .InitialFileName = "C:\サンプル"
        .AllowMultiSelect = False
        .Title = "msoFileDialogSaveAsの動作テスト"
        
        If .Show = True Then
            savePath = .SelectedItems(1)
            '// 保存操作を実行
            ActiveWorkbook.SaveAs Filename:=savePath, FileFormat:=xlOpenXMLWorkbookMacroEnabled
        
            MsgBox "ファイルを保存しました。" & vbLf & savePath
        End If
    End With
End Sub

「msoFileDialogFilePicker」の場合の動作 ( ファイル選択 )

「ファイルを選択」するためのダイアログボックスについて解説します。

Sub msoFileDialogFilePicker_test()
    With Application.FileDialog(msoFileDialogFilePicker)
        .InitialFileName = "C:\サンプル"
        .AllowMultiSelect = False
        .Title = "msoFileDialogFilePickerの動作テスト"
        
        If .Show = True Then
            MsgBox "ファイルが選択されました。" & vbLf & .SelectedItems(1)
        End If
    End With
End Sub

「msoFileDialogFolderPicker」の場合の動作 ( フォルダ選択 )

「フォルダを選択」するためのダイアログボックスについて解説します。

Sub msoFileDialogFolderPicker_test()
    With Application.FileDialog(msoFileDialogFolderPicker)
        .InitialFileName = "C:"
        .AllowMultiSelect = False
        .Title = "msoFileDialogFolderPickerの動作テスト"
        
        If .Show = True Then
            MsgBox "フォルダが選択されました。" & vbLf & .SelectedItems(1)
        End If
    End With
End Sub

VBAの「FileDialog」は、どのようなときに使用するか？

「FileDialog (ファイルダイアログ)」は、次のようなシーンで非常に役立ちます。

VBAの「FileDialog」を使用するうえでの、注意ポイント

VBAの「FileDialog」の使用例をご紹介

それでは、FileDialogの使用例を紹介します。

使用例1: 複数のファイル名を取得し、メッセージボックスで表示する

ダイアログボックスで複数のファイルを選択し、そのファイルをメッセージボックスで表示させる方法を紹介します。

主な使用用途 ：
選択した複数の画像ファイルをリサイズしたり、複数のExcelファイルを開いて内容を処理したりする場合に便利です。

Sub 複数のファイルを選択する()
    Dim selectedFiles As String
    Dim i As Long
    With Application.FileDialog(msoFileDialogFilePicker)
        .InitialFileName = "C:\サンプル"
        .AllowMultiSelect = True
        .Title = "使用例1: 複数のファイルをダイアログで選択する"
    
        If .Show = True Then
            selectedFiles = "ファイルが選択されました。" & vbLf
            
            For i = 1 To .SelectedItems.Count
                 selectedFiles = selectedFiles & .SelectedItems(i) & vbLf
            Next i
        
            MsgBox selectedFiles
        End If
    End With
End Sub

処理結果

このコードで使用している機能

• Dim (変数)
• With (オブジェクトを繰り返し使用)
• IF (条件分岐)
• For (繰り返し)
• MsgBox (メッセージボックス)

1行ずつ解説

このコードを使用すると、複数のファイルを一括処理する必要がある場合に非常に便利です。
各ファイルに対する後続の処理をこの基盤の上で追加することで、様々な用途に応用可能です。

使用例2: フィルターを使用し、特定のファイルだけ選択する

エクセルファイルだけを選択できるように「フィルター」を設定して、ファイルを選択する方法を紹介します。

主な使用用途 ：
Excelファイルだけを選択できるようにし、誤ったファイル形式が選ばれることを防ぎます。
これは、データ入力やファイル操作の正確性を高める際に特に有効です。

Sub ファイルフィルターを追加して選択する()
    With Application.FileDialog(msoFileDialogFilePicker)
        .InitialFileName = "C:\サンプル"
        .AllowMultiSelect = False
        .Title = "使用例2: ファイルフィルターを追加して選択する"
        .Filters.Clear
        .Filters.Add "Excel Files", "*.xlsx; *.xlsm", 1
        .Filters.Add "All Files", "*.*", 2
        
        If .Show = True Then
            MsgBox "ファイルが選択されました。" & vbLf & .SelectedItems(1)
        End If
    End With
End Sub

処理結果

このコードで使用している機能

• With (オブジェクトを繰り返し使用)
• IF (条件分岐)
• MsgBox (メッセージボックス)

1行ずつ解説

このコードは、特定の種類のファイルのみを選択させたい場合に非常に有用です。
フィルターを適用することで、ユーザーが誤ったファイルを選択することを防ぎ、操作の正確性を確保します。
また、選択されたファイルのパスを簡単に取得し、後続の処理に活用できるため、VBAを使ったファイル操作を効率化することができます。

使用例3: ファイル選択をキャンセルしてもエラーが発生しない処理

ユーザーが「キャンセル」をクリックした場合でもエラーが発生せず、処理を安全に終了する方法を紹介します。
この方法では、ファイルダイアログを関数内で処理し、キャンセル時には空の文字列を返すことでエラーを防ぎます。

主な使用用途 ：
このコードは、VBAでファイルを選択するダイアログを使用する際、ユーザーがファイルを選択しなかった場合（キャンセルした場合）でもエラーが発生しないようにしたい場合に使用します。ファイルが選択された場合のみ、後続の処理を実行できます。

Sub MainProcess()
    Dim filePath As String
    
    '// ファイルダイアログを使用してファイルを選択
    filePath = SelectFileDialog()
    
    '// キャンセルされた場合、処理を終了
    If filePath = "" Then
        MsgBox "キャンセルされました。処理を終了します。"
        Exit Sub
    End If
    
    '// ファイルが選択された場合の処理
    MsgBox "選択されたファイル: " & filePath
    '// ここにファイルを開く処理などを追加
End Sub
Function SelectFileDialog() As String
    With Application.FileDialog(msoFileDialogFilePicker)
        .Title = "ファイルを選択してください"
        .InitialFileName = "C:\サンプル"
        .AllowMultiSelect = False
        
        '// ユーザーがファイルを選択したかどうかを確認
        If .Show = True Then
            '// 選択されたファイルパスを返す
            SelectFileDialog = .SelectedItems(1)
        Else
            '// キャンセルされた場合は空の文字列を返す
            SelectFileDialog = ""
        End If
    End With
End Function

処理結果

このコードで使用している機能

• Dim (変数宣言)
• With (オブジェクトを繰り返し使用)
• If (条件分岐)
• Function (関数定義)
• MsgBox (メッセージボックス)

1行ずつ解説

このコードは、ユーザーがファイルダイアログで「キャンセル」を選択した場合でも、エラーを出さずにスムーズに処理を終了させる方法を提供します。
特に、ファイルを開く前にユーザーの選択を確認し、キャンセル時に適切なメッセージを表示することで、ユーザーフレンドリーなインターフェースを実現します。

この構成を使用することで、ファイル選択ダイアログをより安全かつ効果的に扱うことができ、エラー処理やユーザー体験の向上が期待できます。

使用例4: フォルダを選択し、保管されているファイルをセルに転記する方法

ダイアログボックスでフォルダを選択し、Dir関数を使用しそのフォルダ内にあるファイルのリストをExcelのセルに転記する方法を紹介します。

主な使用用途 ：
選択したフォルダ内のファイルをリストとして表示したり、特定の処理を実行する際に便利です。例えば、指定フォルダ内のすべてのファイルを一括で処理する場合に有効です。

Sub FolderToCell()
    Dim folderPath As String
    Dim fileName As String
    Dim i As Integer
    
    '// フォルダ選択ダイアログを表示
    With Application.FileDialog(msoFileDialogFolderPicker)
        .InitialFileName = "C:\サンプル"
        .Title = "フォルダを選択してください"
        If .Show = True Then
            folderPath = .SelectedItems(1) & "\"
        Else
            MsgBox "フォルダが選択されませんでした。"
            Exit Sub
        End If
    End With
    
    '// 選択したフォルダ内のファイルを取得してセルに転記
    i = 1
    fileName = Dir(folderPath & "*.*") '// フォルダ内の最初のファイルを取得
    Do While fileName <> ""
        Cells(i, 1).Value = fileName '// A列にファイル名を転記
        i = i + 1
        fileName = Dir '// 次のファイルを取得
    Loop
End Sub

処理結果

このコードで使用している機能

• Dim (変数宣言)
• With (オブジェクトを繰り返し使用)
• If (条件分岐)
• Dir関数 (ファイル名・パス取得)
• Do While (ループ処理)
• MsgBox (メッセージボックス)

1行ずつ解説

このコードは、ユーザーが選択したフォルダ内の全てのファイルをExcelのセルにリスト表示するのに便利です。
特定のフォルダ内のファイルを一括で処理する場合などに応用できます。
これにより、ファイル選択や管理が簡単に行えるようになります。

まとめについて

エクセルVBAでファイル選択ダイアログや保存ダイアログを表示する「FileDialog」は、非常に多くの場面で活用できます。

基本的な「FileDialog」の使い方から、応用までを理解することで、ユーザーが簡単にファイル操作を行うことができるようになります。

ポイントのおさらい

さらに学ぶために

FileDialogの使い方に慣れてきたら、他のVBA機能も活用してみましょう。

ユーザーフォームやイベント処理など、VBAにはさまざまな機能も同等の処理を行うことができます。
これらを学ぶことで、さらに高度な自動化が可能になり、作業の効率化を図ることができます。

まずは、この記事の内容を実践し、FileDialogを使いこなせるようになってください。
次に進むための基礎がしっかりと身につくはずです。

この記事が役に立ったと思った方は、ぜひサイトマップから違う記事もご覧ください。

サイトマップ

VBAワークシート関数 VBA 基本設定 VBAとは？ VBAの始め方 VBAのおすすめ設定 セル操作 RangeとCells CurrentRegion Offset Resize 最終行・最終列の取得 変数 変数 オブジェクト変数 グロ...

zangyo-free.com

2024.08.28