ブック間のシートのコピー

Question

ブックAの2番目シートからブックBの一番右端へシートをコピーさせることを自動化させたいです。

Sub 転記()

Dim path As String

path = 「あるフォルダ￥」

Workbooks.Open path & "予定表_過去データ.xlsx"

Workbooks("管理表 ver.2.xlsm").Worksheets(2).Copy After:=Workbooks("予定表_過去データ.xlsx").Worksheets(Sheets.Count)

Workbooks("予定表_過去データ.xlsx").Close Savechanges:=True
End Sub

copyの行でエラーになってしまいます。どこかおかしな箇所はあるでしょうか。
御教授頂けると幸いです。
宜しくお願い致します。

Answer 1

まずはどんなエラーメッセージなのかを確認するところから始めたいですね。

    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets(2)
    
    Dim path As String
    path = "あるフォルダ￥"
    
    Dim wb As Workbook
    Set wb = Workbooks.Open(path & "予定表_過去データ.xlsx")
    
    ws.Copy After:=wb.Worksheets(wb.Worksheets.Count)
    wb.Close Savechanges:=True

Comments

[somechan1]

jinoji様

確認ありがとうございます。
オブジョクト毎に宣言したら、エラーの原因が明確にわかりました。
今回ではwsの宣言が誤っていたっぽいです。
そのため指示頂いたthisworkbookにしたところ、無事動きました。

オブジェクトの宣言のメリットも勉強になったので、これからは宣言するようします。
大変勉強になりました。
ありがとうございました。

Answer 2

「管理表 ver.2.xlsm」ブックは開いているんですよね。
それであれば、以下ではいかがでしょうか？

Dim wb As Workbook
Set wb = Workbooks.Open(path & "予定表_過去データ.xlsx")

Workbooks("管理表 ver.2.xlsm").Worksheets(2).Copy After:=wb.Worksheets(wb.Worksheets.Count)

Comments

[somechan1]

hex309様
ご確認ありがとうございます。
頂いたコードで修正しましたが、同じくインデックスエラーになりました。

[hex309]

「管理表 ver.2.xlsm」は開いているんですよね（ファイル名あっていますでしょうか？）。
また、そのブックのシート数は「2」以上で間違いないのですよね。