Как Excel документ, в котором 10000 строк, разбить по 10 строк и сохранить каждые 10 строк в отдельный файл

@Сергей11 · Регистрация: 25.01.2015

Author24 — интернет-сервис помощи студентам

Здравствуйте. Подскажите как Excel документ в котором 10000 строк разбить по 10 строк и сохранить каждые 10 строк в отдельный файл. Нашел такой код который все сохраняет, но только по одной строке:

Visual Basic

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

Подскажите пожалуйста как исправить чтобы сохранял не по одной строке, а например 10 или 20 строк в один файл.

@Alex77755 · 25.01.2015, 23:09

Ну так и выделяй не по 1 строке, а по 10 (20)!
Ну и, естественно, цикл с шагом 10 (20)

Добавлено через 3 минуты

Visual Basic

1 2	For i = 1 To Cells.SpecialCells(xlCellTypeLastCell).Row Step 10 Rows(i & ":" & i + 9).Select

@Сергей11 · 26.01.2015, 11:09 **[ТС]**

Спасибо Alex77755 за помощь. Я что-то ступил вместо Rows(i & ":" & i + 9).Select писал так Rows(i&":"&(i+9)).Select.

Добавлено через 16 минут
Сейчас каждый документы именуется как 1.csv, 11.csv, 21.csv, 31.csv и т.д. Можете еще подсказать как правильно написать чтобы убрать в конце 1 т.е чтобы было просто по порядку 1.csv, 2.csv, 3.csv, 4.csv

@Vlad999 · 26.01.2015, 13:28

как вариант ввести ещё одну переменную n=1 перед For и n=n+1 после ActiveWorkbook.Close, ну и соответственно в 9 строке i поменять на n.

@Alex77755 · 26.01.2015, 15:48

Visual Basic

1	\b" & (i-1)/10+1

@Сергей11 · 28.01.2015, 14:32 **[ТС]**

Alex77755, Можешь подсказать насчет формата. Если ставлю так

Visual Basic

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

то постоянно вылазит окно "Вы хотите сохранить изменения в файле.. ". Как сделать чтобы это окно не вылазило?

@Alex77755 · 28.01.2015, 18:55

В начале процедуры:

Visual Basic

1	Application.DisplayAlerts = False

в конце

Visual Basic

1	Application.DisplayAlerts = True

@Aisgrei · 04.02.2020, 14:59

А можете подсказать чтобы имя файла записывалось из определенной ячейки с определенным шагом?

@Сергей11 0 / 0 / 0 Регистрация: 25.01.2015 Сообщений: 16
	26.01.2015, 11:09 [ТС]	3
	Спасибо Alex77755 за помощь. Я что-то ступил вместо Rows(i & ":" & i + 9).Select писал так Rows(i&":"&(i+9)).Select. Добавлено через 16 минут Сейчас каждый документы именуется как 1.csv, 11.csv, 21.csv, 31.csv и т.д. Можете еще подсказать как правильно написать чтобы убрать в конце 1 т.е чтобы было просто по порядку 1.csv, 2.csv, 3.csv, 4.csv 0

@Vlad999 3901 / 2305 / 777 Регистрация: 02.11.2012 Сообщений: 6,137
	26.01.2015, 13:28	4
	как вариант ввести ещё одну переменную n=1 перед For и n=n+1 после ActiveWorkbook.Close, ну и соответственно в 9 строке i поменять на n. 0

@Aisgrei 0 / 0 / 0 Регистрация: 04.02.2020 Сообщений: 5
	04.02.2020, 14:59	8
	А можете подсказать чтобы имя файла записывалось из определенной ячейки с определенным шагом? 0