Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/как разделить файл Excel(Прайс-лист)на несколько файлов? - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » как разделить файл Excel(Прайс-лист)на несколько файлов? (Макросы Sub)
как разделить файл Excel(Прайс-лист)на несколько файлов?
Stepan096 Дата: Среда, 20.11.2013, 00:21 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 20% ±

Excel 2007
Добрый вечер!Можете мне подсказать, как разделить файл Excel(Прайс-лист)на несколько файлов?К примеру : есть файл Excel на 1000 строк, мне нужно 4 файла Excel по 250 строк.
Я не могу просто копировать и создавать файлы- это очень долго, у меня прайсы по 600000 строк, их надо делить на много частей, и он не один.Если Вам не сложно, можете ответить?
Если я не правильно создал тему, простите.Я первый раз на этом сайте создаю тему.


Сообщение отредактировал Stepan096 - Среда, 20.11.2013, 00:23
 
Ответить
СообщениеДобрый вечер!Можете мне подсказать, как разделить файл Excel(Прайс-лист)на несколько файлов?К примеру : есть файл Excel на 1000 строк, мне нужно 4 файла Excel по 250 строк.
Я не могу просто копировать и создавать файлы- это очень долго, у меня прайсы по 600000 строк, их надо делить на много частей, и он не один.Если Вам не сложно, можете ответить?
Если я не правильно создал тему, простите.Я первый раз на этом сайте создаю тему.
Автор - Stepan096
Дата добавления - 20.11.2013 в 00:21
Serge_007 Дата: Среда, 20.11.2013, 00:53 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
Цитата Stepan096, 20.11.2013 в 00:21, в сообщении № 1
как разделить файл Excel(Прайс-лист)на несколько файлов?
Макросом. По VBA есть соответствующий раздел на форуме

ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
Сообщение
Цитата Stepan096, 20.11.2013 в 00:21, в сообщении № 1
как разделить файл Excel(Прайс-лист)на несколько файлов?
Макросом. По VBA есть соответствующий раздел на форуме
Автор - Serge_007
Дата добавления - 20.11.2013 в 00:53
Stepan096 Дата: Среда, 20.11.2013, 13:08 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 20% ±

Excel 2007
Цитата Serge_007, 20.11.2013 в 00:53, в сообщении № 2
По VBA есть соответствующий раздел на форуме

я весь VBA проверил, и такого раздела не нашел...
[moder]Тему перенесла[/moder]
 
Ответить
Сообщение
Цитата Serge_007, 20.11.2013 в 00:53, в сообщении № 2
По VBA есть соответствующий раздел на форуме

я весь VBA проверил, и такого раздела не нашел...
[moder]Тему перенесла[/moder]
Автор - Stepan096
Дата добавления - 20.11.2013 в 13:08
KuklP Дата: Среда, 20.11.2013, 16:14 | Сообщение № 4
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
Цитата Stepan096, 20.11.2013 в 13:08, в сообщении № 3
и такого раздела не нашел...

Это и есть раздел по ВБА. Можете убедиться, прочитав название. Могу дать ссылку на похожую тему. Только там данные по листам надо было разнести:
http://forum.msexcel.ru/index.php/topic,8683.msg45151.html#msg45151
Сможете переделать - хорошо. Нет - не обессудьте.

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728
 
Ответить
Сообщение
Цитата Stepan096, 20.11.2013 в 13:08, в сообщении № 3
и такого раздела не нашел...

Это и есть раздел по ВБА. Можете убедиться, прочитав название. Могу дать ссылку на похожую тему. Только там данные по листам надо было разнести:
http://forum.msexcel.ru/index.php/topic,8683.msg45151.html#msg45151
Сможете переделать - хорошо. Нет - не обессудьте.
Автор - KuklP
Дата добавления - 20.11.2013 в 16:14
Stepan096 Дата: Четверг, 21.11.2013, 00:25 | Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 20% ±

Excel 2007
Цитата KuklP, 20.11.2013 в 16:14, в сообщении № 4
Сможете переделать - хорошо. Нет - не обессудьте.

к сожалению не разобрался...но все равно спасибо!буду дальше искать..
 
Ответить
Сообщение
Цитата KuklP, 20.11.2013 в 16:14, в сообщении № 4
Сможете переделать - хорошо. Нет - не обессудьте.

к сожалению не разобрался...но все равно спасибо!буду дальше искать..
Автор - Stepan096
Дата добавления - 21.11.2013 в 00:25
Stepan096 Дата: Четверг, 21.11.2013, 00:59 | Сообщение № 6
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 20% ±

Excel 2007
дааааа!!!!
я нашел)если кому надо, вот макрос)
Const ROWS_IN_PART = 500 'число строк в части файла
[vba]
Код

Sub николай100()
Dim i&, j&, ws As Worksheet, nm$
Set ws = ActiveSheet
nm = Left(ActiveWorkbook.FullName, InStrRev(ActiveWorkbook.FullName, ".") - 1) & "_"
Application.ScreenUpdating = False
For i = 1 To ActiveSheet.UsedRange.Rows.Count Step ROWS_IN_PART
With Workbooks.Add(xlWBATWorksheet)
Range(ws.Rows(i), ws.Rows(i + ROWS_IN_PART - 1)).Copy ActiveCell
j = j + 1
.Close True, nm & Format(j, "000")
End With
Next
Application.ScreenUpdating = True
End Sub
[/vba]


Сообщение отредактировал Serge_007 - Четверг, 21.11.2013, 08:45
 
Ответить
Сообщениедааааа!!!!
я нашел)если кому надо, вот макрос)
Const ROWS_IN_PART = 500 'число строк в части файла
[vba]
Код

Sub николай100()
Dim i&, j&, ws As Worksheet, nm$
Set ws = ActiveSheet
nm = Left(ActiveWorkbook.FullName, InStrRev(ActiveWorkbook.FullName, ".") - 1) & "_"
Application.ScreenUpdating = False
For i = 1 To ActiveSheet.UsedRange.Rows.Count Step ROWS_IN_PART
With Workbooks.Add(xlWBATWorksheet)
Range(ws.Rows(i), ws.Rows(i + ROWS_IN_PART - 1)).Copy ActiveCell
j = j + 1
.Close True, nm & Format(j, "000")
End With
Next
Application.ScreenUpdating = True
End Sub
[/vba]
Автор - Stepan096
Дата добавления - 21.11.2013 в 00:59
Константин Дата: Понедельник, 13.10.2014, 21:07 | Сообщение № 7
Группа: Гости
А как сохранить все это добро в CSV формате? Подскажите пожалуйста..!
[moder]Подсказываю - вот здесь написано, что нужно сделать для начала.
 
Ответить
СообщениеА как сохранить все это добро в CSV формате? Подскажите пожалуйста..!
[moder]Подсказываю - вот здесь написано, что нужно сделать для начала.
Автор - Константин
Дата добавления - 13.10.2014 в 21:07
Мир MS Excel » Вопросы и решения » Вопросы по VBA » как разделить файл Excel(Прайс-лист)на несколько файлов? (Макросы Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!