>OPEN DATABASE OurProductionDatabase >* Create a cursor with data > >LOCAL lcTest >lcTest = SYS(2023) >COPY TO ADDBS(lcTest) + 'temp.dbf' > >Local oExcel >oExcel = Createobject("Excel.Application") >With oExcel > .WorkBooks.Add > .Visible = .T. > VFP2Excel(lcTest,; > 'select * from temp',; > .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 >Endfunc >>