VBA：Excelから2つシートを同時に取り込み、指定した位置へ移動させたい

Question

前提・実現したいこと

ユーザーフォームを使用しておりComboBox1で 1 が選択されている時、CommandButton1を押下し下記の処理を実現したいです。

ダイアログボックスでExcelを選択し
左から8番目のシートをマクロ実行ファイルへ取り込み、rawdataシートとして左から2番目に移動
左から2番目のシートをマクロ実行ファイルへ取り込み、集計シートとして左から3番目に移動
を処理をしたいです。

現状は
左から8番目のシートを取り込み、rawdataシートとして左から2番目に移動
のみ対応できてます。

シートを同時に2つ移動できず困っていますので、ご教示いただけますと幸いです。

該当のソースコード

Private Sub CommandButton1_Click()
    
    Dim filePath As Variant
    filePath = Application.GetOpenFilename
    
    Dim wb As Workbook: Set wb = ThisWorkbook
    Dim wb1 As Workbook
    
If ComboBox1 = "1" Then
        
    On Error Resume Next
    Set wb1 = Workbooks.Open(filePath)
    Application.Visible = False
        wb1.Activate
        wb1.Worksheets(8).Move Before:=wb.Worksheets(2)
        wb.Activate
        wb.Worksheets(2).Select
        Worksheets(2).Name = "rawdata"
        '指定した列以外の削除
        Range("A:A,C:D,K:L,O:R").Delete
    
    Dim colcnt  As Integer
 
        '全列文字列で保存されている数値を数列に変換
        colcnt = 1
        While Cells(1, colcnt) <> ""
            Columns(colcnt).TextToColumns Comma:=True
            colcnt = colcnt + 1
     Wend
    
    On Error GoTo 0
        If filePath = False Then
    Exit Sub
        Else
           TextBox3.Value = filePath
        End If
    Exit Sub
    
ElseIf ComboBox1 = "2" Then

    On Error Resume Next
    Set wb1 = Workbooks.Open(filePath)
    Application.Visible = False
        wb1.Activate
        wb1.Worksheets(1).Move Before:=wb.Worksheets(1)
        wb.Activate
        wb.Worksheets(1).Select
        Worksheets(1).Name = "sheet1"
    On Error GoTo 0
        If filePath = False Then
    Exit Sub
        Else
           TextBox3.Value = filePath
        End If
    Exit Sub
            
        End If
        
End Sub

Comments

[hex309]

同時に2つ移動する必要ありますか？1つはできているのであれば、同様の処理をもう1回行えばよいのでは？

[退会済みユーザー]

移動させたいシートの内容が違うため、同時に2つ移動する必要はあります。
同じ内容のシートでしたらおっしゃる通りかと思います。

[hatena19]

> 左から2番目のシートをマクロ実行ファイルへ取り込み、集計シートとして左から3番目に移動

上記のコードの記述がどこにもないので、当然です。
左から8番目のシートを取り込み、rawdataシートとして左から2番目に移動ができているなら、
上記の処理も書けますよね。

[hex309]

すみません。言葉不足で。
次のような流れではだめなのかな、と思った次第です。
If ComboBox1 = "1" Then
'8番目のシートの移動
'8番目のシートに対する処理
'2番目のシートの移動
'2番目のシートに対する処理

これであれば、
wb1.Worksheets(8).Move Before:=wb.Worksheets(2)
の部分を
wb1.Worksheets(2).Move Before:=wb.Worksheets(3)
として、2番目のシートを移動すればよいのでは？
それとも、1回のMoveメソッドで2つのシートを移動しなくてはならないのでしょうか？

[退会済みユーザー]

hex309さん
詳細にありがとうございます。
意図が理解でき、自身で対応できました。

hatena19さん
自身で何度が試し対応できなかったため記述せず質問させていただきました。
わざわざお時間を割いてまでご指摘いただきありがとうございます。

[hatena19]

自己解決できたのですね。
まとめて移動させる方法を回答しておきました。
２つのシート間で参照していたりすると一つずつではまずい場合がありますので、その場合は参考にしてください。

Answer 1

通常は一枚ずつ移動させても問題ないと思いますが、
シート間で参照している場合、うまくいかない場合があるそうです。

1枚ずつコピーした場合との違い

ということで、まとめて移動するならArrayを使って下記のような感じで。

    Dim wb As Workbook
    Set wb = ThisWorkbook
    
    Dim wb1 As Workbook
    Set wb1 =  Workbooks.Open(filePath)

    wb1.Activate
    Worksheets(Array(wb1.Worksheets(2).Name, wb1.Worksheets(8).Name)).Move _
        Before:=wb.Sheets(2)

Comments

[退会済みユーザー]

ご回答までいただきありがとうございます！
大変助かります。