关于FSO读取固定类型文件的求助

神秘风暴

各位大神好，FSO读取文件，数据文件夹下有*.xls,*.xlsm,*.txt 类型的文件，我现在只想读取*.xlsm类型的文件，请问该项如何修改？



    Dim T
    T = Timer   '//开始时间
    If Tname = "" Then Exit Sub
    Dim Conn, Rs As Object
    Dim SQL, cnStr, i, myPath, fie, j
    Dim Fso, File
    Dim adx As Object

    Set Conn = CreateObject("adodb.connection")
    Set Rs = CreateObject("adodb.recordset")
    Set Fso = CreateObject("scripting.filesystemobject")
    Set adx = CreateObject("adox.catalog")
    myPath = "D:\数据文件夹\"
    myfile = Dir(myPath)
    For Each File In Fso.GetFolder(myPath).Files
                ‘执行程序
        NEXT

shiruiqiang

For Each File In Fso.GetFolder(myPath).Files
               if instr(file,".xlsm")>0 then
                  ......
               end if
        NEXT

神秘风暴

shiruiqiang 发表于 2025-1-15 15:55
For Each File In Fso.GetFolder(myPath).Files
               if instr(file,".xlsm")>0 then
        ...

非常感谢。刚在网上搜索了一下被我弄成这样了。
Dim extension As String
extension = LCase(Mid$(File, InStrRev(File, ".")))
If extension = ".xlsm" Then
    ....

sero61

才疏学浅，抛砖引玉  献丑了
试试application.FileDialog的InitialFileName 方法

marchwen01

if file.name like "*.xlsm" then

ykcbf1100

For Each file In Fso.GetFolder(myPath).Files
    If LCase$(file.Name) Like "*.xlsm" Then

        '执行程序
    End If
Next

quqiyuan