VBA インデックスエラー

Question

現在Aブックの2枚目のシートをBブックの一番最後のシートにコピーさせることを自動化したく、下記のコードを書きました。
Aブック→thisworkbook
bブック→予定表_過去データ.xlsx

Sub 転記()

Dim path As String
Dim book As Workbook

path = 「あるフォルダ」

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

ThisWorkbook.Worksheets(2).Copy After:=Workbooks("予定表_過去データ.xlsx").Worksheets("予定表(0830～0903)")

End Sub

※まずは断定的にBブックの現在一番最後にあるシート「予定表(0830～0903)」の後ろに貼り付けようとしています。
open pathのところでインデックスエラーになってしまします。
どこか悪いか御教授頂けると幸いです。

Answer 1

まず、以下の「Workbooks("予定表_過去データ.xlsx")」、これはすでに開いているブックを参照するコードになっています。

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

変数pathの内容がわからないのですが、以下、もしくは

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

こちらでは。

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

※「\」は円マークです

Comments

[somechan1]

hex309様

ご確認ありがとうございます。
\マークの指示まで丁寧に教えて頂きありがとうございます。
おかげ様で解決することが出来ました。

Answer 2

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

予定表_過去データ.xlsxはまだ、開いていないので、
Workbooks("予定表_過去データ.xlsx")でエラーになる。

Openの第一引数は、文字列ですので、

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

Comments

[somechan1]

hatena19様

確認ありがとうございます。
おかげ様で解決することができました。