A little help with paste into excel required...

[ooch1]

Hello,

I'm trying to paste some data from access into excel, but am currently only succeeding with the column headers.

My Copy and Paste Code is:
With objWorkbook.Worksheets("MonthlyView").range("A2")
For i = 0 To rs.Fields.Count - 1
.offset(-1, i) = rs.Fields(i).Name
Next
Set xlRng = objWorkbook.Worksheets("MonthlyView").range ("a2")
'copy in the data
xlRng.CopyFromRecordset rs
End With

Can someone please tell how to get the data in as well, plus help with why it is not currently working, then a star will surely be yours???

OOch

 

[xlbo]

what error are you getting and where do you set rs ??

Also, why bother seeting xlRng if you are only going to use it once ?

you are already using that range in the WITH clause so:

With objWorkbook.Worksheets("MonthlyView").range("A2")
    For i = 0 To rs.Fields.Count - 1
        .offset(-1, i) = rs.Fields(i).Name
    Next
    .CopyFromRecordset rs
End With

should work fine as long as rs is a recordset

Rgds, Geoff

"Three things are certain: Death, taxes and lost data. Guess which has occurred"

Please read FAQ222-2244 before you ask a question