Невозможно сохранить листы в Excel - PullRequest
0 голосов
/ 27 октября 2019

Я пытаюсь скопировать группу рабочих листов из текущей рабочей книги и сохранить их в новой рабочей книге, используя следующую подпрограмму.

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
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...