[已解决]VBA怎样打开带有通配符*的文件

2198596388

求高手帮忙，怎样打开带有通配符*的文件（*字符数不等）：
dim i%
for i =1 to 5
      workbooks.open thisworkbook.path & "\统考\年级* " & i & "\排名*.xlsm"
next i


用vba怎样实现上面打开文件的效果？先谢了！

最佳答案

月排行榜 / 总排行榜

老司机带带我

2016-6-23 22:43

我这边操作了没问题啊！

跳转到最佳答案楼层

老司机带带我

问题表述的时候有点奇异，文件是不能带*的，你要的程序应该如下：

1. Sub xx()
   
2.     Dim Mf$, Mp$, MyName$, i%
   
3.     For i = 1 To 2
   
4.         Mp = ThisWorkbook.Path & "\统考\年级*" & i
   
5.         Mf = Dir(Mp, vbDirectory)
   
6.         MyName = Dir(ThisWorkbook.Path & "\统考" & Mf & "\排名*.xlsm")
   
7.         Do While MyName <> ""
   
8.             Workbooks.Open ThisWorkbook.Path & "\统考" & Mf & "" & MyName
   
9.             MyName = Dir
   
10.         Loop
    
11.     Next
    
12. End Sub

复制代码

2198596388

老司机带带我 发表于 2016-6-23 19:48
问题表述的时候有点奇异，文件是不能带*的，你要的程序应该如下：

老师你好，有个疑问：当循环进行第2次（即i = 2）时，mf 应该是第2 个文件夹名称啦！但是，为什么mf还是 i=1时的文件夹名称呢？
我要的效果是：i = 1时，就打开第1个文件夹里的文件"排名*.xlsm"；i = 2 时，就打开第2 个文件夹里的文件"排名*.xlsm"。*号是字符长度不等的通配符。
应该怎样修改一下代码呢？

老司机带带我

我这边操作了没问题啊！

2198596388

老司机带带我 发表于 2016-6-23 22:43
我这边操作了没问题啊！

好的，可能是我在哪里弄错了，老师辛苦了！谢谢！