打开一个工作表，同时运行代码打开当前路径中另一个工作表

彭泽之樽

打开一个工作表，同时运行代码打开当前路径中另一个工作表，由于工作表名不固定，如何在代码中使用通配符？请高手指点一下，谢谢了。

狂人风范

好像是“第三方产品订单明细报表”  & * &“.xlsx”

有待测试

彭泽之樽

狂人风范 发表于 2017-7-21 11:36
好像是“第三方产品订单明细报表”  & * &“.xlsx”

有待测试

好像不行，我看别处说是用like，不知怎么用，再研究一下。

狂人风范

彭泽之樽 发表于 2017-7-21 11:39
好像不行，我看别处说是用like，不知怎么用，再研究一下。

前面名字一样？

彭泽之樽

狂人风范 发表于 2017-7-21 12:47
前面名字一样？

前面名字都一样，工作表的名字是自营产品订单明细报表加上下载时间，第三方产品的也一样

彭泽之樽

狂人风范 发表于 2017-7-21 12:47
前面名字一样？

Private Sub workbook_Open()
Dim ziying As Workbook
Dim sanfang As Workbook
myname = Dir(ThisWorkbook.Path & "\" & "自营产品*.xlsx")
If myname <> "" Then Workbooks.Open ThisWorkbook.Path & "\" & myname
myname = Dir(ThisWorkbook.Path & "\" & "第三方产品*.xlsx")
If myname <> "" Then Workbooks.Open ThisWorkbook.Path & "\" & myname
End Sub

这样就成功了

狂人风范

彭泽之樽 发表于 2017-7-21 13:15
Private Sub workbook_Open()
Dim ziying As Workbook
Dim sanfang As Workbook

学习一下，还是刚学