Exporting to excel

[cbuechner]

I have a code that exports into an excel sheet. I have a good understanding how it is occurring. But now I want to add within the module that export of just one line.



This code selects data

Set rs = CurrentDb.OpenRecordset("SELECT Terms FROM Terms_Export WHERE Customer_Quote_Number='" & RFQNUM & "'") '

Then tells it where to paste it.

If rs.EOF = False And rs.BOF = False Then


rs.MoveFirst


If blnHeaderRow = True Then
For lngColumn = 0 To rs.Fields.Count - 1
xlc.Offset(0, lngColumn).Value = rs.Fields(lngColumn).Name
Next lngColumn
Set xlc = xlc.Offset(1, 0)
End If


' write data to worksheet
Do While rs.EOF = False
For lngColumn = 0 To rs.Fields.Count - 1
xlc.Offset(0, lngColumn).Value = rs.Fields(lngColumn).Value
Next lngColumn
rs.MoveNext
Set xlc = xlc.Offset(1, 0)
Loop

End If


rs.Close
Set rs = Nothing

This works great. The result is...it is entered across (based on the number of fields that is "selected") and down. I want to change this to just down. The result of the query is just one line, and I want the four fields (across) to be exported into excel straight down.

[pbaldy]

I haven't used Offset, but it would seem simplest to increment the row argument with your field count variable instead of the column argument.

[cbuechner]

Not that experienced. I want to export to excel, and the results to go down the excel sheet. I found a different way around it. But I'm sure there is an easier way.

[pbaldy]

Perhaps I was thrown off by "I have a good understanding how it is occurring". Hard to say if there's an easier way without seeing what you found.

[ArviLaanemets]

Easiest way to get data into excel from any database is to create an ODBC Query in Excel, which reads data from your database! And it gets always latest saved info at moment the query is run!

[alansidman]

You might find this link helpful-->http://accessblog.net/2006/07/export...cel-range.html