อยากทราบ Search file in folder Excel 2010 โดย VBA

[ZIXEN]

1.ใช้คำสั่งอะไรในการค้นหาไฟล์ที่อยู่ในโฟลเดอร์ครับ
2.หากพบให้เข้าคำสั่ง เปิดไฟล์
3.หากไม่พบให้ข้ามไป แล้วกลับมาวนลูปอีกครั้ง

ผมใช้ Excel 2003 มันใช้ Application.Filesearch แล้วไปเข้า If
แต่พอเปลี่ยนมาใช้ Excel 2010 มันใช้คำสั่ง Application.Filesearch ไม่ได้แล้ว
ยังไงช่วยแนะแนวให้หน่อยนะครับ


Thank and Best regard

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

[snasui]

ลองตามนี้ครับ

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

[ZIXEN]

ได้แล้วครับ
ผมจะนำเอาความรู้ที่ได้รับ ไปพัฒนากับงานเอกสารให้ดีที่สุดครับ
ขอบคุณมากครับ