Форум Практика оптимизации Любые вопросы от новичков по оптимизации

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

brutal_shit
На сайте с 06.05.2008
Offline
17
brutal_shit
7954

Ситуация такая.

Есть большой xls файл, 54 тысячи строк где-то. В каждой строке есть данные, от столбца А до G допустим (но может расшириться ещё и дальше).

Весит метров 70 файл, чтобы его впихнуть кое-куда, нужно разбить на маленькие, например кучка файлов по 1500 строк.

Как разбить файл xls, чтобы можно было задать кол-во строк в каждом? Подозреваю, что макросом, но не соображаю в этом:gm:

Спасибо заранее!

Регистрирую .ru домены только здесь. От 95 рублей. Удобная панель. (http://imechko.ru/registration/?friend_code=843665411769909)
DocWeb
На сайте с 23.04.2007
Offline
101
DocWeb
#1

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

открываете макрос на запись.

выделяете 1500 строк.

вырезаете.

добавляете лист в свой файл.

переходите на этот лист.

вставляете строки.

правая кнопка на листе - переместить - в новую книгу.

переходите на свой первый лист, там где данные.

заканчиваете запись макроса.

цепляете копку, горячие клавиши.

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

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

выше - набросок. могут быть отличия и улучшения)

на связи, практически онлайн. почта для связи - dlya-svyazi @ list.ru °¤•Џ•¤° Бери ношу по себе, чтоб не падать при ходьбе (с) "Брат"
brutal_shit
На сайте с 06.05.2008
Offline
17
brutal_shit
#2
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

Авторизуйтесь или зарегистрируйтесь, чтобы оставить комментарий