在线等待，如何用Delphi往Excel表中输入数字文本？(200分)

C

cyr

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-10

• #1

例如，我想在第一行第一列中输入：'00000000000000000'
用一下语句：
ExcelApplication1.Cells.Item[1,1].Value := '00000000000000000';
但是用Excel打开时1,1单元变成了0，而不是000000000000000000
用这语句也不成：
ExcelApplication1.Cells.Item[1,1].Value := '''' + '00000000000000000';
还有就是如果想输入：12345678901234
就变成了1.2345678901234 * E14
各位有什么办法啊？

 

F

fanggh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-10

• #2

excel单元格设置的问题
设为文本即可

 

C

Cjzhou

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-10

• #3

ExcelApplication1.Cells.Item[1, 1].NumberFormatLocal := '@';
ExcelApplication1.Cells.Item[1,1].Value := '''' + '00000000000000000';

 

C

cyr

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-10

• #4

To:Cjzhou
这个方法不成啊。
只能先把单元格格式设为文本，在运行程序输入才成。

 

C

Cjzhou

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-10

• #5

应该可以的，我遇到过同样的事情，通过这种方式解决了

 

C

Cjzhou

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-10

• #6

ExcelApplication1.Cells.Item[1, 1].NumberFormatLocal := '@';
ExcelApplication1.Cells.Item[1,1].Value := '00000000000000000';

 

C

cyr

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-10

• #7

谢谢Cjzhou
可以了，刚才我把设置各式的单元格的位置搞错了。