Комментарии - brutal_shit - Профиль вебмастера - Форум об интернет-маркетинге

Разбить большой xls-файл на много небольших

5 июня 2010, 10:11

DocWeb:
правильно подозреваете.

открываете макрос на запись.
выделяете 1500 строк.
вырезаете.
добавляете лист в свой файл.
переходите на этот лист.
вставляете строки.
правая кнопка на листе - переместить - в новую книгу.
переходите на свой первый лист, там где данные.
заканчиваете запись макроса.
цепляете копку, горячие клавиши.

и работаете))

зы. проверяйте перед использованием. копию изначального сохраните))
выше - набросок. могут быть отличия и улучшения)

спасибо. но так он делает это только с теми строками, которые я в процессе записи макроса сделал. т.е. так мне очень много раз придётся вырезать-вставлять, а ещё и сохранить надо каждый файл...

brutal_shit добавил 05.06.2010 в 14:30

сделал по-ламерски такое вот. Rows("от:до") каждый раз на 1500 увеличиваются. и таких кусков всего 40🤪

главное - работает)))) но если кто-то может это упростить - буду очччч рад))))☝

Sub Макрос1()

'

' Макрос1 Макрос

' Макрос записан 05.06.2010 (Alexey)

'



'

    Rows("1:1500").Select

    Selection.Copy

    Sheets("Лист1").Select

    Sheets.Add

    ActiveSheet.Paste

    ActiveSheet.Select

    Application.CutCopyMode = False

    ActiveSheet.Move

    ActiveWorkbook.SaveAs Filename:="C:\shit\basa_1.xls", FileFormat:=xlNormal _

        , Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _

        CreateBackup:=False

    Windows("shit.xls").Activate

    

    Rows("1501:3000").Select

    Selection.Copy

    Sheets("Лист1").Select

    Sheets.Add

    ActiveSheet.Paste

    ActiveSheet.Select

    Application.CutCopyMode = False

    ActiveSheet.Move

    ActiveWorkbook.SaveAs Filename:="C:\shit\basa_2.xls", FileFormat:=xlNormal _

        , Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _

        CreateBackup:=False

    Windows("shit.xls").Activate