|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
25.01.2015, 23:01 | #1 |
Новичок
Джуниор
Регистрация: 25.01.2015
Сообщений: 2
|
Как выделить и cкопировать по 10 строк?
Здравствуйте. Подскажите как Excel документ в котором 10000 строк разбить по 10 строк и сохранить каждые 10 строк в отдельный файл. Нашел такой код который все сохраняет, но только по одной строке:
Код HTML:
Sub beereator() Application.ScreenUpdating = False For i = 1 To Cells.SpecialCells(xlCellTypeLastCell).Row Rows(i).Select Selection.Cut Workbooks.Add ActiveSheet.Paste ActiveWorkbook.SaveAs Filename:= _ "C:\Users\Desktop\b" & i & ".csv", FileFormat:=xlNormal 'файлы имунуются b1, b2, b3 и кладутся в корневой каталог ActiveWorkbook.Close Next Application.ScreenUpdating = False End Sub |
25.01.2015, 23:47 | #2 |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
Код:
webmoney: E265281470651 Z422237915069 R418926282008
|
28.01.2015, 14:40 | #3 |
Новичок
Джуниор
Регистрация: 25.01.2015
Сообщений: 2
|
Можете еще подсказать насчет формата. Если ставлю так
Код HTML:
Sub beereator() Application.ScreenUpdating = False For i = 1 To Cells.SpecialCells(xlCellTypeLastCell).Row Step 200 Rows(i & ":" & i + 200).Select Selection.Cut Workbooks.Add ActiveSheet.Paste ActiveWorkbook.SaveAs Filename:= "C:\Users\list" & i \ 200 & ".csv", FileFormat:=6 'файлы имунуются b1, b2, b3 и кладутся в корневой каталог ActiveWorkbook.Close Next Application.ScreenUpdating = False End Sub |
28.01.2015, 14:46 | #4 |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
Код:
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Найти и cкопировать фаил .txt в Memo1 | Fahman | Общие вопросы Delphi | 16 | 27.12.2013 08:23 |
Cкопировать нужные символы. | develsnik | Общие вопросы Delphi | 6 | 14.03.2013 19:21 |
Как в StringGrid выделить несколько строк?!!! | Екатерина_21 | C++ Builder | 1 | 10.10.2011 06:53 |
Выделить диапазон строк | vefer | Microsoft Office Excel | 6 | 03.02.2011 13:10 |
Cкопировать текст из word | larin1974 | Общие вопросы Delphi | 1 | 23.12.2009 20:25 |