Excel的小数位:写入的是4.5678,转到Excel中变成了4.57,即使设置格式也不行(300分)

轻

轻舞肥羊

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-10

• #1

如题,不要用字符型(在前面加'写入)
代码:
ExcelApp.Cells[1,1].Value := 4.5678;
要纯数字,四位精度,不能加币符
最好可以选择小数点后的零是否显示,即4.567可选择显示为4.567或4.5670

 

H

hanpengshan_00

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-10

• #2

ExcelApp.Cells[1,1].Value := '4.5678;

 

Z

zhang_yz6666

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-10

• #3

ExcelApp.Cells.NumberFormatLocal := '@'
楼主有个问题直接找你的：
http://www.delphibbs.com/delphibbs/dispq.asp?lid=2283660

 

轻

轻舞肥羊

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-10

• #4

谢了~
1楼的,请看清题目,不能变为字符型
2楼的,我已经试过用@了,不但没有显示4位小数,还在数值前面加了个$符号,郁闷

 

E

eastweast

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-10

• #5

ExcelApp.cells[1,1].NumberFormatLocal = '0.0000_ ';
ExcelApp.Cells[1,1].Value := 4.5678;

 

L

lgxyy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-10

• #6

同上

 

K

kevin1779

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-10

• #7

同上

 

轻

轻舞肥羊

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-10

• #8

楼上的请试验一下,还是被四舍五入了,我的格式设置都试过N种了,就是没找到正确的,555555

我没有想像的那么菜吧-_-#

 

W

wwr74

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-10

• #9

设置过区域选项中的格式吗？

 

P

pihome

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-10

• #10

ExcelApp.cells[1,1].NumberFormatLocal := '0.0000_ ';
ExcelApp.Cells[1,1].Value := '4.5678';
看一下单元格式，是数值型的[]

 

W

wwwwb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-11

• #11

excelworksheet2.Cells.Item[k,4].numberformat:='G/通用格式';
excelworksheet2.Cells.Item[k,4].value:='4.5678';
D6+WIN2000+OFFICE2000已测试通过

 

Y

ysai

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-11

• #12

program Project1;

uses
ComObj,ActiveX;

{$R *.res}

var
e : OleVariant;
begin
ActiveX.CoInitialize(nil);
e := CreateOleObject('Excel.Application');
e.WorkBooks.Add;
e.Cells.NumberFormatLocal :='G/通用格式';
e.Cells[1,1].Value := 4.5678;
e.Visible := true;
end.

格式设置 显示值
G/通用格式 ￥4.57
#,##0.0000 4.5700
0.0000_ 4.5700
@ $4.57

区域设置,设置小数位为4位无效,谁还有办法?

晕,搞错账号了

 

G

gzbxmcx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-11

• #13

你把传入的值改为字符型：
ExcelApp.Cells[1,1].Value := '4.5678';

 

A

Afei2

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-11

• #14

轻舞肥羊：
不好意思，跑你这来问。
你能不能也帮我看看这个——压缩时怎么出错？
http://www.delphibbs.com/delphibbs/dispq.asp?lid=2198747

 

W

wwwwb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-12

• #15

朋友，我已经写得很详细了。

 

L

lssgj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-12

• #16

难道点击那个“增加小数位数”的工具按钮也不行吗！？！？！？

 

轻

轻舞肥羊

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-12

• #17

wwwwb:请看ysai的源代码及测试结果,DELPHI7+WIN2K+OFFICE2K,如果在你机器上得到的结果是正确的,而在我这是错误的,那么你的方法就不能通用,不符合要求

 

L

lichaogang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-13

• #18

真的，奇怪！

 

逻

逻辑鱼

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-14

• #19

var
e : OleVariant;
begin
ActiveX.CoInitialize(nil);
e := CreateOleObject('Excel.Application');
e.WorkBooks.Add;
//e.Cells.NumberFormatLocal :='G/通用格式';
e.Cells.NumberFormatLocal :='￥#,##0.0000;￥-#,##0.0000';
e.Cells[1,1].Value := 4.5678;
e.Visible := true;
end.

这样应该可以了吧 测试过了 xp+delphi6+office2k 通过

 

C

clever_boy_2000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-14

• #20

对不起，但十万火急：
http://www.delphibbs.com/delphibbs/dispq.asp?lid=2288008
http://www.delphibbs.com/delphibbs/dispq.asp?lid=2292702
请各位DFW帮忙，万分感谢