要对test文件夹下的所有xls文件进行某项操作,我现在用i=i+i代替了那个函数,主要是先检验loop是否有效,但是debug,i=0就出来了,根本没有进行足够的循环,我test文件夹下有20个xls文件,应该循环20次才对呀,麻烦各位帮我看看哪里出错了?
Sub multirun()
Dim filename As String
Dim i As Integer
Dim pth As String, name As String
i = 0
pth = "D:\mfe\TEST"
name = Dir(pth & "*.xls")
Do Until name = ""
'Do While Len(filename)
i = i + 1
name = Dir()
Loop
MsgBox ("The loop ran " & i & " times.")
End Sub
Sub multirun()
Dim filename As String
Dim i As Integer
Dim pth As String, name As String
i = 0
pth = "D:\mfe\TEST"
name = Dir(pth & "*.xls")
Do Until name = ""
'Do While Len(filename)
i = i + 1
name = Dir()
Loop
MsgBox ("The loop ran " & i & " times.")
End Sub
pth = "D:\mfe\TEST\"