[已解决]如何打开包含指定文字的工作薄

dicky_MM

Workbooks.Open(ThisWorkbook.Path & Application.PathSeparator & "分货信息.xlsx", ReadOnly:=True)
这句话打开的工作薄为 分货信息.xlsx
我想打开工作薄名字里面有"信息"两个字的工作薄应该如何编写。比如：工作信息、员工信息。

最佳答案

月排行榜 / 总排行榜

yyyydddd8888

2013-12-25 21:54

Workbooks.Open(ThisWorkbook.Path & Application.PathSeparator & "分货信息.xlsx", ReadOnly:=True)
因为workbooks.open 不支持通配符，可以换用DIR，可以用通配符得到文件名。
改为：
myname= dir(ThisWorkbook.Path & Application.PathSeparator & "*信息.xls*")
do while myname<>""
     with Workbooks.Open(ThisWorkbook.Path & Application.PathSeparator & myname, ReadOnly:=True)
           你要操作的代码。
           .close fasle
     end with
myname=dir
loop

跳转到最佳答案楼层

yyyydddd8888

Workbooks.Open(ThisWorkbook.Path & Application.PathSeparator & "分货信息.xlsx", ReadOnly:=True)
因为workbooks.open 不支持通配符，可以换用DIR，可以用通配符得到文件名。
改为：
myname= dir(ThisWorkbook.Path & Application.PathSeparator & "*信息.xls*")
do while myname<>""
     with Workbooks.Open(ThisWorkbook.Path & Application.PathSeparator & myname, ReadOnly:=True)
           你要操作的代码。
           .close fasle
     end with
myname=dir
loop