Я пытаюсь скопировать группу рабочих листов из текущей рабочей книги и сохранить их в новой рабочей книге, используя следующую подпрограмму.
worksheets(Array("Sheet1", "Sheet2", "Sheet4")).Copy
With ActiveWorkbook
.SaveAs Filename:=Environ("TEMP") & "\New3.xlsx", FileFormat:=xlOpenXMLWorkbook
.Close SaveChanges:=False
End With
Однако ничего не происходит. От запуска отладчика я заметил, что он возвращается к основной подпрограмме после выполнения первой строки.
Я также пытался использовать имя рабочих листов
worksheets(Array("NestP", "NestR")).Copy