VBA 用数组保存工作表

Question

我有一个代码可以将指定的工作表保存到新的工作簿中。我遇到的问题是它忽略了我想保存的图表。如果我将 "Figure 1"（图表的名称）放入数组列表，我会得到一个错误："Subscript out of range"。如果我将 "Figure 1" 更改为图表上的实际名称，我会得到同样的错误。

我假设 Worksheets(Array(A,B,C)).Copy 不是我要查找的代码。

有什么想法可以复制图表吗？

Sub SavSheets()
 Dim InitFileName As String, fileSaveName As String

fileSaveName = "C:\Desktop\"
Worksheets(Array("Table 1", "Table 2", "Figure 1", "Table 3")).Copy
Set wbNew = ActiveWorkbook
With wbNew
    .SaveAs fileSaveName
    .Close
End With
End Sub

Answer 1

将 Worksheets 更改为 Sheets。

Sheets(Array("Table 1", "Table 2", "Figure 1", "Table 3")).Copy

VBA 用数组保存工作表

VBA Save worksheets with array

vba

excel

excel-2007