GetExcelRange and decimals

[Maurizio]

Hello Rao ,

I use GetExcelRange to import from Excel .
When in Excel I have a number with many decimals like 0,000079 ( in Italy we use , as decimals )
GetExcelRange returns 0,0001000

Thanks in anticipations

Maurizio
www.nipeservice.com

[hmpaquito]

did you try SET DECIMALS TO 6 from harbour or similar from excel ?

[Maurizio]

Thanks ,
but I've already tried set decimal to in harbour.


Maurizio

[Enrico Maria Giordano]

Can we see a little sample showing the problem, please?

EMG

[Maurizio]

Ciao Enrico

Code: Select all  Expand view

#include "fivewin.ch"
Function Main()
Local oRange    

SET DECIMAL TO 7

oRange   := GetExcelRange( "c:\fwmy\articoli.xlsx" )
xbrowse(oRange)
oRange:WorkSheet:Parent:Close()

Return nil

https://drive.google.com/open?id=19o7pyrW88tAf315sSEeu2c0hS49ZY0wv


Regards Maurizio

[Enrico Maria Giordano]

We need the Excel file too.

EMG

[Maurizio]

Eccolo
https://drive.google.com/open?id=14ZUv9W-oy07dIGqN8Gcl6-o3Xn7YqOvH
Maurizio

[Enrico Maria Giordano]

The problem is in the cell format. Please try with Numeric format.

EMG

[nageswaragunupudi]

Code: Select all  Expand view

  XBROWSER oRange SETUP ( oBrw:prezzonetto:cEditPicture := "9.999999" )
 

[Maurizio]

Thanks Enrico and RAO
works with both
Maurizio

[Silvio.Falconi]

here I have this :

on sheet excel



When run the test



there is something of wrong ... why change the value ?

look price articles... the price is changed

why it rounds to the integer ?

15> 00

[nageswaragunupudi]

Sylvio

Did you try with this code?

Code: Select all  Expand view

XBROWSER oRange SETUP ( oBrw:prezzonetto:cEditPicture := "9.999999" )
 

[Silvio.Falconi]

yes of course