フォルダ内のExcelファイルを別Excelブックのシートに張り付けたい

Question

フォルダ内のExcelファイルを別のExcelブックのシートにコピーするというシステムをExcelVBAで作っています。
フォルダ内のファイルのフルパスの取得し開くところまではうまくいくのですが、どうしても別ブックのシートにコピーし張り付けることができません

試したこと

sub test()
’探索するフォルダ指定
Dim Path, FileName, FilePath
フォルダパス指定
path = ThisWorkbook.Path & "\A"
ファイル名取得
FileName = Dir(Path & ".xls")
ファイルのフルパス指定
FilePath = Path & FileName
'コピー元となるブックを開く
Workbooks.Open FilePath
'データをコピー
Workbooks(".xls").Worksheets("Sheet1").Range("A1:D5").Copy _
Workbooks("別ブックにコピー.xls").Worksheets("Sheet1").Range("A1")
'コピー元のブックを閉じる(セーブしない)
Workbooks("*.xls").Close savechanges:=False

End Sub

ExcelVBA初心者かつteratailの利用と質問も初めてで、おかしいところが多々あると思いますが解決したいです。よろしくお願いします。

Answer 1

フォルダ内のファイルのフルパスの取得し開くところまではうまくいくのですが、

本当ですか。提示のコードが実際のものだとしたら、

'フォルダパス指定
path = ThisWorkbook.Path & "\A"
'ファイル名取得
FileName = Dir(Path & ".xls")

ではファイル名は取得できないです。下記のようにする必要があります。

'フォルダパス指定
path = ThisWorkbook.Path & "\A\"
'ファイル名取得
FileName = Dir(Path & "*.xls")

上記でファイル名が取得できたとして、次に、

'データをコピー
Workbooks(".xls").Worksheets("Sheet1").Range("A1:D5").Copy _
Workbooks("別ブックにコピー.xls").Worksheets("Sheet1").Range("A1")

は、下記でないとだめですね。

'データをコピー
Workbooks(FileName).Worksheets("Sheet1").Range("A1:D5").Copy _
Workbooks("別ブックにコピー.xls").Worksheets("Sheet1").Range("A1")

下記も上記と同様に修正する必要があります。

Workbooks("*.xls").Close savechanges:=False

Comments

[biburia]

迅速でご丁寧な回答ありがとうございます！！

hatena19さんのご教授して頂いたコードで上手くいきました！
今、会社内でDX化進めるという中でシステム作りを任されましたが、初めてのことばかりで苦慮しておりましたところ大変助かりました。
本当にありがとうございました。