delphi和Excel的列宽控制

[chunfly]

我想把Delphi中Dbgrid的内容保存到Excel中，可是再保存时列宽总是不对

Dbgrid的列宽是象素，Excel的列宽是什么？厘米？
看我的代码：
//象素与厘米之间转化
function PixelsToCentimeter(APixels:Integer):Double;
var
i:Double;
begin
i := Screen.PixelsPerInch;
Result := Trunc((i/APixels)*2.54);
end;
function DataToExcel(........);
var
...
irange:range;
...
begin
..
iRange.ColumnWidth := PixelsToCentimeter(Grid.Columns
[j].Field.DisplayWidth );//象素与厘米之间转化
...
end;

可是列宽控制不对！

[lizhenjia]

你可以让excel自适应字符串宽度
worksheet1.columns.autofit;

[hxf812]

Excel的VBA应该和Vb差不多。
我好象记得vb里面的单位挺多的比方说缇（读做提）就是，你可以参考一下它和毫米的换算关系，

[pukerno3]

有自适应的宽度，你又何必非要计算长度呢？

[lzyun]

这个问题我也不会,我是反导的,
EXCEL中凡是字符的在DELPHI中显示出来就成了很长很长的
如果你做出来这个,给我看看
谢谢
[e-mail]