Разбить файл на несколько частей

[Crazy & Co.]

Здравствуйте, есть excel файл в формате XLS, в нем 3 таблицы и 1200 ячеек.

Нужно разбить его на 240 файлов (5 шт. в каждом) и сохранить в формате CSV (разделители - запятые), как это можно сделать?

[shanemac51]

сразу видно новичка
-что на входе --пример листа
-пометить как делить ячейки\строки
-есть ли текстовые
-зависимость от системного разделителя дробей
-что получить и итоге

[Crazy & Co.]

del
10 символов

[shanemac51]

За информационные услуги

вполне может быть запятая, гарантий нет

Здравствуйте, есть excel файл в формате XLS, в нем 3 таблицы и 1200 ячеек.

три таблицы, или три столбца

[Crazy & Co.]

Сообщение от shanemac51

вполне может быть запятая, гарантий нет



три таблицы, или три столбца

Три столбца.

[VictorM]

Столько "говорильни"...
Выше было предложено выложить пример ФАЙЛА а не то, что Вы написали.
И быстрее и точнее будет. Да и городить файл самому, опять что-то не так будет))
Проверено.

[Crazy & Co.]

Сообщение от VictorM

Столько "говорильни"...
Выше было предложено выложить пример ФАЙЛА а не то, что Вы написали.
И быстрее и точнее будет. Да и городить файл самому, опять что-то не так будет))
Проверено.

Вложил в старт-пост.

[R Dmitry]

Ага сейчас сделаем, а потом Вы нам вместо спасибо, эту дрянь начнете присылать

[alex77755]

можно просто тупо:

Sub QWERT()
Dim M()
Dim R, J, C
M = Range(Cells(1, 1), Cells(Cells(Rows.Count, 1).End(xlUp).Row, 3))
For R = 1 To UBound(M) Step 5
C = C + 1
    Open ActiveWorkbook.Path & "\fil" & C & ".csv" For Output As 1
        For J = R To R + 4
            Print #1, M(J, 1) & ";" & M(J, 2) & ";" & M(J, 3)
        Next J
    Close #1
Next R
End Sub

[Crazy & Co.]

Сообщение от shanemac51

сразу видно новичка
-что на входе --пример листа
-пометить как делить ячейки\строки
-есть ли текстовые
-зависимость от системного разделителя дробей
-что получить и итоге

Не буду, не бойтесь.

Сообщение от alex77755

можно просто тупо:

Sub QWERT()
Dim M()
Dim R, J, C
M = Range(Cells(1, 1), Cells(Cells(Rows.Count, 1).End(xlUp).Row, 3))
For R = 1 To UBound(M) Step 5
C = C + 1
    Open ActiveWorkbook.Path & "\fil" & C & ".csv" For Output As 1
        For J = R To R + 4
            Print #1, M(J, 1) & ";" & M(J, 2) & ";" & M(J, 3)
        Next J
    Close #1
Next R
End Sub

Спасибо.