Сохранение RecordSet в csv или xml

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Сохранение RecordSet в csv или xml (Макросы/Sub)

TD_MElec

Дата: Понедельник, 21.03.2022, 10:48 | Сообщение № 1

Группа: Пользователи

Ранг: Участник

Сообщений: 73

Репутация: 1 ±

Замечаний: 0% ±

Excel 2019

Доброго дня.

Возникла потребность сохранять выгрузки из sql. Выгрузка содержит более млн строк, поэтому excel не катит. На примете csv (предпочтительней) или xml файлы.
Для сохранения в csv пытался использовать код: [vba]

Код

CSVData = RecordsetToCSV(oRS, True)

    Open "C:\MyFileName.csv" For Binary Access Write As #1
        Put #1, , CSVData
    Close #1

Public Function RecordsetToCSV(oRS, _
        Optional ShowColumnNames As Boolean = True, _
        Optional NULLStr As String = "") As String
    Dim K As Long, RetStr As String
    If ShowColumnNames Then
        For K = 0 To oRS.Fields.Count - 1
            RetStr = RetStr & ",""" & oRS.Fields(K).Name & """"
        Next K
        RetStr = Mid(RetStr, 2) & vbNewLine
    End If

    RetStr = RetStr & """" & oRS.GetString(adClipString, -1, """,""", """" & vbNewLine & """", NULLStr)
    RetStr = Left(RetStr, Len(RetStr) - 3)

    RecordsetToCSV = RetStr
End Function

[/vba] Но возникает ошибка "Аргументы имеют неверный тип, выходят за пределы допустимого диапазона или вступают в конфликт друг с другом" на строке: [vba]

Код

RetStr = RetStr & """" & oRS.GetString(adClipString, -1, """,""", """" & vbNewLine & """", NULLStr)

[/vba]Да и кажется мне, что этот вариант будет оч долгим, по сравнению со следующим:
Команда: [vba]

Код

myRecordset.Save "C:\yourFile.xml", adPersistXML

[/vba] Отлично, быстро сохраняет в файл, НО потом у меня ни как не получается прочитать этот файл .notepad++ открывает одни кракозябры, перепробовал много разных кодировок, ничего не получается. Пытался подключиться PowerQwery, так же безрезультатно, выдает ошибку.

Код

RetStr = RetStr & """" & oRS.GetString(adClipString, -1, """,""", """" & vbNewLine & """", NULLStr)

[/vba]Да и кажется мне, что этот вариант будет оч долгим, по сравнению со следующим:
Команда: [vba]

Код

myRecordset.Save "C:\yourFile.xml", adPersistXML

Сообщение отредактировал TD_MElec - Понедельник, 21.03.2022, 10:54

Ответить

СообщениеДоброго дня.

Возникла потребность сохранять выгрузки из sql. Выгрузка содержит более млн строк, поэтому excel не катит. На примете csv (предпочтительней) или xml файлы.
Для сохранения в csv пытался использовать код: [vba]

Код

RetStr = RetStr & """" & oRS.GetString(adClipString, -1, """,""", """" & vbNewLine & """", NULLStr)

[/vba]Да и кажется мне, что этот вариант будет оч долгим, по сравнению со следующим:
Команда: [vba]

Код

myRecordset.Save "C:\yourFile.xml", adPersistXML

Автор - TD_MElec
Дата добавления - 21.03.2022 в 10:48

TD_MElec

Дата: Понедельник, 21.03.2022, 20:24 | Сообщение № 2

Группа: Пользователи

Ранг: Участник

Сообщений: 73

Репутация: 1 ±

Замечаний: 0% ±

Excel 2019

Удалил все параметры из .GetString и дело пошло. В CSV сохраняет. НО большой массив данных, как раз на этапе .GetString зависает на очень продолжительное время (30+ минут).

Решил вопрос переводом RecordSet в array и от туда уже запись в текстовый файл. Опять таки есть "НО", процедура записи 3,7 млн строк занимает чуть более 4 минут, а процедура сохранения Recordset.Save "C:\yourFile.xml", adPersistXML чуть больше 10 сек. Явное преимущество. Но ни как не удается сделать xml читабельным, перепробовал все параметры .save

Может кто знает как правильно RecordSet сохранять в XML?

Ответить

Сохранение RecordSet в csv или xml (Макросы/Sub)

Страница 1 из 1
1