>I recall someone giving me advice on sending a batch of data to excel in a single call rather than sending each cell explicitly, but I am unable to locate my notes on the subject. Would someone indulge my lack of memory and organization and share that technique with me again?
>
>Thanks
Something like this?
VFP2Excel(_samples+'data\testdata.dbc','select * from customer',"Customers")
function VFP2Excel
lparameters tcDataSource, tcSQL, tcSheetName
Local loConn As AdoDB.Connection, ;
loRS As AdoDB.Recordset,;
oExcel as Excel.Application
loConn = Createobject("Adodb.connection")
loConn.ConnectionString = "Provider=VFPOLEDB;Data Source="+m.tcDataSource
loConn.Open()
loRS = loConn.Execute(m.tcSQL)
oExcel = Createobject("Excel.Application")
With oExcel
.WorkBooks.Add
.Visible = .T.
With .ActiveWorkBook.ActiveSheet
.Name = m.tcSheetName
FOR ix=1 TO loRS.Fields.Count
.Cells(1,m.ix).Value = PROPER(loRs.Fields(m.ix-1).Name)
endfor
.Range('A2').CopyFromRecordSet( loRS )
.UsedRange.Rows(1).Font.Bold = .t.
.UsedRange.Columns.Autofit
Endwith
Endwith
loRs.Close
loConn.CloseCetin
