Последние записи

made in programmersforum 6

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

13th
Апр

Разделить файл на несколько частей с помощью макроса в excel

Posted by Chas under Basic

Подскажите, пожалуйста, как программно сделать вот такую процедурку:
имеется файл Excel состоит из 4 столбцов и 20 000 строк. Необходимо макросом разбить его на части по 500 строк каждый. после разбивки должно получиться 40 файлов. Скажем, имеется файл январь-2009.хls
после разбивки нужно что бы получилось январь-2009-1.xls, январь-2009-2.xls……………….январь-2009-40.xls

SAS888
Не зависимо от количества строк, можно так:

Sub DivFile()

    Dim i As Long, s As String, ws As Worksheet

    Application.ScreenUpdating = False: Set ws = ActiveSheet

    For i = 1 To ws.UsedRange.Row + ws.UsedRange.Rows.Count - 1 Step 500

        Workbooks.Add xlWBATWorksheet: ws.Rows(i & ":" & i + 499).Copy [A1]

        s = Replace(ThisWorkbook.FullName, ".xls", "-" & (Fix(i / 500) + 1) & ".xls")

        ActiveWorkbook.SaveAs s: ActiveWorkbook.Close

    Next

End Sub

тема на форуме