|
フォルダーに4ファイル(Book)があり、ブック名A1・A2・A3が有り、集計というBookにデータを保存するコードを書いたのですが・・・
Until=""でループさせたのですが、最終「集計」のファイルまでと続きます。
集計の時にはExitのような方法をと・・・考えたのですが、何か良い方法は無いでしょうか。ご指導お願いします
Sub try()
Dim Fname As String, Pname As String, i As Integer
Pname = ThisWorkbook.Path & "\"
Fname = Dir(Pname & "*.xls")
Do Until Fname = ""
Workbooks.Open Pname & Fname
For i = 1 To Sheets.Count
If Sheets(i).Range("A1") <> "" Then
Sheets(i).Range("B6:D6").Copy _
Workbooks("集計.xls").Sheets(1) _
.Range("B" & Rows.Count).End(xlUp).Offset(1)
End If
Next i
' Debug.Print Fname
Workbooks(Fname).Close True
Fname = Dir()
Loop
Workbooks(ActiveWorkbook.Name).Close savechanges:=True
End Sub
|
|