New Error using CopyFromRecordset

[Mike Samyn]

I have have some Access VBA code that exports recordsets to Excel that has
worked for years. All of a sudden I am getting an error message that says:
Class does not support Automation or does not support expected interface.

The code that fails is:

ws.Range("A2").CopyFromRecordset Rs(I)

I can send ws.Range("A2").CopyFromRecordset=1.20982 without a problem but
no longer any recordsets.



Any Help is Appreciated

 

[Alex Dybenko]

Hi,
the first parameter should be a recordset, and you passing a field, try:

ws.Range("A2").CopyFromRecordset Rs

where Rs is a recordset

--
Best regards,
___________
Alex Dybenko (MVP)
http://accessblog.net
http://www.PointLtd.com