FiveTech Software tech support forums

... nCol ):Value methode to read the first column to know how many records the are, and read the fist row , how many colums to import. Then I can use GetExcelRange() Is there a faster way to know which row is the first empty cell, and which column is the first empty one?

yes On xharbour run ok BUt on Harbour you made oRange := GetExcelRange(cFileXls , , @lOpened) and then Xbrowse(oRange) run ok I see all datas So, the problem is of Fw_ExcelToDbf() Please Maurizio try this testxbrowse(oRange) Function  testxbrowse(oRange)  ...

... = oBook:Worksheets:Count()FOR nFogli = 1 to nSheet    cSheetName = oBook:Worksheets(nFogli):Name()        oRange  := GetExcelRange(cFile, cSheetName , , @lOpened )...... 

Code: Select all  Expand view

FOR i = 1 TO oExcel:Sheets:Count
    oExcel:Sheets( i ):Select()
    // do something with this sheet
NEXT

EMG

hi, I know that GetExcelRange function works with this parameters ( cBook, cSheet, acRange, lOpened ) function defaults to ActiveWorkBook, ActiveSheet and UsedRange, if the corresponding parameters are not specified. I Have a lot ...

Hi Mr. Rao, You are right if we set FW_SetUnicode( .t. ). but there is also another problem. I can not open the selected file in GetExcelRange() function. File(cSelectedfile) is also says .f. I have found a workaround like this. It is funny but it works. cFileName := MyUnicodeToAnsi(cGetFile32(oData:cDosya))...FUNCTION ...

... use FWH runtime, #include "vrd.ch" should be replaced with #include "easyrep.ch" in the application programs. * Fix: functions GetExcelRange() and GetExcelBook() in olefuncs.prg. These functions were unable to open files on network. Fixed April 2018 (revised build) ========================== ...

... use FWH runtime, #include "vrd.ch" should be replaced with #include "easyrep.ch" in the application programs. * Fix: functions GetExcelRange() and GetExcelBook() in olefuncs.prg. These functions were unable to open files on network. Fixed

Fixed in FWH 18.05

Great!

EMG

in Forum I found this thread: http://forums.fivetechsupport.com/viewtopic.php?f=3&t=30117&p=172039&hilit=getexcelrange#p172025 and I try this:         oExcel   := ExcelObj()        oBook    := oExcel:WorkBooks:Open( cPath+aFile[nZ] )    ...

ok, thank you, I'm waiting Mr. Rao

So you have to ask Rao, sorry. I've never used those functions.

EMG

.F. is the value

It's fine. Then check lOpened value:

Code: Select all  Expand view

? lOpened

EMG