|
今日一日悩んで組んでたんですが・・・
ウッシさんに教えていただいたコードで、
フォルダ名をA列に貼り付けることは出来ました。
後はフォルダを開いて、必要行を貼り付けようと思って、
ウッシさんのDoLoop文の中に下のようなコードを加えると、
一回の抽出をしてDoLoop文から飛び出てしまいました。
書いたコード自体、自信はないのですが、
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 Range("A3")
Windows(s).Close
i = i + 3
s = Dir
Loop
End Sub
|
|