[[20180528114255]]　『繰り返し処理』（コルト）　ページの最後に飛ぶ

『繰り返し処理』（コルト）

特定のフォルダにある全てのファイルの2行目から最終行を転記する工程が分かりません。マクロ記録で行ったら
Range("A2").Select

    Workbooks.Open Filename:="C:\Users\***\Desktop\test\2017年1月.xlsx"
    Range("A2:M2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Windows("集計.xlsm").Activate
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Selection.End(xlDown).Select
    Range("A1119").Select
    ActiveWindow.Close
　　Workbooks.Open Filename:="C:\Users\***\Desktop\test\2017年2月.xlsx"
    Range("A2:M2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Windows("集計.xlsm").Activate
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Selection.End(xlDown).Select
    Range("A2408").Select
    ActiveWindow.Close
・・・繰り返し
といった形になったのですが、これをFor each～Nextのような繰り返しでフォルダに入っているファイルすべてに当てはめる文章にするにはどうすればいいでしょうか。

＜使用 Excel：Excel2016、使用 OS：Windows10 ＞

http://www.relief.jp/docs/excel-vba-open-excel-files-specified-folder.html
http://officetanaka.net/excel/vba/file/file07.htm

この辺を読んだら繰返し処理は出来ると思いますが、
「変数」は理解されてますでしょうか？

（まっつわん） 2018/05/28(月) 14:07

コメント返信：

[ 一覧(最新更新順) ]

[[20180528114255]] 『繰り返し処理』（コルト） ページの最後に飛ぶ

[[20180528114255]]　『繰り返し処理』（コルト）　ページの最後に飛ぶ