Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


9916 / 76737 ←次へ | 前へ→

【72377】Loop処理への変換
質問  杏子  - 12/7/26(木) 6:34 -

引用なし
パスワード
   おはようございます、以前にマクロの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
0 hits

【72377】Loop処理への変換 杏子 12/7/26(木) 6:34 質問
【72381】Re:Loop処理への変換 UO3 12/7/26(木) 9:30 発言
【72382】Re:Loop処理への変換 杏子 12/7/26(木) 11:04 質問
【72383】Re:Loop処理への変換 UO3 12/7/26(木) 11:57 発言
【72385】Re:Loop処理への変換 杏子 12/7/26(木) 12:07 発言
【72386】Re:Loop処理への変換 杏子 12/7/26(木) 12:11 お礼
【72384】Re:Loop処理への変換 UO3 12/7/26(木) 12:07 発言

9916 / 76737 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free