|
おはようございます、以前にマクロのLoop処理で質問させていただきました杏子です。
今回もLoop処理について質問させてください。
売上A~Dのデータがそれぞれ違うBookにcsvデータとして保存されています。
各データの保存数も違います。
これらのデータを新しいBook"売上"にまとめてexcelデータとして保存するにはどうしたらいいでしょうか。
Loop処理を使ってマクロ登録を行いたいです。
また、これからも使っていくために汎用性を持たせたいです。
※補足:1行目には契約先/売上金額…などの項目が入力されており今回は
まとめる対象とはしていません。
注文が多くて申し訳ありませんが皆さまのお力を貸してください。
Sub Macro1()
'
' Macro1 Macro
'
Workbooks.Open Filename:="H:\形式変換用\売上A.csv"
Rows("2:2").Select
Selection.Copy
Windows("売上.xlsm").Activate
Rows("1:1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Workbooks.Open Filename:="H:\形式変換用\売上B.csv"
Rows("2:515").Select
Selection.Copy
Windows("売上.xlsm").Activate
Rows("3:3").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Workbooks.Open Filename:="H:\形式変換用\売上C.csv"
Rows("2:2").Select
Selection.Copy
Windows("売上.xlsm").Activate
Rows("516:516").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Workbooks.Open Filename:="H:\形式変換用\売上D.csv"
Rows("2:2").Select
Selection.Copy
Windows("売上.xlsm").Activate
Rows("517:517").Select
ActiveSheet.Paste
Application.CutCopyMode = False
'
ChDir "H:\形式変換用\Data"
ActiveWorkbook.SaveAs Filename:="H:\形式変換用\Data\売上.xlsm", FileFormat:= _
xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub
|
|