| |
▼みちゃこ さん：
ブックを開かないでリンク式をセットして対応する方法もありますが
ここは、素直に、開いて処理しましょう。
Sub Sample()
Dim myPath As String
Dim fName As String
Dim v As Variant
Dim i As Long
Dim sh As Worksheet
Application.ScreenUpdating = False
Set sh = ThisWorkbook.Sheets("OUTPUT")
i = 3
myPath = "C:\元データ"
fName = Dir(myPath & "\*.xls")
Do While Len(fName) > 0
Workbooks.Open myPath & "\" & fName
v = Split(fName, ".")
sh.Cells(i, "A").Resize(21, 5).Value = Range("C5:G25").Value
sh.Cells(i, "F").Resize(21).Value = v(0)
ActiveWorkbook.Close savechanges:=False
i = i + 21
fName = Dir()
Loop
Application.ScreenUpdating = True
MsgBox "集約が終わりました"
End Sub
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
