[[20210127155843]] 『別ブックのシートを新規ブックの最後尾にコピーす』(・J・) >>BOT

[ 初めての方へ | 一覧(最新更新順) |

| 全文検索 | 過去ログ ]

 

『別ブックのシートを新規ブックの最後尾にコピーするマクロ』(・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


コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.