excel - 复制活动工作表

Question

我有一个充满工作簿 (VBA) 的文件夹，并且我试图仅将活动工作表（所有“第一”工作表都处于活动状态）复制到新工作簿。有没有在不指定工作表名称的情况下复制活动工作表？并非文件夹中的所有“第一张”工作表都具有相同的名称，但我想要的所有工作表都是活动的。

Answer 1

简单的例子：

Sub whatAreTheyCalled()
Dim w As Workbook
Dim s As Worksheet

For Each w In Application.Workbooks
  Set s = w.ActiveSheet
  MsgBox "the active sheet is " & s.Name
Next w

End Sub

这显示了如何在每个打开的工作簿中找到活动工作表的名称。你应该可以从那里拿走它。