Question

excel中用vba激活一个工作簿

打开的多个工作簿，用vba代码激活一个工作簿，这个工作簿的名称只能知道前面几个字，比如“材料报表2018-12”这个工作簿，因为这个工作簿前面四个字是固定的“材料报表”后面的日期是不固定的。所以vba怎么激活带有“材料”2字的那个工作簿？。谢谢回答！
每次打开的表里当然只有一个带“材料”2字的啦，以后再用宏的时候就不是这一个表，可能是“材料报表2018-10”或“材料报表2018-11”，但每次只有一个这样的表和别的表

Answer 1

方法：循环所有工作簿，检查工作簿名称，前面有“材料”二字时，就激活这个工作簿。具体代码如下：

Sub 激活材料工作簿()
Dim Wo As Workbook
For Each Wo In Workbooks
   If Wo.Name Like "材料*" Then
      Wo.Activate
      Exit Sub
   End If
Next
End Sub

Answer 2

for each sh in wb.sheets
if sh.name like "*材料报表2018-*" then sh.activate
next

核心代码就是这个。其它部分你自已去Excelhome论坛搜索去。

例如：

Answer 3

Sub 激活一个工作簿()

Dim WorkbookNum%
Dim i%
Dim WorkbookNam As String

WorkbookNum = Workbooks.Count

For i = 1 To WorkbookNum
    WorkbookNam = Workbooks(i).Name
    
    If WorkbookNam Like "*材料*" Then Workbooks(i).Activate

Next i

End Sub

Answer 4

Sub jh()
Dim i%
For i = 1 To Sheets.Count
If Replace(Sheets(i).Name, "材料", "") <> Sheets(i).Name Then Sheets(i).Select
Next
End Sub
Sub JHDQ()
Dim i%
For i = 1 To Workbooks.Count
If Replace(Workbooks(i).Name, "材料", "") <> Workbooks(i).Name Then Workbooks(i).Activate
Next
End Sub
不清楚你想怎么激活，给你激活的是最后一个，不清楚你想要工作薄还是工作表，两个都给你了。

Answer 5

激活只能是一个吧？激活带有“材料”2字的那个工作簿，这样不会有很多这样的工作薄？

追问

每次打开的表里当然只有一个带“材料”2字的啦，以后再用宏的时候就不是这一个表，可能是“材料报表2018-10”或“材料报表2018-11”，但每次只有一个这样的表和别的表

追答

这个写一下代码就好了