文件 = Dir(ThisWorkbook.Path & "\" & "*.xlsm")
[A1].Value = ThisWorkbook.Path & "\" & 文件
Do
文件 = Dir
i = i + 1
If 文件 <> "" Then
Cells(i + 1, "A").Value = ThisWorkbook.Path & "\" & 文件
Else
Exit Do
End If
LoopLoop
以上代码只能获取*.xlsm格式的文件,如果改成*.*变成获取全部。请问有没有办法同时获取两种格式的文件呢?(*.xlsm和*.txt)
æ件 = Dir(ThisWorkbook.Path & "\*.*")
Do While æ件 <> ""
If InStr(æ件, ".xlsm") > 0 Or InStr(æ件, ".txt") > 0 Then
i = i + 1
Cells(i , "A").Value = ThisWorkbook.Path & "\" & æ件
Else
æ件 = Dir
Loop
Do While æ件 <> ""
If InStr(æ件, ".xlsm") > 0 Or InStr(æ件, ".txt") > 0 Then
i = i + 1
Cells(i , "A").Value = ThisWorkbook.Path & "\" & æ件
Else
æ件 = Dir
Loop
温馨提示:答案为网友推荐,仅供参考