|
以下の件につきまして御教授頂ければ幸いです。
常に開いているファイル(Book1とする)のA列に、ファイル名が記述されています。
Book1に記述されたマクロの実行により、他のフォルダにある複数のファイル(仮にファイル1から連番でファイル100まであるとします)に対して、以下の動作をさせたいのです。
ファイル1〜ファイル100には、何れもA列とB列にデータがあるとします。
1.ファイル1を開き、C列に、行毎のA列のデータとB列のデータの加算値を出力する。
2.C列のデータを、常に開いているファイルの同じ行のB列にペーストする。その後は、ファイル1のデータは保存せずに閉じます。
ファイル1について、1.2.の動作を終えた後、残るファイル100まで、順に1.2.と同様の動作を自動でさせたいのですが、ファイル1からファイル2への継続動作の仕方がわかりません。
以下では、ファイル1に対してのみ1.2.の動作をして終わります。
Sub Macro1()
Dim LastCell As Range, c As Range
Set LastCell = Range("A65536").End(xlUp)
For Each c In Range("A1", LastCell)
strFileName = " C:\WINDOWS\フォルダ1\" & c.Value
If c.Value <> "" And Dir(strFileName) <> "" Then
Workbooks.Open Filename:=" C:\WINDOWS\フォルダ1\" & c.Value
ActiveSheet.Range("C1")= ActiveSheet.Range("A1") + ActiveSheet.Range("B1")
ActiveSheet.Range("C1").Select
Selection.Copy
ActiveWorkbook.Close SaveChanges:=False
Workbooks("Book1").Activate
Cells(1, 2).Select
ActiveSheet.Paste
End If
Next
Set LastCell = Nothing
End Sub
|
|