按键精灵怎样读取一个不固定文件夹内的固定文件名的EXCEL文件的数据

Function 遍历指定目录下所有文件夹名(文件夹路径)
    //注意：返回的是数组变量，存储着每一个文件夹名。
    //例子：数组 = lib.文件.遍历指定目录下所有文件夹名("C:\")
    //      For i=0 to UBound(数组)-1
    //          TracePrint 数组(i)
    //      Next
    Dim 文件夹名,fso,folder,f,files
    文件夹名 = ""
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set folder = fso.getfolder(文件夹路径)
    Set files = folder.SubFolders
    For Each f In files
        文件夹名 = 文件夹名 & f.name & ","
    Next
    Set fso = Nothing
    //遍历指定目录下所有文件夹名 = 文件夹名
    遍历指定目录下所有文件夹名 = Split(文件夹名, ",")
End Function