|
かみちゃんさんありがとうございます。
やってみたのですが、つまづいてしまいました。
下記のように書いたのですが・・
Sub test()
Dim i As Long
Dim ARow As Long
Dim FolderName As String
Dim FileName As String
FolderName = "\\C:test"
FileName = Dir(FolderName & "\*.xls")
Do While FileName <> ""
→→ARow = ThisWorkbook.Worksheets("Sheet2").Range("A65536").End(xlUp).Row
Workbooks.Open (FolderName & "\" & FileName)
Worksheets("Sheet1").Range("B3").Copy Destination:= _
→→thisbook.Worksheets("Sheet2").Range("A" & ARow + 1)
ActiveWorkbook.Close savechanges:=False
FileName = Dir()
Loop
End Sub
→の行のように書くとマクロを実行する度
どんどん下行へ下行へ追加されていきます。
どう変えたら、フォルダ内全ファイルのB3の数値がA1:A20に入るのでしょうか?
ご教授お願いします。
|
|