[已解决]【求助】2个条件，遍历文件夹下的文件

xdwy

比如遍历文件夹下的xls文件宏是
s1 = Dir("e:\学习\*.xls")
Do While s1 <> ""
   Set wk2 = Workbooks.Open("d:\a\" & s1)
   wk2.Close False
   s1 = Dir
Loop


现在希望增加一个条件
就是如果该xls的文件名开头的第一个字符是"查"
就执行打开该文件

即：遍历该文件夹，遇见第一个字符是"查"的xls文件就打开
如：查12.xls，查看.xls，查型号.xls，……

谢谢解答

最佳答案

月排行榜 / 总排行榜

那么的帅

2011-8-14 19:13

回复 xdwy 的帖子

s1 = Dir("e:\学习\查*.xls")
Do While s1 <> ""
   Set wk2 = Workbooks.Open("d:\a\" & s1)
   wk2.Close False
   s1 = Dir
Loop

跳转到最佳答案楼层

那么的帅

回复 xdwy 的帖子

s1 = Dir("e:\学习\查*.xls")
Do While s1 <> ""
   Set wk2 = Workbooks.Open("d:\a\" & s1)
   wk2.Close False
   s1 = Dir
Loop

xdwy

回复 那么的帅 的帖子

谢谢，原来是用通配符