【マクロ】【画像あり】４つのファイルデータを１つのエクセルブックにある４つのシートへそれぞれコピー

【やりいた事】⇒コードorアドバイスお願いします
下記画像をご覧ください

❶.１つのエクセルブックがあります。このブックには４つのシートがあります

❷.４つのcsvファイルがあります(CSVはEXCELファイルに置き換えてもok)
⇒この４つのファイルのデータを❶の１つのエクセルにある、４つのシートへ貼付したいです

※４つのデータは１個～４個へ変動します。ファイルが１つの時もあれば４つの時もあるという意味
※❶のコピー先シート４つは、貼付前は全て、何も何も貼りついていない状態です


【動作手順】※以下４データはWEBサイトよりダウンロードしています
※出来ればDL順に貼付したい。複雑な場合、順番じゃなくてもOK⇒順不同

a_20250529124239.csvを開く
⇒A1セルでCtrl+A全選択しコピー
⇒最新配列.xlsm　Sheet1　のA1セルに値貼付

a_20250529124240.csvを開く
⇒A1セルでCtrl+A全選択しコピー
⇒最新配列.xlsm　Sheet1　のA1セルに値貼付

a_20250529124241.csv⇒最新配列.xlsm　Sheet3　のA1セルに値貼付
⇒A1セルでCtrl+A全選択しコピー
⇒最新配列.xlsm　Sheet1　のA1セルに値貼付

a_20250529124242.csv⇒最新配列.xlsm　Sheet4　のA1セルに値貼付
⇒A1セルでCtrl+A全選択しコピー
⇒最新配列.xlsm　Sheet1　のA1セルに値貼付


【ファイルパス】コピーしたい４つのファイル。※コピー元
C:\Users\2020\OneDrive\マクロ\ダウンロード場所\a_20250529123942.csv
シート名：20250529123942　⇒シートは１つしか無い

C:\Users\2020\OneDrive\マクロ\ダウンロード場所\a_20250529123941.csv
シート名：20250529123941　⇒シートは１つしか無い

C:\Users\2020\OneDrive\マクロ\ダウンロード場所\a_20250529123940.csv
シート名：20250529123940　⇒シートは１つしか無い

C:\Users\2020\OneDrive\マクロ\ダウンロード場所\a_20250529123939.csv
シート名：20250529123939　⇒シートは１つしか無い

【ファイルパス】コピー先
C:\Users\2020\OneDrive\マクロ\最新配列.xlsm
※４つのファイルのデータをコピーしたいファイル
※シート名⇒Sheet1、Sheet2、Sheet3、Sheet4、


【参考コード】４つのシートにそれぞれ作業をするべく、順番になります

Sub sheetarrayの配列()

Dim allsheet(3) As Variant

allsheet(0) = "Sheet1"

allsheet(1) = "Sheet2"

allsheet(2) = "Sheet3"

allsheet(3) = "Sheet4"


Dim i As Long
Dim ws As Worksheet


For i = 0 To 3
Set ws = ThisWorkbook.Worksheets(allsheet(i))
MsgBox allsheet(i)


●●●●●●●●●●●●●●●●●●●●●●●●●●

ここに４つのファイルのデータをコピーするデータを
開き、コピペするコードを貼り付けるコードを入れたい

●●●●●●●●●●●●●●●●●●●●●●●●●●

Next
End Sub


【参考コード】ファイルを開いてデータをコピペするコードです

Dim wb As Workbook
Set wb = Workbooks.Open("C:\Users\2020\OneDrive\マクロ\ダウンロード場所\a_20250529124242.csv")

Range("a1").CurrentRegion.Copy

ws.Range("a1").PasteSpecial Paste:=xlPasteValues

Application.CutCopyMode = False

wb.Close

No.1 ベストアンサー 回答者： fujillin 回答日時： 2025/05/30 21:36

こんばんは

＞コードorアドバイスお願いします
一番簡単なのは、ご提示の一回分のコードを四回記述することでしょう。
もう少し効率的にするなら、可変部分を配列化しておいて繰り返し（＝ループ）処理すればよろしいかと。


さらに記述を単純化したいのなら、
　＞⇒A1セルでCtrl+A全選択しコピー~~
のような考え方でなく、シートそのものをコピーすると考えれば、1センテンスですませられます。
　Worksheet.Copy Destination
https://learn.microsoft.com/ja-jp/office/vba/api …

一方で、ご提示のコードでは「値のコピー」になっているようですので、書式等はコピーしたくないという場合は、
　DestSheet.Cells.Value = SorceSheet.Cells.Value
のような処理にすることで、シート全体の「値のみコピー」も可能です。

この回答へのお礼

fujillin 様
お返事ありがとうございます
コードとは、以下のことでしょうか

ファイル名が毎回、変わります
転記先のファイル名や４つのシート名は変わりません

何かアドバイスいただければ幸いです
また、本質問について、再度、別の切り口から質問UPしました

お手すきな時に、ご覧ください。よろしくお願いします

>一番簡単なのは、ご提示の一回分のコードを四回記述することでしょう。

【参考コード】ファイルを開いてデータをコピペするコードです

Dim wb As Workbook
Set wb = Workbooks.Open("C:\Users\2020\OneDrive\マクロ\ダウンロード場所\a_20250529124242.csv")

Range("a1").CurrentRegion.Copy

ws.Range("a1").PasteSpecial Paste:=xlPasteValues

Application.CutCopyMode = False

wb.Close

お礼日時：2025/05/30 23:30