Question

vba 打开excel文件能否使用通配符

在使用VBA编程时,我发现,有时需要打开,比如:2010-9-1或2010-9-2等等文件,请问可不可以使用通配符代替变动不分? 举个例子:
ChDir "C:\Users\Administrator\Desktop"
Workbooks.Open Filename:="C:\Users\Administrator\Desktop\前厅部10年12月下月排班草表.xls"(其中的10年12月,使用通配符代替)
在此先谢过给位高手.

Answer 1

workbooks.open 方法不能使用通配符。
你可以用代码实现通配功能。先搜索文件夹中符合条件的文件名，然后逐个调用Workbooks.Open方法，将它们打开。
代码如下：

Sub test()

Dim filename As String, path As String
path = "C:\Users\Administrator\Desktop"
ChDir (path)

filename = Dir("C:\Users\Administrator\Desktop\前厅部*下月排班草表.xls")

Do While filename <> ""
Workbooks.Open filename:=path & "\" & filename
filename = Dir
Loop

End Sub