Код VBA, чтобы выбрать определенные листы в Excel и сохранить как новую книгу?

Question

Можно ли использовать VBA для выбора определенных таблиц в книге Excel и сохранения в виде нового файла книги?

Answer 1

Да, вот образец.

Sub Sheet_SaveAs()
  Dim wb As Workbook
  Sheets("Sheet1").Copy      
  Set wb = ActiveWorkbook      
  With wb
    .SaveAs ThisWorkbook.Path & "\Workbookname.xlsx"
    '.Close False
  End With
End Sub

^{Источник}

Answer 2

Спасибо Петр. Мне удалось взломать код ниже, записав себя и погуглив остальные, так как мне нужно было сохранить несколько книг из одной и автоматически добавить дату. Кажется, это работает.

Sub Seperate_Sheets()

Dim Path1 As String
Dim Path2 As String
Dim Path3 As String

Path1 = ActiveWorkbook.Path & "\" & "Tracker 1" & Format(Now, " dd-mm-yyyy ")
Path2 = ActiveWorkbook.Path & "\" & "Tracker 2" & Format(Now, " dd-mm-yyyy ")
Path3 = ActiveWorkbook.Path & "\" & "Tracker 3" & Format(Now, " dd-mm-yyyy ")

Sheets(Array("sheet1", "sheet2", "sheet3")).Move
    ActiveWorkbook.SaveAs Filename:=Path1, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
    ActiveWindow.Close

Sheets(Array("sheet3", "sheet4", "sheet5")).Move
    ActiveWorkbook.SaveAs Filename:=Path2, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
    ActiveWindow.Close

Sheets(Array("sheet6", "sheet7", "sheet8")).Move
    ActiveWorkbook.SaveAs Filename:=Path3, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
    ActiveWindow.Close

End Sub