#DEFINE xlDBF4 11 && some code... for the cursors oExcel = CREATEOBJECT("Excel.Application") WITH oExcel .DisplayAlerts = .F. .Workbooks.ADD .VISIBLE = .T. WITH .ActiveWorkBook FOR ix = 1 TO 5 lcCursorName = 'crsToExcel' + LTRIM(STR(m.ix)) IF .sheets.COUNT < m.ix .sheets.ADD(,.sheets(.sheets.COUNT)) ENDIF .WorkSheets(m.ix).NAME = sheetNames[m.ix] VFP2Excel(m.lcCursorName, .WorkSheets(m.ix),"A1" ) ENDFOR .WorkSheets(1).ACTIVATE ENDWITH ENDWITH oExcel.Workbooks.SAVEAS("C:\Some_Name.dbf",xlDBF4) && problem is here oExcel.Workbooks.CLOSE(0) oExcel.QUITThe error message is: