Question

我的VBA代码只返回目录的第一个文件，而它应该返回至少3个文件，有没有人知道这里有什么线索？

FolderName = Environ("UserProfile") + "\"
FilePath = FolderName & "Invoice." & Format(Date,"yyyy.mm.dd") & "-" & "*" & ".ods"

count = 1
FileName = Dir(FilePath)

While (FileName <> "" And count < 5)
    MsgBox "FileName = " + FileName
    count = count + 1
Wend

Answer 1

试试这段代码（请注意，我在FileName = Dir循环的末尾添加了While）：

FolderName = Environ("UserProfile") + "\"
FilePath = FolderName & "Invoice." & Format(Date,"yyyy.mm.dd") & "-" & "*" & ".ods"

count = 1
FileName = Dir(FilePath)

While (FileName <> "" And count < 5)
    MsgBox "FileName = " + FileName
    count = count + 1
    FileName = Dir
Wend

Excel \ OpenOffice Calc Dir函数不会迭代文件

1 个答案: