How about you will do the process in a loop of ~ 100 files at once? Looks like you somehow are reaching the Excel limits, so it may help to close excel after each 100 files and repeat the process for reminder


>Hi All:
>
>I have a loop that processes a number of Excel files in a folder. It extracts information from each file and then closes the file. Then it loops to the next one. After about 160 files, the system chokes and throws an 'exception'. When I loop to the next file, the same exception. Here are the details:
>
>

>FUNCTION ExcelFileOpen(toExcel, tcFile, tlUpdateLinks, toStuff, tlProtection, tcPassword, taSheetVisible)
>
>LOCAL retparm, loWorkbook
>
>retparm = .T.
>
>TRY
>
>	loWorkbook = toExcel.Workbooks.OPEN(tcFile, tlUpdateLinks)
>
>CATCH TO ww
>
>	errortextbuild(toStuff, ;
>		'Error in ' + JUSTSTEM(tcFile) + ': ' + 'File cannot be opened', .F., .T., .T.)
>	retparm = .F.
>	SUSPEND
>
>ENDTRY
>

>
>Some values for the object 'ww' are:
>
>

>baseclass  "Exception"
>details       "80010105: The server threw an exception"
>Errorno     1426
>message   "OLE erroe code 0x80010105: The server threw an exception"
>

>
>Any ideas?
>
>Thanks,
>
>Yossi