〖VBA〗マクロを使用しファイルを取り込み、そのデータをシートへ反映したい

Question

前提・実現したいこと

任意のファイルを選択し、そのファイルのデータをマクロ専用ファイルのシートへ取り込みたいです。
その際、任意のファイルの【一番左のシート】またはそのファイルの【シート名を指定】してデータを反映させたいです。

発生している問題・エラーメッセージ

現状、シート名を固定して反映はできます。（例：20201101や20201111など）
ですが、毎回異なるシート名になるため上記に記載している取り込むファイルの【シート名を指定】してデータを反映したいです。
※【一番左のシート】でも問題ありません。

該当のソースコード

Private Sub CommandButton1_Click()
    
    Dim filePath As Variant
    filePath = Application.GetOpenFilename("CSVファイル,*.csv,全てのファイル,*.*")
    
    Dim wb As Workbook: Set wb = ThisWorkbook
    Dim wb1 As Workbook

    
    Set wb1 = Workbooks.Open(filePath)
        wb1.Activate
        wb1.Worksheets(Array("現状はここでシート名を固定してデータ取得しています。")).Move Before:=wb.Worksheets(1)
        wb.Activate
        wb.Worksheets(1).Select

    On Error GoTo 0
        If filePath = False Then
    Exit Sub
        Else
           TextBox3.Value = filePath
        End If
    
End Sub

補足情報（FW/ツールのバージョンなど）

Office 2019

Answer 1

※【一番左のシート】でも問題ありません。

ということなら、下記でいいのでは。

        wb1.Worksheets(1).Move Before:=wb.Worksheets(1)

Comments

[退会済みユーザー]

ご回答ありがとうございます。

問題なく動作が確認できました。