我这个循环哪里错了?

yunong 2008-05-06 08:05:09
要对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
...全文
74 2 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
东方之珠 2008-05-06
  • 打赏
  • 举报
回复
pth后面少了一个“\”,像这样的问题,设置断点即可找到原因!
of123 2008-05-06
  • 打赏
  • 举报
回复

pth = "D:\mfe\TEST\"

2,503

社区成员

发帖
与我相关
我的任务
社区描述
VBA(Visual Basic for Applications)是Visual Basic的一种宏语言,是在其桌面应用程序中执行通用的自动化(OLE)任务的编程语言。
社区管理员
  • VBA
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧