怎么Dir(ThisWorkbook.Path & "\*.xls")中的*.xls 等效于*.xls*了？

henrylam · 发表于 2011-11-13 19:02

本帖最后由 henrylam 于 2011-11-13 19:37 编辑

Sub test()
mydir = Dir(ThisWorkbook.Path & "\*.xls")
n = 1
Do While mydir <> ""
Cells(n, 1) = mydir
mydir = Dir
n = n + 1
Loop
End Sub

复制代码

请教达人们，这个代码怎么把xlsx的也给找出来了？
如果只要找*.xls的文件，应该怎么改？
把第5行改成：If mydir Like "*.xls" Then Cells(n, 1) = mydir
就可以了，好奇怪！就是不知道为什么

冻豆腐 · 发表于 2011-11-13 19:18

改为"*.xls*"

kevinchengcw · 发表于 2011-11-13 19:22

试下这个
Dir(ThisWorkbook.Path & "\*.xls?")

henrylam · 发表于 2011-11-13 19:27

本帖最后由 henrylam 于 2011-11-13 19:28 编辑

冻豆腐发表于 2011-11-13 19:18
改为"*.xls*"

可能我没讲清楚，我现在的问题是：Dir函数中 "*.xls" 等效于 "*.xls*"，我不要xlsx的，我只要找xls的

jiminyanyan · 发表于 2011-11-13 19:53

那就"*.xls"吧。。。

henrylam · 发表于 2011-11-13 19:57

jiminyanyan 发表于 2011-11-13 19:53
那就"*.xls"吧。。。

用的就是"*.xls"，但把xlsx的也给找出来了，我只要找xls的
同样用"*.jpg"也找出了"*.jpg*"的，难道是BUG

liucqa · 发表于 2011-11-14 10:00

你在cmd中执行dir命令就明白了，两者效果是一样的

henrylam · 发表于 2011-11-14 17:03

手工置顶{:soso_e100:}

zhaogang1960 · 发表于 2011-11-14 17:34

应该是个BUG，加个判断：
Sub test()
mydir = Dir(ThisWorkbook.Path & "\*.xls")
Do While mydir <> ""
      If Right(mydir, 3) = "xls" Then
         n = n + 1
         Cells(n, 1) = mydir
   End If
   mydir = Dir
Loop
End Sub

henrylam · 发表于 2011-11-15 09:44

zhaogang1960 发表于 2011-11-14 17:34
应该是个BUG，加个判断：
Sub test()
mydir = Dir(ThisWorkbook.Path & "\*.xls")

我也是加了判断If mydir Like "*.xls" Then Cells(n, 1) = mydir
但就是不知啥原因

		自动登录	找回密码
密码			免费注册

[讨论] 怎么Dir(ThisWorkbook.Path & "\*.xls")中的*.xls 等效于*.xls*了？

[讨论] 怎么Dir(ThisWorkbook.Path & "\.xls")中的.xls 等效于.xls了？