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

    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