参照ウィンドウを使用してExcelファイルを開くにはどうすればよいですか？

アクティブなワークブックを最小化して別のワークブックを選択・開く代わりに、ワークブックを扱う際に参照ウィンドウからExcelファイルを開くのは簡単で迅速です。このチュートリアルでは、Excelワークブック内で参照ウィンドウを使用してExcelファイルを開く方法について説明します。

VBAコードを使用して参照ウィンドウでExcelファイルを開く

VBAコードを使用して参照ウィンドウでExcelファイルを開く

参照ウィンドウを使用してExcelワークブックを開くには、次のVBAコードが役立ちます。以下の手順で行ってください：

1. ALT + F11キーを押しながら押して、Microsoft Visual Basic for Applicationsウィンドウを開きます。

2. 「挿入」＞「モジュール」をクリックし、次のマクロをモジュールウィンドウに貼り付けます。

VBAコード：参照ウィンドウを使用してExcelワークブックを開く：

Sub OpenNewBox()
Dim xFilePath As String
Dim xObjFD As FileDialog
Set xObjFD = Application.FileDialog(msoFileDialogFilePicker)
  With xObjFD
        .AllowMultiSelect = False
        .Filters.Add "Excel Files", "*.xls; *.xlsx; *.xlsm; *.xlsb", 1
        .Show
        If .SelectedItems.Count > 0 Then
            xFilePath = .SelectedItems.Item(1)
        Else
            Exit Sub
        End If
    End With
    Workbooks.Open xFilePath
End Sub

3. 上記のコードを貼り付けた後、F5キーを押してこのコードを実行すると、参照ウィンドウが表示されます。開きたいExcelワークブックを選択して、「OK」ボタンをクリックしてください。スクリーンショットをご覧ください：

4. そして、指定されたワークブックがすぐに開かれます。