Edited at

あるフォルダの中のxlsを開いて何かするマクロ

More than 3 years have passed since last update.


Dim FilePath As String
Dim TargetFile As String

'開きたいファイルのパス
FilePath = "c:\hogehoge"

TargetFile = Dir(FilePath & "\*.xls", vbNormal)
Do Until TargetFile = ""
' 拡張子が3桁だと、xlsxやxlsmも拾ってしまうのでフィルタリング
If FilePath Like "*.xls" Then

Workbooks.Open FilePath & "\" & TargetFile

With Workbooks(TargetFile)

.Activate

' ファイルを開いてなんかやる
' 例えば
Dim i As Long
For i = 1 To .Worksheets.Count
' 全てのシートになんかやる
With .Worksheets(i)
.Select
' ここにやりたいこと
End With
Next
.Close
End With
End If
TargetFile = Dir()
DoEvents
Loop