如何获取文件夹中的文件名称

开开惢惢

Option Explicit
Sub 汇总数据()
    Dim a, b, c, e
    Dim k As Workbook, l As Worksheet, r As Worksheet
    Set l = Worksheets("管理部数据汇总功能表")
    For a = 3 To 22
        c = l.Cells(a, 2)
        e = c & ".xlsx"
        If e = 1 Then
            Set k = Workbooks.Open("C:\Users\xy\Desktop\管理部数据汇总\" & e)
            Set r = k.Worksheets(1)
            b = 1
            Do While r.Cells(1, b) <> ""
                l.Cells(a, b) = r.Cells(2, b)
                b = b + 1
            Loop
        k.Close
        End If
    Next a
End Sub
已知e是一个excel表的名称，如何要在文件夹中找到他？以此执行之后的程序？

不知道为什么

加上文件的后缀名