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