複製活動工作表

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 

這說明你是如何找到活動工作表在每個打開的工作簿的名稱。你應該可以從那裏拿走它。