Excel VBA Excelファイルを開く方法｜初心者向け

Excel VBA（Visual Basic for Applications）を活用することで、ファイルを簡単かつ効率的に開くことができます。この記事では、Excel VBAを使用してファイルを開く方法について詳しく説明します。VBAは、Excelの自動化やタスクの自動化に非常に強力なツールです。ファイルを手動で開く手間を省き、作業の生産性を向上させましょう。

Workbooks.Openでファイルを開く方法
ダイアログ表示でファイルを選択し、開く方法
まとめ

Workbooks.Openでファイルを開く方法

１．VBAエディタの開始

Excelファイルを開き、VBAエディタを起動します。これは通常、「Alt」 + 「F11」を押すか、開発タブの「Visual Basic」から起動できます。

２．新しいマクロの作成

マクロを新規に作成します。これを行うには、エディタ内で「挿入」→「標準モジュール」をクリックします。

３．ファイルを開くコードの記述

VBAコードで、ファイルを開くコードを記述します。

■ファイルを開くコードの例

Sub ファイルを開く()
    Dim filePath As String

    ' 開きたいファイルのパスを指定
    filePath = "C:\temp\sample.xlsx"

    Workbooks.Open filePath
End Sub

1行目は、Sub ファイルを開く()というサブルーチンが定義されています。

このサブルーチン名は、後でVBAマクロを実行するときに呼び出すために使用されます。

filePath = “C:\temp\sample.xlsx”　で開きたいファイルのフルパスを指定します。

Workbooks.Open filePathで指定したパスのファイルを開きます。

ダイアログ表示でファイルを選択し、開く方法

次に、開きたいファイルのパスを固定値ではなく、ファイルを開くダイアログを表示させ、選択して開く例を説明します。

１．ダイアログボックスを表示するための変数を宣言

VBAコード内で、ファイルを選択するダイアログボックスを表示するための変数を宣言します。通常、FileDialogオブジェクトを使用します。

■例

Dim ダイアログ As FileDialog

２．ダイアログボックスを作成

次に、ダイアログボックスを作成します。

■例

Set ダイアログ = Application.FileDialog(msoFileDialogFilePicker)

このコードは、ファイルを選択するダイアログボックスを作成し、ダイアログ変数に割り当てます。msoFileDialogFilePickerは、ファイルを選択するダイアログボックスの種類を指定する定数です。

３．ダイアログボックスを表示

ダイアログボックスを表示します。

■例

If ダイアログ.Show = -1 Then
    ' ファイルが選択された場合の処理を記述
Else
    ' ファイルが選択されなかった場合の処理を記述
End If

ダイアログ.Showは、ユーザーがダイアログボックスでファイルを選択した場合に-1を返します。したがって、選択された場合と選択されなかった場合の処理を適切に記述します。

４．選択されたファイルのパスを取得

ファイルを選択するダイアログボックスを表示できるようになったら、次は選択されたファイルを開く方法について説明します。

選択されたファイルのパスを取得します。

■例

Dim ファイルパス As String
ファイルパス = ダイアログ.SelectedItems(1)

選択されたファイルのパスは、ダイアログ.SelectedItems(1)を使用して取得します。このコードは、選択されたファイルの中で最初に選択されたもののパスを取得します。

５．ファイルを開く

ファイルのパスを取得したら、Workbooks.Openメソッドを使用して、選択されたファイルを開きます。

■例

Workbooks.Open ファイルパス

すべてのステップを組み合わせて完成したVBAコードの例です。

■例

Sub ファイルを選択して開く()
    Dim ダイアログ As FileDialog
    Dim ファイルパス As String

    ' ダイアログボックスを作成
    Set ダイアログ = Application.FileDialog(msoFileDialogFilePicker)

    ' ダイアログボックスを表示
    If ダイアログ.Show = -1 Then
        ' ファイルが選択された場合
        ファイルパス = ダイアログ.SelectedItems(1)
        Workbooks.Open ファイルパス
    Else
        ' ファイルが選択されなかった場合またはキャンセルされた場合の処理
        MsgBox "ファイルが選択されませんでした。"
    End If
End Sub

このコードをExcelのVBAエディタに貼り付けて実行することで、ファイルを選択して開くダイアログが表示され、選択されたファイルが開かれます。