VBA 배열로 워크 시트 저장

Question

지정된 워크 시트를 새 통합 문서에 저장하는 코드가 있습니다. 내가 가지고있는 문제는 내가 저장하고 싶은 차트를 무시한다는 것입니다. "그림 1"(차트의 이름)을 배열 목록에 넣으면 오류가 발생합니다 : "아래 첨자가 범위를 벗어났습니다." "그림 1"을 차트의 실제 이름으로 변경하면 같은 오류가 발생합니다.

워크 시트 (Array (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