Hi all,

Just made a bunch of additional set of xls, xlsx, xlsb dumb data imports within VFP from the xlsgen library (see code below). The whole thing is working fine. What is especially great is the speed. The cell manipulation is MOST CERTAINLY an order of magnitude faster than any COM-based MS-Excel manipulation I have been involved in.

I cannot comment on the export stuff or the robustness of the whole thing but I definitely have a high regard for the job done.

Of course the stuff is made by a one-person shop and the website/doc is in line with the limited marketing resources. But is that not the case of some of us here? The code base looks brilliant anyway. For those who are in need of a robust MS-EXCEL import/export from a WIN32/WIN64 application, server-based or, possibly a polished workstation one, it may be worth the cost - the lib ain't cheap- especially in view of the limited integration work it requires.

Daniel

PS: I am not affiliated in any way with the company providing, except possibly that, in view of the resource displayed, I'd assume that the developer is a French native speaker...

cFileName = "sample.xls" && "sample.xlsx", "sample.xlsb"  as well
iSec 	= SECONDS()
oExcelParser = CREATEOBJECT("excel.application")
? "Excel COM open",SECONDS() - iSec
oExcelBook = oExcelParser.Workbooks.Open(cFileName,.T.)
? "File open",SECONDS() - iSec
oSheet = oExcelBook.Sheets(1)
FOR M.iLine = 1 TO 7500
	FOR M.iCol = 1 TO 6
	oCell =  M.oSheet.Cells(1+M.iLine,M.iCol).Value
	ENDFOR
ENDFOR
? "COM-based Excel data introspection",SECONDS() - iSec
oExcelBook.Close(.F.)

iSec = SECONDS()
oExcelParser = CREATEOBJECT("ExcelGenerator.ARsTDesign")
? "generator COM open",SECONDS() - iSec
oExcelParser.Open("c:\hroffice\Sample data.xls","") 
? "Excel resource open",SECONDS() - iSec
oSheet 	= oExcelParser.https://www.levelextreme.com/Images/Save.gifWorkbooks.Item(1).WorksheetByIndex(1)
FOR M.iLine = 1 TO 7500
	FOR M.iCol = 1 TO 6
	&& among cell retrieval functions available: Label, Date, FormattedLabel, Float, Number, ContainsFormula, CellType, StyleFromLocation...
	cCellString =  M.oSheet.FormattedLabel(1+M.iLine,M.iCol)
	ENDFOR
ENDFOR
?  "COM-based Excel-free data introspection",SECONDS() - iSec

RELEASE oSheet,oExcelParser