[[20210127155843]]　『別ブックのシートを新規ブックの最後尾にコピーす』（・J・）　ページの最後に飛ぶ

『別ブックのシートを新規ブックの最後尾にコピーするマクロ』（・J・）

こんにちは。
下記のようなVBAを作成しました。

?@アクティブシートを新規ブックにコピー
?A他のブックXを開く
?B開いたブックXのシートYを「?@」で作ったシートの最後尾にコピー

ActiveSheet.Copy
Dim wb As Workbook
Set wb = ActiveWorkbook

  Workbooks.Open Filename:=X, UpdateLinks:=0
  Workbooks(X).Sheets("Y").Copy　After:=Workbooks(wb).Worksheets(Workbooks(wb).Worksheets.Count)

最後の行にて、型が一致しませんのエラーが出てきます。
何がエラーの原因でしょうか。

＜使用 Excel：unknown、使用 OS：unknown ＞

　wbは既にオブジェクトです。

 Workbooks(X).Sheets("Y").Copy　After:=Workbooks(wb).Worksheets(Workbooks(wb).Worksheets.Count)
 ↓
 Workbooks(X).Sheets("Y").Copy　After:=wb.Worksheets(wb.Worksheets.Count)
（OK） 2021/01/27(水) 16:10

 文字列等を入れるべきところにオブジェクトを代入しているために
 エラーとなります。
（OK） 2021/01/27(水) 16:12

OKさん

ありがとうございます。
初心者なもので見落としてました。
勉強になりました。
（・J・） 2021/01/27(水) 16:40

コメント返信：

[ 一覧(最新更新順) ]

[[20210127155843]] 『別ブックのシートを新規ブックの最後尾にコピーす』（・J・） ページの最後に飛ぶ

[[20210127155843]]　『別ブックのシートを新規ブックの最後尾にコピーす』（・J・）　ページの最後に飛ぶ