Migrating to Harbour

[Enrico Maria Giordano]

is the same code working with xHarbour ?

Of course.

Is Excel already running ?

No, but the problem is only with CTOD( "" ). With all other values it works fine, even with NIL.

EMG

[James Bott]

There is another discussion about this topic here:

viewtopic.php?f=3&t=26463'

Maybe it will helps, but I don't see any answer there.

[Enrico Maria Giordano]

James,

unfortunately it looks like a different problem.

EMG

[Antonio Linares]

Enrico,

Could you please provide a small example without FWH to provide it to the Harbour developers list ?

This problem may affect to other users too

many thanks

[Enrico Maria Giordano]

Antonio,

the sample I already reported is without FWH. Here it is again:

Code: Select all  Expand view

FUNCTION MAIN()

    LOCAL oExcel := CREATEOBJECT( "Excel.Application" )

    LOCAL oSheet

    oExcel:WorkBooks:Add()

    oSheet = oExcel:ActiveSheet

    oSheet:Cells( 1, 1 ):Value = CTOD( "" )

    oExcel:Visible = .T.

    RETURN NIL

EMG

[Antonio Linares]

Enrico,

Already posted:

https://groups.google.com/forum/#!topic ... N-0xjOTJGE

thanks!

[Enrico Maria Giordano]

Antonio,

thank you!

EMG

[Antonio Linares]

Enrico,

Please read the above posted thread as there have been already several answers.

I appreciate if you can review them, thanks

[Enrico Maria Giordano]

Antonio,

I read the answers but found no solution. Are they suggesting that with Harbour I can't assign CTOD( "" ) to an Excel cell?

EMG

[Antonio Linares]

According to Przemek it seems as that is a wrong date, and that is what OLE is reporting.

Have you tried to assign it a different date ?

thanks

[Enrico Maria Giordano]

Antonio,

According to Przemek it seems as that is a wrong date, and that is what OLE is reporting.

So, what I have to do? I cannot change all my code, you know.

Have you tried to assign it a different date ?

Yes. Empty date seems the only value that Harbour does not accept.

EMG

[Antonio Linares]

Enrico,

When you use an empty date with xHarbour what value do you get in the Excel cell ?

[cnavarro]

Enrico
This expression works?

Code: Select all  Expand view

oSheet:Cells( 1, 1 ):Value = CTOD( "  /  /  " )
 

[richard-service]

Enrico
This expression works?

Code: Select all  Expand view

oSheet:Cells( 1, 1 ):Value = CTOD( "  /  /  " )
 

Same error below

Application
===========
Path and name: C:\DevelopProject\fwh64\samples\ole_excel.exe (64 bits)
Size: 3,712,000 bytes
Compiler version: Harbour 3.2.0dev (r1406271520)
FiveWin Version: FWH 14.12
Windows version: 6.1, Build 7601 Service Pack 1

Time from start: 0 hours 0 mins 8 secs
Error occurred at: 12/24/14, 10:08:40
Error description: (DOS Error -2147352567) WINOLE/1006 (0x800A03EC): _VALUE
Args:
[ 1] = D / /

Stack Calls
===========
Called from: => TOLEAUTO:_VALUE( 0 )
Called from: ole_excel.prg => MAIN( 13 )

[Enrico Maria Giordano]

Antonio,

When you use an empty date with xHarbour what value do you get in the Excel cell ?

NIL

EMG