Excel Forum

Code: Select all

Sub TEST()
'Run with Microsoft Excel 2010
    With Application.FileSearch
        .LookIn = "C:\FolderTEST\"
        .Filename = "FileTEST.TXT*"
        If .Execute = 1 Then
            Workbooks.OpenText Filename:="C:\FolderTEST\FileTEST.TXT"
            Windows("FileTEST.TXT").Close
        End If
    End With
End Sub

Code: Select all

Sub FindAndOpenFiles()
    Dim FilePath As String
    Dim fileName As String
    Dim wbFound As Workbook
    FilePath = "C:\FolderTEST"
    fileName = Dir(FilePath & "\*.txt")
    Do Until fileName = ""
        Set wbFound = Workbooks.Open( _
            fileName:=FilePath & "\" & fileName)
        fileName = Dir()
    Loop
End Sub