| |
以下の件につきまして御教授頂ければ幸いです。
常に開いているファイル（Book1とする）のA列に､ファイル名が記述されています｡
Book1に記述されたマクロの実行により､他のフォルダにある複数のファイル（仮にファイル１から連番でファイル１００まであるとします）に対して､以下の動作をさせたいのです｡
ファイル１〜ファイル１００には、何れもA列とB列にデータがあるとします。
1.ファイル１を開き、C列に、行毎のA列のデータとB列のデータの加算値を出力する。
2.C列のデータを、常に開いているファイルの同じ行のB列にペーストする。その後は、ファイル１のデータは保存せずに閉じます。
ファイル１について、1.2.の動作を終えた後、残るファイル１００まで、順に1.2.と同様の動作を自動でさせたいのですが、ファイル１からファイル２への継続動作の仕方がわかりません。
以下では、ファイル１に対してのみ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\フォルダ１\" & c.Value
If c.Value <> "" And Dir(strFileName) <> "" Then
Workbooks.Open Filename:=" C:\WINDOWS\フォルダ１\" & 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
|
|
さくら
- 05/12/7(水) 17:59 -
