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