@Kotar4ik

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

С помощью указанного ниже кода в 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
  • Вопрос задан
  • 48 просмотров
Решения вопроса 1
MAD-Kuzia
@MAD-Kuzia
Сис. админ, Программер, Эникейщик.
После Workbooks.Add xlWBATWorksheet
вставьте
ActiveSheet.Name = ThisWorkbook.ActiveSheet.Name
Ответ написан
Пригласить эксперта
Ваш ответ на вопрос

Войдите, чтобы написать ответ

Войти через центр авторизации
Похожие вопросы