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

Eutopian · 发表于 2011-11-15 11:08

在dir函數的使用幫助中可以找到這樣的意思:第一個dir獲得結果後,從第二個dir開始返回與參數相匹配的結果.即只要文件名和dir的第一個參數匹配,VB就會給你找出來,所以你的程序把.xlsx文件也列出來了.

小fisher · 发表于 2011-11-15 13:15

9楼和10楼还要注意大小写（VB默认是Option Compare Binary，区分大小写），所以如果模块最上面没有Option Compare Binary，代码中就应该使用If Lcase(Right(mydir, 3)) = "xls" Then或If LCase(mydir) Like "*.xls" Then

ljjqaz · 发表于 2015-12-26 21:47

路过；学习学习

ljjqaz · 发表于 2015-12-27 08:17

我也是同样问题，想学习学习

yuwd3 · 发表于 2015-12-27 11:12

学习了，从来没注意过大小写问题。

SLF19860429 · 发表于 2020-3-14 13:08

Eutopian 发表于 2011-11-15 11:08
在dir函數的使用幫助中可以找到這樣的意思:第一個dir獲得結果後,從第二個dir開始返回與參數相匹配的結果.即 ...

如何能够精确匹配

renkangjizhen · 发表于 2020-3-21 04:09

like是近似匹配，类似于“包含”之意

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

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

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