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

[serzav]

Очень буду благодарен если поможете.
Имеется файл на 220 тыс строк (список отелей)
Первый столбец имеет повторяющиеся поля (название города- всего около 32 тыс городов)
Необходимо разделить файл Excel на соответственно 32 тыс файлов (желательно csv или txt) по каждому городу, чтобы название файла соответствовало городу, и в файле остался только один столбец (список отелей этого города)
Примеры исходного и желаемого конечного файла в скрепке.

[makc9I]

какие нужно внести изменения в этот код:

Sub DivFile()
    Dim i As Long, s As String, ws As Worksheet
    Application.ScreenUpdating = False: Set ws = ActiveSheet
    For i = 1 To ws.UsedRange.Row + ws.UsedRange.Rows.Count - 1 Step 500
        Workbooks.Add xlWBATWorksheet: ws.Rows(i & ":" & i + 499).Copy [A1]
        s = Replace(ThisWorkbook.FullName, ".xls", "-" & (Fix(i / 500) + 1) & ".xls")
        ActiveWorkbook.SaveAs s: ActiveWorkbook.Close
    Next
End Sub

чтобы сохранить файл не как экселевский, а как dbf. Просто смена расширения не помогает, файл не читается dbf редактором после.

Проблема такова: на входе имею dbf файл с примерно 300к записями, на выходе нужны dbf файлы с 500 записями каждый, полученные разбиением этого большого файла.
Не нашел иного способа разбиения этого файла, как выгрузка в эксель. Только лишь стоит вопрос в сохранении в нужном формате. Эксель 2003 поддерживает сохранение в dbf.

[Казанский]

        ActiveWorkbook.SaveAs s, xlDBF4 'варианты: xlDBF3, xlDBF2
        ActiveWorkbook.Close

> Эксель 2003 поддерживает сохранение в dbf
Но Эксель 2003 не откроет файл с 300к записями, а Excel 2007 не умеет сохранять в DBF
Правда, есть надстройки для работы с DBF в 2007, поищите.

[R Dmitry]

алгоритм решения такой:
------
1. создаем пустой dbf с нужной структурой (можно заготовить заранее)
2. копируем этот dbf c нужным именем
3. с помощью ado заливаем в него 500 записей
4. переходим к шагу 2 пока не закончатся записи.
____________________

могу реализовать за небольшое вознаграждение.

[makc9I]

Казанский, все спокойно открывается. Макрос, который тут предлагали для разбиения работает, но файлы не являются dbf файлами, когда я просто заменяю расширение в макросе.

R Dmitry А можно это автоматизировать? Я не знаю, что такое ado. С написанием макросов под эксель вообще не знаком

[SAS888]

Посмотрите здесь.

[makc9I]

SAS888, спасибо, но у меня в распоряжении только 2003 и 2010 эксель. К тому же, как я писал выше, мой файл спокойно открывается 2003 офисом и все, что мне надо, это лишь несколько изменить выложенный выше код макроса, чтобы сохранение происходило в dbf по всем правилам(как в случае, если бы я нажал сохранить как и выбрал формат dbf), а не просто припиской расширения.
Как я понимаю, надо заменить эту строку:

s = Replace(ThisWorkbook.FullName, ".xls", "-" & (Fix(i / 500) + 1) & ".xls")

какой-то другой функцией

[R Dmitry]

сбрасывайте свой dbf мне в почту, вечером посмотрю
---------------

[makc9I]

R Dmitry, он весит 300 метров и содержит неразглашаемые данные, так что нельзя ( Могу скинуть dbf с такой же структурой, но без данных или сам впишу пару тройку рендомных данных

[Казанский]

> файлы не являются dbf файлами, когда я просто заменяю расширение в макросе
> что мне надо, это лишь несколько изменить выложенный выше код макроса, чтобы
> сохранение происходило в dbf по всем правилам(как в случае, если бы я нажал
> сохранить как и выбрал формат dbf), а не просто припиской расширения

Вы не заметили код в сообщении #33?