Не работает CopyFromRecordset (Access 2007)

@TR411 · Регистрация: 31.10.2013

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

Попытался написать на VBA в Access программу для экспорта данных в эксель.
Но использование метода CopyFromRecordset выдаёт ошибку:

Run-time error '430':
Class does not support Automation or does not support expected interface

Вот пример программы:

Visual Basic

Sub dfsdfsd()
    Dim XlsApp As Object
    Set XlsApp = CreateObject("excel.Application")
    XlsApp.Application.Visible = True
    Set XlsWB = XlsApp.Workbooks.Add
    
    Dim XlsRange As Object
    Set XlsRange = XlsWB.Worksheets(1).cells(1, 1)
    
    Dim rst As Recordset
    Set rst = CurrentDb.OpenRecordset("Input")
    XlsRange.CopyFromRecordset rst
End Sub

Попытался решить проблему через построчное копирование recordseta в массив, и это работало на запросах с небольшим количеством столбцов.
Но для запроса с 93 столбцами это привело к ошибке переполнение.

@Agapov_stas · 19.02.2014, 15:42

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

Но использование метода CopyFromRecordset выдаёт ошибку

Дело вовсе не в методе.

Visual Basic

Dim exApp As Object
Dim rs As Object
Set exApp = CreateObject("Excel.application")
exApp.Workbooks.Add
exApp.Visible = True
Set rs = CurrentDb.OpenRecordset("Input")
exApp.Range("A1").CopyFromRecordset rs 'Выгружаем данные
 
Set exApp = Nothing
Set rs = Nothing

shanemac51 · 19.02.2014, 15:43

93 столбца --немного

а какой тип данных в столбцах
сколько строк

@TR411 · 19.02.2014, 15:51 **[ТС]**

Agapov_stas, Ваш код выдаёт точно такую же ошибку.

shanemac51, тип данных разный. От VarChar, real, double, datetime. Varchar() - т.е. ограничение по длине не прописано, но не более 10-15 символов по факту. Количество строк было около 10.
Сам не понимаю, почему появляется такая ошибка. Но проблема именно в количестве столбцов. Пробовал копировать запрос с 9 столбцами и 500 тыс. строк - всё нормально работает.

@Agapov_stas · 19.02.2014, 15:54

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

Но проблема именно в количестве столбцов.

Можете приложить файл?

@TR411 · 19.02.2014, 16:04 **[ТС]**

Agapov_stas, исходный файл весит больше 1 Гб. Попробую скопировать то, что нужно и приложу.

mobile · 19.02.2014, 16:27

TR411, в спецификациях MS Access указано, что размер набора записей ограничен 1 гигабайтом. При 93 столбцах в запросе и 500 тысячах записей есть шанс напороться на это ограничение.

Если это действительно так, то хороший способ - поделить рекордсет на части и выдавать частями. CopyFromRecordset, если не задавать новый адрес после окончания блока, начнет точно со следующей строки от конца предшествующего блока.

@TR411 · 19.02.2014, 17:03 **[ТС]**

mobile, нет, в запросе с 93 столбцами строк было всего лишь около 10.
А CopyFromRecordset у меня не работает вообще, независимо от количества строк и столбцов.

shanemac51 Модератор 11960 / 4828 / 779 Регистрация: 07.08.2010 Сообщений: 14,138 Записей в блоге: 4
	19.02.2014, 15:43	3
	93 столбца --немного а какой тип данных в столбцах сколько строк 0

@TR411 3 / 3 / 0 Регистрация: 31.10.2013 Сообщений: 32
	19.02.2014, 15:51 [ТС]	4
	Agapov_stas, Ваш код выдаёт точно такую же ошибку. shanemac51, тип данных разный. От VarChar, real, double, datetime. Varchar() - т.е. ограничение по длине не прописано, но не более 10-15 символов по факту. Количество строк было около 10. Сам не понимаю, почему появляется такая ошибка. Но проблема именно в количестве столбцов. Пробовал копировать запрос с 9 столбцами и 500 тыс. строк - всё нормально работает. 0

@Agapov_stas 3356 / 1775 / 83 Регистрация: 05.08.2010 Сообщений: 4,471
	19.02.2014, 15:54	5
	Сообщение от TR411 Но проблема именно в количестве столбцов. Можете приложить файл? 0

@TR411 3 / 3 / 0 Регистрация: 31.10.2013 Сообщений: 32
	19.02.2014, 16:04 [ТС]	6
	Agapov_stas, исходный файл весит больше 1 Гб. Попробую скопировать то, что нужно и приложу. 0

mobile 26806 / 14485 / 3192 Регистрация: 28.04.2012 Сообщений: 15,782
	19.02.2014, 16:27	7
	TR411, в спецификациях MS Access указано, что размер набора записей ограничен 1 гигабайтом. При 93 столбцах в запросе и 500 тысячах записей есть шанс напороться на это ограничение. Если это действительно так, то хороший способ - поделить рекордсет на части и выдавать частями. CopyFromRecordset, если не задавать новый адрес после окончания блока, начнет точно со следующей строки от конца предшествующего блока. 0

@TR411 3 / 3 / 0 Регистрация: 31.10.2013 Сообщений: 32
	19.02.2014, 17:03 [ТС]	8
	mobile, нет, в запросе с 93 столбцами строк было всего лишь около 10. А CopyFromRecordset у меня не работает вообще, независимо от количества строк и столбцов. 0