Разделить файл Excel на несколько частей

Posted by obzor under VBA, Архив

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

Alex-roz

В excel 2007 это будет выглядеть примерно так:

Sub Макрос1()
'

Ch_Dir = "C:\temp\1\" 'Путь для сохранения файлов
x = 1
y = 500

For i = 1 To 40
    Range("A" & x & ":E" & y).Select
    Selection.Copy
    Workbooks.Add
    ActiveSheet.Paste
    
    file_name = "январь-2009-" & i & ".xlsx"
    
    ActiveWorkbook.SaveAs Filename:=Ch_Dir & file_name, FileFormat:=xlOpenXMLWorkbook _
        , CreateBackup:=False
    ActiveWindow.Close
    x = x + 500
    y = y + 500
    
Next i
End Sub

P.S. Не учитывается наличие данных в копируемых ячейках…

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

Похожие статьи

• Ping из VBA
• Progress bar или индикация выполнения макроса в Microsoft Office Excel
• Запретить ввод пробелов в ячейки Excel
• Массовое переименование label на форме
• Вынести часть текста из многострочной ячейки по условию (Excel)
• Копирование данных в Excel «отталкиваясь» от последней заполненой строки
• Вставка данных в Excel после последней заполненной ячейки
• Как в Excel посчитать количество дней, прошедших с заданного числа
• Копирование данных «отталкиваясь» от последней заполненной строки Excel
• Как вытащить URL адрес из формулы с гиперссылкой в Excel