Question

我有一个代码可以将指定的工作表保存到新工作簿中。我遇到的问题是忽略了我想保存的图表。如果我将“图1”（图表的名称）放到数组列表中，我会收到一个错误：“下标超出范围”。如果我将“图1”更改为图表的实际名称，我会得到相同的错误。

我正在假设工作表（数组（A，B，C））。复制不是我正在寻找的代码。

要在图表上复制的想法吗？

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使用数组保存工作表

1 个答案: