Excel\OpenOffice Calc Dir函数不遍历文件

我的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

FolderName=Environ（“UserProfile”）+“\”
FilePath=FolderName&“Invoice.”和Format（日期，“yyyy.mm.dd”）&“-”&“*”和“.ods”
计数=1
FileName=Dir（文件路径）
While（文件名为“”，计数小于5）
MsgBox“FileName=”+FileName
计数=计数+1
温德

试试这段代码（注意，我在

While

循环的末尾添加了

FileName=Dir

）：

FolderName=Environ（“UserProfile”）+“\”
FilePath=FolderName&“Invoice.”和Format（日期，“yyyy.mm.dd”）&“-”&“*”和“.ods”
计数=1
FileName=Dir（文件路径）
While（文件名为“”，计数小于5）
MsgBox“FileName=”+FileName
计数=计数+1
FileName=Dir
温德

另一个快速问题，您知道如何将数字格式设置为3位数吗？例如3到0030是的，我知道。只需将自定义格式“000”应用于单元格，或使用excel公式

=Text（“A1”，“000”）

与VBA相同：

MsgBox格式（3，“000”）

如果您有时间问最后一个问题，如何将VBA字符串添加到excel工作表

将VBA字符串添加到excel工作表中是什么意思？这个：
Range（“A1”）=“something”
？我再过50秒就不能接受答案了。。。StackoverFlow的新手策略。附言：你知道如何将一个数字格式化为3位数吗？例如3到003
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