CLOSE DATABASES ALL
USE c:\MyBigTable
SELECT 0
allIsOk = CopyToExcel("MyBigTable")
...
RETURN


FUNCTION CopyToExcel(MyTable)
LOCAL myExcelName

myExcelName = PutFile("Save as",m.MyTable,"XLS")

IF .NOT. EMPTY(m.myExcelName)
   IF FILE(m.myExcelName)
      m1 = FOPEN(m.myExcelName, 12)
      IF m1 > 0
         FCLOSE(m1)
      ELSE
         MESSAGEBOX("The file is open", 16, "Error")
         RETURN .f.
      ENDIF
   ENDIF

   SELECT (MyTable)

   GO TOP
***   Limit = 65534  &&& 65535 - 1 for VFP8 and VFP9
   m.Limit = 16383   &&& 16384 - 1 for VFP6

   broi_zapis = RECCOUNT()
   broi_zikli = CEILING(m.broi_zapis / m.Limit)
   expo_files = ""
   FOR zik = 1 to broi_zikli
       IF m.zik = 1
          name_part = myExcelName
       ELSE
          name_part = SUBSTR(m.myExcelName,1,rat(".",m.myExcelName)-1) + "_"+ALLTRIM(STR(m.zik-1,10,0))+".xls"
          SKIP
       ENDIF

       EXPORT TO (m.name_part) XL5 NEXT m.Limit

       expo_files = expo_files + IIF(EMPTY(expo_files),[],CHR(13))+ m.name_part
   NEXT
   MessageBox(m.expo_files, 64, "Export to")
ELSE 
   RETURN .f.
ENDIF