|
すみません、ポカしてました。
イロイロやって、DoLoop文から飛び出すのは解消できました。
まだまだ不十分ですが、明日に完成してみようと思います。
訂正コード
Private Sub Worksheet_Activate()
Dim f As String
Dim s As String
Dim k As String
Dim i As Long
f = ThisWorkbook.Path & "\*L.csv"
i = 2
s = Dir(f)
k = s
Do While s <> ""
Cells(i, 1) = s
Workbooks.Open (k)
Windows(k).Activate
Set b = ActiveSheet
b.Rows("2").Copy
Windows("抽出.xls").Activate
’下ココを直さないと上書きされちゃってます
Range("A3").Select
ActiveSheet.Paste
Windows(s).Close
i = i + 3
s = Dir
Loop
End Sub
こんな感じまで出来ました。
前の質問は気にしないでください。
すみませんでした。
|
|