|
こんにちは。
>京都、大阪・・と順番にファイル名を取得して、ファイルを開けて、
とあるので、Dir関数で取得して処理したらいかがでしょう?
そのフォルダには、マクロを書いたブックと必要なファイルしかないものとします。
Sub test()
Dim myFile As String
Dim myVal As String
Const myPath As String = "C:\回収\"
Application.ScreenUpdating = False
myFile = Dir(myPath & "*.xls")
Do While myFile <> ""
Workbooks.Open myPath & myFile
With ActiveWorkbook
If .Name <> ThisWorkbook.Name Then
myVal = Left(.Name, 2)
.Worksheets(1).Range("CD2", .Cells(.Range("A1").End(xlUp).Row, "CD")) = myVal
.Close True
End If
myFile = Dir()
Loop
Application.ScreenUpdating = True
End Sub
|
|