Local oExcel >>oExcel = Createobject("Excel.Application") >>With oExcel >> .WorkBooks.Add >> .Visible = .T. >> VFP2Excel(_samples+'data\testdata.dbc',; >> 'select * from orders',; >> .ActiveWorkBook.ActiveSheet.Range('A1')) >> .ActiveWorkBook.ActiveSheet.UsedRange.Columns.Autofit() >>Endwith >> >>Function VFP2Excel >> Lparameters tcDataSource, tcSQL, toRange >> Local loConn As AdoDB.Connection, ; >> loRS As AdoDB.Recordset,; >> ix >> loConn = Createobject("Adodb.connection") >> loConn.ConnectionString = "Provider=VFPOLEDB;Data Source="+m.tcDataSource >> loConn.Open() >> loRS = loConn.Execute(m.tcSQL) >> >> For ix=1 To loRS.Fields.Count >> toRange.Offset(0,m.ix-1).Value = Proper(loRS.Fields(m.ix-1).Name) >> toRange.Offset(0,m.ix-1).Font.Bold = .T. >> Endfor >> toRange.Offset(1,0).CopyFromRecordSet( loRS ) >> loRS.Close >> loConn.Close >>EndfuncCetin