FiveTech Software tech support forums

Posted: **Mon Dec 22, 2014 6:14 pm**

Antonio Linares wrote:is the same code working with xHarbour ?

Of course.

Antonio Linares wrote:Is Excel already running ?

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

EMG

Posted: **Mon Dec 22, 2014 6:22 pm**

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.

Posted: **Mon Dec 22, 2014 6:33 pm**

James,

unfortunately it looks like a different problem. :-(

EMG

Posted: **Mon Dec 22, 2014 9:15 pm**

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

Posted: **Mon Dec 22, 2014 9:58 pm**

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

Posted: **Mon Dec 22, 2014 10:02 pm**

Enrico,

Already posted:

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

thanks!

Posted: **Mon Dec 22, 2014 10:11 pm**

Antonio,

thank you! :-)

EMG

Posted: **Tue Dec 23, 2014 9:56 pm**

Enrico,

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

I appreciate if you can review them, thanks :-)

Posted: **Tue Dec 23, 2014 10:19 pm**

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

Posted: **Tue Dec 23, 2014 10:52 pm**

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

Posted: **Tue Dec 23, 2014 10:55 pm**

Antonio,

Antonio Linares wrote: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.

Antonio Linares wrote:Have you tried to assign it a different date ?

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

EMG

Posted: **Tue Dec 23, 2014 11:00 pm**

Enrico,

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

Posted: **Tue Dec 23, 2014 11:48 pm**

Enrico
This expression works?

Code: Select all Expand view: oSheet:Cells( 1, 1 ):Value = CTOD( " / / " )

Posted: **Wed Dec 24, 2014 2:10 am**

cnavarro wrote: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 )

Posted: **Wed Dec 24, 2014 7:49 am**

Antonio,

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

NIL

EMG

FiveTech Software tech support forums

Migrating to Harbour

Re: Migrating to Harbour

Re: Migrating to Harbour

Re: Migrating to Harbour

Re: Migrating to Harbour

Re: Migrating to Harbour

Re: Migrating to Harbour

Re: Migrating to Harbour

Re: Migrating to Harbour

Re: Migrating to Harbour

Re: Migrating to Harbour

Re: Migrating to Harbour

Re: Migrating to Harbour

Re: Migrating to Harbour

Re: Migrating to Harbour

Re: Migrating to Harbour