Как сохранить файл с сохранением названия страницы в Excel с помощью VBA?

Question

[Kotar4ik]

С помощью указанного ниже кода в VBA разбиваю весь файл на n файлом с указанным кол-вом строк. Проблема, что все созданные файлы не принимают название страницы исходного файла. Помогите, пожалуйста, как можно переписать скрипт, чтобы у всех новых файлов было тоже название странички, что и у исходного файла?

Option Explicit
Option Base 1 

Sub Border_Limit()
  Dim Limit As Integer, Count As Integer, SaveDir As String, SetTitle As Boolean
  
  Count = 1: Limit = 1000 
  SetTitle = True
  
  SaveDir = ThisWorkbook.Path 
  While Not IsEmpty(Cells(IIf(SetTitle, 2, 1), 1))
    Rows("1:" & Limit).Copy
    Workbooks.Add xlWBATWorksheet 
    ActiveSheet.Paste: Cells(1, 1).Select
    ActiveWorkbook.SaveAs Filename:=SaveDir & "\file_" & Count & ".xlsx", _
      FileFormat:=xlOpenXMLWorkbook
    ActiveWindow.Close
    Rows(IIf(SetTitle, 2, 1) & ":" & Limit).Delete Shift:=xlUp
    Count = Count + 1
  Wend: MsgBox "File separated on " & Count - 1 & " files. "
End Sub

Comments

[Денис _______________]

я немного иначе создаю файл:

НовыйПуть = Replace(ThisWorkbook.FullName, ThisWorkbook.Name, ИмяФайла)

            Application.DisplayAlerts = False                                           ' выключаем вывод предупреждений
            Sheets(новыйЛист.Name).Copy                                                 ' Копируем текущий лист в новую книгу
            ActiveWorkbook.SaveAs Filename:=НовыйПуть, _
                FileFormat:=51
            ActiveWindow.Close

по Вашему варианту
https://docs.microsoft.com/ru-ru/office/vba/api/ex...
возможно накладки из-за xlWBATWorksheet

Answer 1

[Denis]

После Workbooks.Add xlWBATWorksheet
вставьте
ActiveSheet.Name = ThisWorkbook.ActiveSheet.Name