复制活动工作表

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

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