Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как разбить один лист 23000 строк на много листов(файлов) по 200 строк в каждом / 23 сообщений из 23, страница 1 из 1
06.08.2009, 13:46
    #36129932
Дениссимо
Дениссимо
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как разбить один лист 23000 строк на много листов(файлов) по 200 строк в каждом
Народ всем привет)

Если кто обладает знаниями и свободным временем просьба помочь)

Задача сугубо прикладная - есть большой файл Excel (97-2003 ) всего в нем строк 23000 и 4 колонки....нужно разбить эту каланчу на выборочное число строк, положим по 200 строк задаешь
и получаешь кучу файлов (на худой конец листов в этом файле). Информация однородна.

Ниже пример итогового файла
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.08.2009, 14:00
    #36130000
big-duke
big-duke
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как разбить один лист 23000 строк на много листов(файлов) по 200 строк в каждом
Дениссимо,

что типа
Код: plaintext
1.
2.
3.
4.
for i= 1  to EndRow Step  200 
Range("A" & i & ":A" & i+ 200 ).copy
worksheets.add
..paste
next
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.08.2009, 14:04
    #36130006
Дениссимо
Дениссимо
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как разбить один лист 23000 строк на много листов(файлов) по 200 строк в каждом
Сорь за тупой вопрос) я просто вообще близко с программингом не стоял

где этот модуль запустить?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.08.2009, 16:55
    #36130753
Дениссимо
Дениссимо
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как разбить один лист 23000 строк на много листов(файлов) по 200 строк в каждом
Подскажите пожалуйста, добрые люди)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.08.2009, 21:12
    #36131259
big-duke
big-duke
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как разбить один лист 23000 строк на много листов(файлов) по 200 строк в каждом
Дениссимо,

вы приаттачьте полный файл, а то лень генерить 23000 строк.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.08.2009, 10:59
    #36131784
Дениссимо
Дениссимо
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как разбить один лист 23000 строк на много листов(файлов) по 200 строк в каждом
big-duke, файлик целиком весит почти 2 Мб, а здесь ограничение по прикреплению файлом на 100 кб
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.08.2009, 11:27
    #36131882
big-duke
big-duke
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как разбить один лист 23000 строк на много листов(файлов) по 200 строк в каждом
Дениссимо,

ну заархивируйте его, и киньте на какой-нить файлообменник, типа www.filetut.ru .
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.08.2009, 16:09
    #36132712
Дениссимо
Дениссимо
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как разбить один лист 23000 строк на много листов(файлов) по 200 строк в каждом
Вот ссылка на файл:

http://www.ut99.ru/kompel.rar
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.08.2009, 12:49
    #36134779
Дениссимо
Дениссимо
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как разбить один лист 23000 строк на много листов(файлов) по 200 строк в каждом
Жду дальнейшей помощи)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.08.2009, 15:13
    #36135172
Deggasad
Deggasad
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как разбить один лист 23000 строк на много листов(файлов) по 200 строк в каждом
big-dukeДениссимо,

вы приаттачьте полный файл, а то лень генерить 23000 строк.

Сделай на примере каждые 2 строки, а потом только два нуля останется дописать, зачем же генерить 23000 строк, можно 230 обойтись.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.08.2009, 16:05
    #36135366
PlanB
PlanB
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как разбить один лист 23000 строк на много листов(файлов) по 200 строк в каждом
ДениссимоЖду дальнейшей помощи)за 4 дня можно было и руками управиться...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.08.2009, 13:30
    #36147560
Дениссимо
Дениссимо
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как разбить один лист 23000 строк на много листов(файлов) по 200 строк в каждом
Ребят так и управляемся в офисе каждую неделю ручками) помогите с циклом разобраться..
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.08.2009, 14:25
    #36147797
СамБамбук
СамБамбук
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как разбить один лист 23000 строк на много листов(файлов) по 200 строк в каждом
вот готовый код ... генерит файлы в ТОТ же каталог, где расположен основной файл.
открываешь свой файл, по ярлыку листа ПКМ - ИСХОДНЫЙ ТЕКСТ и вставить туду этот код

Sub wer()

n = ActiveWorkbook.Name

k = ActiveWorkbook.Path & "\"

Application.ScreenUpdating = False

Range("A65536").Select
EndRow = Selection.End(xlUp).Row

For i = 1 To EndRow Step 200
Range("A" & i & ":D" & i + 199).Copy
Workbooks.Add
ActiveSheet.Paste
Range("A").Select
ActiveWorkbook.SaveAs k & i & "-" & i + 199
ActiveWorkbook.Close
Windows(n).Activate
Next

End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.08.2009, 15:35
    #36152555
Дениссимо
Дениссимо
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как разбить один лист 23000 строк на много листов(файлов) по 200 строк в каждом
СамБамбук,

Вроде начинает разбивать, создает первую книгу - потом идет run-time error 1004. Х.з. почему..
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.08.2009, 16:45
    #36152823
СамБамбук
СамБамбук
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как разбить один лист 23000 строк на много листов(файлов) по 200 строк в каждом
эт я поторопился ...

открываешь свой файл, Alt+F11, открывается VBA-редактор, ПКМ на названии файла в окне Project -Insert-Module и вставить туду этот код
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.08.2009, 18:26
    #36157655
Дениссимо
Дениссимо
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как разбить один лист 23000 строк на много листов(файлов) по 200 строк в каждом
Теперь Run Time Error 1004, Method Range of object _ Global failed... хз короче
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.08.2009, 00:07
    #36157901
СамБамбук
СамБамбук
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как разбить один лист 23000 строк на много листов(файлов) по 200 строк в каждом
Sub wer()

n = ActiveWorkbook.Name

k = ActiveWorkbook.Path & "\"

Application.ScreenUpdating = False

Range("A65536").Select
EndRow = Selection.End(xlUp).Row

For i = 1 To EndRow Step 200
Range("A" & i & ":D" & i + 199).Copy
Workbooks.Add
ActiveSheet.Paste
Range("A1").Select 'исправлено
ActiveWorkbook.SaveAs k & i & "-" & i + 199
ActiveWorkbook.Close
Windows(n).Activate
Next

End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.08.2009, 14:54
    #36159938
Дениссимо
Дениссимо
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как разбить один лист 23000 строк на много листов(файлов) по 200 строк в каждом
СамБамбук, урааааааа!!! Спасибо Огромное)) Даже не представляешь как ты выручил. Готов поставить пиво или символически пожертвовать куда нить вебмани..Короче СУПЕР!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
27.10.2009, 07:23
    #36273826
Napaulm
Napaulm
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как разбить один лист 23000 строк на много листов(файлов) по 200 строк в каждом
Здравстуйте, может кто скажет как разбить один файл в котором допустим 10 листов, соответственно в одном файле должно получится по одному листу. И еще как автоматом задать название получаемых файлов например "текущая дата" и положить каждый файлик в определенную папку.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
27.10.2009, 09:38
    #36274013
Hugo121
Hugo121
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как разбить один лист 23000 строк на много листов(файлов) по 200 строк в каждом
как автоматом задать название получаемых файлов например "текущая дата"

Код: plaintext
1.
2.
3.
4.
5.
6.
stXLGetPath = CurrentProject.Path & "\" 'если надо, можно и ручками прописать ниже в коде
strDate = Format(Now, "yyyy.mm.dd-hh.mm.ss")
xls.SaveAs FileName:= _
        stXLGetPath & "Постоянноеназваниефайла." & "." & strDate & ".xls", _
        FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
24.08.2018, 13:22
    #39692966
topotk
topotk
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как разбить один лист 23000 строк на много листов(файлов) по 200 строк в каждом
СамБамбук,
Добрый день)) Были бы вы так добры помочь и мне?))
знаний, чтоб адаптировать код под мою, почти такую же задачу, нет, а необходимость каждый день дробить таблицы на отдельные файлы ближайшие полгода - есть))
Хелп! Пожалуйста))
Задача: таблицу в эксель из 214 строк разбить на отдельные файлы (или хотя бы листы в книге) на 214 штук. То есть каждая строка должна стать отдельным файлом (или листом независимо от содержимого.
Заранее спасибо))
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.08.2018, 23:00
    #39693172
iMrTidy
iMrTidy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как разбить один лист 23000 строк на много листов(файлов) по 200 строк в каждом
topotk,

9 лет прошло, однако... Рискну предположить, что СамБамбук вряд ли найдется.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.08.2018, 13:28
    #39693248
alecko
alecko
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как разбить один лист 23000 строк на много листов(файлов) по 200 строк в каждом
topotk,
код такой же практически
 
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
Sub wer()
dim n$, k$, i&
n = ActiveWorkbook.Name

k = ActiveWorkbook.Path & "\"

Application.ScreenUpdating = False

Range("A65536").Select
EndRow = Selection.End(xlUp).Row

For i = 1 To EndRow
ActiveSheet.Rows(i).Select
Selection.Copy
Workbooks.Add
ActiveSheet.Paste
Range("A").Select
ActiveWorkbook.SaveAs k & i 
ActiveWorkbook.Close
Windows(n).Activate
Next

End Sub

...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как разбить один лист 23000 строк на много листов(файлов) по 200 строк в каждом / 23 сообщений из 23, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 429ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2172262]:
 0ms
get settings:
 11ms
get forum list:
 14ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 32ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 61ms
get tp. blocked users:
 1ms
others: 288ms
total:  429ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]