>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.Close >Cetin