[Excel VBA程序开发] 获得文件夹下的所有txt文件

admin1

Sub aa1_Click()
    Application.ScreenUpdating = False
    Set fso = CreateObject("scripting.filesystemobject")
    Set ff = fso.getfolder(ThisWorkbook.Path)
    ActiveSheet.UsedRange.ClearContents
    a = 1
    For Each f In ff.Files

        If f.Name Like "*.txt" Then
        Cells(a, 1) = f.Name
        Cells(a, 2) = f
                a = a + 1
        End If

    Next f
    Application.ScreenUpdating = True
End Sub