Как разбить один лист 23000 строк на много листов(файлов) по 200 строк в каждом / Microsoft Office

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как разбить один лист 23000 строк на много листов(файлов) по 200 строк в каждом

23 сообщений из 23, страница 1 из 1

Как разбить один лист 23000 строк на много листов(файлов) по 200 строк в каждом

#36129932

Дениссимо

Гость

Народ всем привет)

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

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

Ниже пример итогового файла

...

Рейтинг:

0 / 0

06.08.2009, 13:46

| Ответить | Цитировать | Написать

Как разбить один лист 23000 строк на много листов(файлов) по 200 строк в каждом

#36130000

big-duke

Участник

Сообщения: 6 245

Рейтинг: 0 / 0

Дениссимо,

что типа

Код: 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:00

| Ответить | Цитировать | Написать

Как разбить один лист 23000 строк на много листов(файлов) по 200 строк в каждом

#36130006

Дениссимо

Гость

Сорь за тупой вопрос) я просто вообще близко с программингом не стоял

где этот модуль запустить?

...

Рейтинг:

0 / 0

06.08.2009, 14:04

| Ответить | Цитировать | Написать

Как разбить один лист 23000 строк на много листов(файлов) по 200 строк в каждом

#36130753

Дениссимо

Гость

Подскажите пожалуйста, добрые люди)

...

Рейтинг:

0 / 0

06.08.2009, 16:55

| Ответить | Цитировать | Написать

Как разбить один лист 23000 строк на много листов(файлов) по 200 строк в каждом

#36131259

big-duke

Участник

Сообщения: 6 245

Рейтинг: 0 / 0

Дениссимо,

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

...

Рейтинг:

0 / 0

06.08.2009, 21:12

| Ответить | Цитировать | Написать

Как разбить один лист 23000 строк на много листов(файлов) по 200 строк в каждом

#36131784

Дениссимо

Гость

big-duke, файлик целиком весит почти 2 Мб, а здесь ограничение по прикреплению файлом на 100 кб

...

Рейтинг:

0 / 0

07.08.2009, 10:59

| Ответить | Цитировать | Написать

Как разбить один лист 23000 строк на много листов(файлов) по 200 строк в каждом

#36131882

big-duke

Участник

Сообщения: 6 245

Рейтинг: 0 / 0

Дениссимо,

ну заархивируйте его, и киньте на какой-нить файлообменник, типа www.filetut.ru .

...

Рейтинг:

0 / 0

07.08.2009, 11:27

| Ответить | Цитировать | Написать

Как разбить один лист 23000 строк на много листов(файлов) по 200 строк в каждом

#36132712

Дениссимо

Гость

Вот ссылка на файл:

http://www.ut99.ru/kompel.rar

...

Рейтинг:

0 / 0

07.08.2009, 16:09

| Ответить | Цитировать | Написать

Как разбить один лист 23000 строк на много листов(файлов) по 200 строк в каждом

#36134779

Дениссимо

Гость

Жду дальнейшей помощи)

...

Рейтинг:

0 / 0

10.08.2009, 12:49

| Ответить | Цитировать | Написать

Как разбить один лист 23000 строк на много листов(файлов) по 200 строк в каждом

#36135172

Deggasad

Участник

Откуда: Воронеж

Сообщения: 3 509

Рейтинг: 0 / 0

big-dukeДениссимо,

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

Сделай на примере каждые 2 строки, а потом только два нуля останется дописать, зачем же генерить 23000 строк, можно 230 обойтись.

...

Рейтинг:

0 / 0

10.08.2009, 15:13

| Ответить | Цитировать | Написать

Как разбить один лист 23000 строк на много листов(файлов) по 200 строк в каждом

#36135366

PlanB

Участник

Откуда: Moscow

Сообщения: 2 731

Рейтинг: 0 / 0

ДениссимоЖду дальнейшей помощи)за 4 дня можно было и руками управиться...

...

Рейтинг:

0 / 0

10.08.2009, 16:05

| Ответить | Цитировать | Написать

Как разбить один лист 23000 строк на много листов(файлов) по 200 строк в каждом

#36147560

Дениссимо

Гость

Ребят так и управляемся в офисе каждую неделю ручками) помогите с циклом разобраться..

...

Рейтинг:

0 / 0

17.08.2009, 13:30

| Ответить | Цитировать | Написать

Как разбить один лист 23000 строк на много листов(файлов) по 200 строк в каждом

#36147797

СамБамбук

Гость

вот готовый код ... генерит файлы в ТОТ же каталог, где расположен основной файл.
открываешь свой файл, по ярлыку листа ПКМ - ИСХОДНЫЙ ТЕКСТ и вставить туду этот код

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

17.08.2009, 14:25

| Ответить | Цитировать | Написать

Как разбить один лист 23000 строк на много листов(файлов) по 200 строк в каждом

#36152555

Дениссимо

Гость

СамБамбук,

Вроде начинает разбивать, создает первую книгу - потом идет run-time error 1004. Х.з. почему..

...

Рейтинг:

0 / 0

19.08.2009, 15:35

| Ответить | Цитировать | Написать

Как разбить один лист 23000 строк на много листов(файлов) по 200 строк в каждом

#36152823

СамБамбук

Гость

эт я поторопился ...

открываешь свой файл, Alt+F11, открывается VBA-редактор, ПКМ на названии файла в окне Project -Insert-Module и вставить туду этот код

...

Рейтинг:

0 / 0

19.08.2009, 16:45

| Ответить | Цитировать | Написать

Как разбить один лист 23000 строк на много листов(файлов) по 200 строк в каждом

#36157655

Дениссимо

Гость

Теперь Run Time Error 1004, Method Range of object _ Global failed... хз короче

...

Рейтинг:

0 / 0

21.08.2009, 18:26

| Ответить | Цитировать | Написать

Как разбить один лист 23000 строк на много листов(файлов) по 200 строк в каждом

#36157901

СамБамбук

Гость

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

22.08.2009, 00:07

| Ответить | Цитировать | Написать

Как разбить один лист 23000 строк на много листов(файлов) по 200 строк в каждом

#36159938

Дениссимо

Гость

СамБамбук, урааааааа!!! Спасибо Огромное)) Даже не представляешь как ты выручил. Готов поставить пиво или символически пожертвовать куда нить вебмани..Короче СУПЕР!

...

Рейтинг:

0 / 0

24.08.2009, 14:54

| Ответить | Цитировать | Написать

Как разбить один лист 23000 строк на много листов(файлов) по 200 строк в каждом

#36273826

Napaulm

Гость

Здравстуйте, может кто скажет как разбить один файл в котором допустим 10 листов, соответственно в одном файле должно получится по одному листу. И еще как автоматом задать название получаемых файлов например "текущая дата" и положить каждый файлик в определенную папку.

...

Рейтинг:

0 / 0

27.10.2009, 07:23

| Ответить | Цитировать | Написать

Как разбить один лист 23000 строк на много листов(файлов) по 200 строк в каждом

#36274013

Hugo121

Гость

как автоматом задать название получаемых файлов например "текущая дата"

Код: 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

27.10.2009, 09:38

| Ответить | Цитировать | Написать

Период между сообщениями больше года.

Как разбить один лист 23000 строк на много листов(файлов) по 200 строк в каждом

#39692966

topotk

Гость

СамБамбук,
Добрый день)) Были бы вы так добры помочь и мне?))
знаний, чтоб адаптировать код под мою, почти такую же задачу, нет, а необходимость каждый день дробить таблицы на отдельные файлы ближайшие полгода - есть))
Хелп! Пожалуйста))
Задача: таблицу в эксель из 214 строк разбить на отдельные файлы (или хотя бы листы в книге) на 214 штук. То есть каждая строка должна стать отдельным файлом (или листом независимо от содержимого.
Заранее спасибо))

...

Рейтинг:

0 / 0

24.08.2018, 13:22

| Ответить | Цитировать | Написать

Как разбить один лист 23000 строк на много листов(файлов) по 200 строк в каждом

#39693172

iMrTidy

Участник

Сообщения: 775

Рейтинг: 0 / 0

topotk,

9 лет прошло, однако... Рискну предположить, что СамБамбук вряд ли найдется.

...

Рейтинг:

0 / 0

24.08.2018, 23:00

| Ответить | Цитировать | Написать

Как разбить один лист 23000 строк на много листов(файлов) по 200 строк в каждом

#39693248

alecko

Участник

Откуда: Башкирия

Сообщения: 852

Рейтинг: 0 / 0

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

25.08.2018, 13:28

| Ответить | Цитировать | Написать

23 сообщений из 23, страница 1 из 1

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=61&msg=36135172&tid=2172262]:	0ms
get settings:	11ms
get forum list:	14ms
check forum access:	4ms
check topic access:	4ms
track hit:	52ms
get topic data:	11ms
get forum data:	3ms
get page messages:	64ms
get tp. blocked users:	1ms
others:	14ms

total:	178ms