Сохранить Specifi c Листы в новую книгу

Question

Может ли кто-нибудь помочь сохранить лист c в новую рабочую книгу, используя Excel VBA. У меня есть несколько листов с именами «Лист1», «Лист2», «Лист3» и т. Д.

Я бы хотел сохранить его одним щелчком мыши.

Пока что это то, что у меня есть, но я получаю предупреждение «Метод Сохранить как книгу объекта не удалось»:

Sub SaveSplitSheet()
    Dim ws As Worksheet
    Dim wb As Workbook

    For Each ws In ThisWorkbook.Sheets
        If ws.Name Like "Sheet" & "*" Then
                Application.DisplayAlerts = False
                ws.Copy
                ActiveWorkbook.SaveAs "/Users/Tukiyem/Downloads", FileFormat:=56
                ActiveWorkbook.Close SaveChanges:=True

                Application.DisplayAlerts = True
        End If
    Next
End Sub 

только что нашел ответ -> приведенный ниже код для сохранения нескольких листы, содержащие название «лист ....» в одной книге и сохраняющие ее как отдельную книгу

Sub SaveAsInLoop()
Dim ws As Worksheet
    For Each ws In ThisWorkbook.Sheets
        If ws.Name Like "Sheet" & "*" Then
                Application.DisplayAlerts = False
                ws.Copy
                ActiveWorkbook.SaveAs "/Users/Tukiyem/Downloads/" & ws.Name & ".xlsx", FileFormat:=51
                ActiveWorkbook.Close SaveChanges:=True
                Application.DisplayAlerts = True
        End If
    Next
End Sub

Answer 1

Я бы немного подправил ваш код к For...Next l oop, а не For Each...Next, что позволит оценить, какой числовой лист мы находимся в l oop.

Этот код является примером того, как l oop через рабочие листы. Он напечатает каждое имя листа в окно немедленного VBE.

Просто измените свой код SaveAs в пределах l oop.

Sub SaveAsInLoop()
Dim SheetNumber As Long

For SheetNumber = 1 To ThisWorkbook.Sheets.Count
    Debug.Print Sheets("Sheet" & SheetNumber).Name
Next SheetNumber

End Sub