Тема не новая, но на свой вопрос так и не нашел ответа
Делаю вставку все работает, но повторно если запустить ошибка "application-defined or object-defined error" подсвечивается строка с CopyFromRecordset. Что не так в коде?
Set db = CurrentDb()
Set rs = db.OpenRecordset(str)

Set exApp = CreateObject("Excel.Application")
Set exW = Workbooks.Add()
exApp.Visible = True
exApp.Worksheets(1).Cells(2, 1).CopyFromRecordset rs

For i = 0 To rs.Fields.Count - 1
exApp.Worksheets(1).Cells(1, 1).Value = rs.Fields(i).Name
Next
Set rs = Nothing
[/SRC]

http://www.sql.ru/forum/1196914/vstavka-v-excel