Tsbrowse Exceloel Char Problem

[kokookao2007]

hi Everyone:

In TsBrowse ,Field value "00431224566" , when oBRW:ExcelOle() to Excel .

Excel Value show 4311224566 , value is Nunber type .

Someone help me How to make it to a Char type ?

Thank you.

--
Best Regards
--------------------------------------------------------------
kokoo KAO

[Detlef Hoefner]

hi Everyone:

In TsBrowse ,Field value "00431224566" , when oBRW:ExcelOle() to Excel .

Excel Value show 4311224566 , value is Nunber type .

Someone help me How to make it to a Char type ?

Thank you.

--
Best Regards
--------------------------------------------------------------
kokoo KAO

Kokoo,

try to put a chr( 39 ) before your string.

Code: Select all  Expand view

oSheet:Cells( nRow, nCol ):Value := "'00431224566"

Regards,
Detlef

[kokookao2007]

HI Detlef :

Thank you .

oSheet:Cells( nRow, nCol ):Value := "'00431224566"

Any possiable not to add "'" into the Char to makt it ?

--
Best Regards
--------------------------------------------------------------
kokoo KAO

[Detlef Hoefner]

Kokoo,

you may also try

Code: Select all  Expand view

#define xlLeft         -4131 // (0xhffffefdd)
#define xlRight        -4152 // (0xhffffefc8)
#define xlCenter       -4108 // (0xhffffeff4)


oSheet:Columns( n ):Set( "HorizontalAlignment", xlRight )
oSheet:Columns( n ):Set( "ColumnWidth",  12 )
oSheet:Columns( n ):Set( "NumberFormat", "@" ) // Text format


With this code i set a complete column to text format.
The above code is working.

May be it works with cells too.

Code: Select all  Expand view

oSheet:Cells( nRow, nCol ):Set( "NumberFormat", "@" )
oSheet:Cells( nRow, nCol ):Value := "00431224566"

This code i didn't try.

regards,
Detlef

[kokookao2007]

HI Detlef:

oSheet:Cells( nRow, nCol ):Set( "NumberFormat", "@" )

It is work as what I need.

Thank you.

--
Best Regards
--------------------------------------------------------------
kokoo KAO