Select * ; from (Home()+'samples\data\employee') ; into Cursor crsToExcel ; nofilter VFP2Excel( ,"My Export") Function VFP2Excel Lparameters tcCursorName, tcSheetName tcCursorName = Iif(Empty(m.tcCursorName),Alias(),m.tcCursorName) tcSheetName = iif(empty(m.tcSheetName),"Sheet1", m.tcSheetName) Local loConn As AdoDB.Connection, loRS As AdoDB.Recordset,; lcTempRs, lcTemp, oExcel lcTemp = forcepath(Sys(2015)+'.dbf',sys(2023)) lcTempRs = forcepath(Sys(2015)+'.rst',sys(2023)) Select (m.tcCursorName) Copy To (m.lcTemp) loConn = Createobject("Adodb.connection") loConn.ConnectionString = "Provider=VFPOLEDB;Data Source="+sys(2023) loConn.Open() loRS = loConn.Execute("select * from "+m.lcTemp) loRS.Save(m.lcTempRs) loRS.Close loConn.Close Erase (m.lcTemp) loRS.Open(m.lcTempRs) oExcel = Createobject("Excel.Application") With oExcel .WorkBooks.Add .Visible = .T. With .ActiveWorkBook.ActiveSheet .Name = m.tcSheetName .QueryTables.Add( loRS, .Range("A1")).Refresh() *!* .Range("A1").AutoFormat(8) && xlRangeAutoFormatColor2 .Range("A1").Activate Endwith Endwith loRS.Close Erase (m.lcTempRs)Cetin