VBAでシートを他ブックの末尾にコピーしたいのですが、エラーが出てしまいます。

Question

Excelで、現在開いているブック（ブックAとします）のあるシート（シートaとします）を他ブックBの末尾にコピーする処理をVBAで記述しています。

しかしながら、「インデックスが有効範囲にありません。」とエラーが発生してしまいます。

【コード①】

Dim wb As Workbook
Set wb = Workbooks.Open(ThisWorkbook.Path & "\B.xlsx")

With wb
    'シートaをブックBの末尾にコピー【※】
    Sheets(a).Copy After:=.Sheets(.Sheets.Count)
    
    '上書き保存し、終了
    .Close SaveChanges:=True
End With

コード①の場合、【※】のところでエラーが発生します。

シートの値の指定を間違えたのかな？とも思ったのですが、シートの数を数えてみても正しいので、原因がわかりません。

https://www.sejuku.net/blog/70165
https://www.relief.jp/docs/excel-vba-sheet-copy-to-another-book.html

これらのサイトのを参考に、コード②や③に変更して試してみましたが、やはりいずれも【※】のところで同じエラーが発生してしまいます。

【コード②】

Dim wb As Workbook
Set wb = Workbooks(ThisWorkbook.Path & "\B.xlsx")  '【※】

With wb
    'シートaをブックBの末尾にコピー【※】
    Sheets(a).Copy After:=.Sheets(.Sheets.Count)
    
    '上書き保存し、終了
    .Close SaveChanges:=True
End With

【コード③】

Dim wb As Workbook
Workbooks.Open(ThisWorkbook.Path & "\B.xlsx")
Set wb = ActiveWorkbook

With wb
    'シートaをブックBの末尾にコピー【※】
    Sheets(a).Copy After:=.Sheets(.Sheets.Count)
    
    '上書き保存し、終了
    .Close SaveChanges:=True
End With

何かを見落としているのかもしれないのですが、やはり原因がわからないため、こちらに投稿させていただきました。

詳しい方、ご教示をお願い致します。

Answer 1

下記でいかがでしょうか。

ThisWorkbook.Sheets("a").Copy After:=.Sheets(.Sheets.Count)

ファイルを開いた後なのでブックBがアクティブになっており、
ブックBにシートaがないのでエラーになっています。

Comments

[umai29]

ThisWorkbookをつけたらできました！
他ブックをOpenするとアクティブのブックが変わることが原因だったのですね。勉強になりました。

ありがとうございますm(_ _)m