关于控制Excel的问题(88分)

我执行了以下的程序后，除了最后一个' 回避股数 单位：（股）'
显示完整外，其余由于Cell的宽度不会自动调整而显示不全。
请问为什么最后一个能自动调节Cell的宽度，而别的不能？如何使
别的项都能自动调整宽度。还有如何使Cell自动换行，且能
自动居中；如何在表格中加上边框。
ExcelWorkSheet1.Cells.Item[i,1]:=' 决 议 项 目 ';
ExcelWorkSheet1.Cells.Item[i,2]:=' 同意股数 单位：（股）';
ExcelWorkSheet1.Cells.Item[i,3]:='不同意股数 单位：（股）';
ExcelWorkSheet1.Cells.Item[i,4]:=' 弃权股数 单位：（股）';
ExcelWorkSheet1.Cells.Item[i,5]:=' 回避股数 单位：（股）';

即能实现以下表样：

决 议 项 目 同意股数 不同意股数 弃权股数
单位：（股） 单位：（股） 单位：（股）

‘决 议 项 目’的位置应能自动居中
以上功能如何实现，我用的是Delphi5 ,请高手赐教？

查查visual basic application for excel的帮助,很全的
都是中文

MSDN 上应该有。

如果是规则的excel文件输出，就用摸班先定义好一切

从字面上看，你是想做一个表头。由于我也不知怎么换行，故采用一下笨办法
1 表头占两行，把‘同意股数‘加到cells.item[1,2],把‘单位：（股）‘加到
cells.item[2,2],以后雷同。
2 ‘决议项目‘加到cells.item[1,1],同时设置某一范围如下属性：
// 垂直方向上居中
WSheet.Range['a1','d18'].VerticalAlignment:=XLCENTER;
// 水平方向上居中
WSheet.Range['a1','d18'].HorizontalAlignment:=XLCENTER;
当然，range[]范围由你自己决定。
3 表格中加边框可写入如下代码：
WSheet.Range[].Borders[xlEdgeLeft].LineStyle:=xlContinuous;
WSheet.Range[].Borders[xlEdgeTop].LineStyle:=xlContinuous;
WSheet.Range[].Borders[xlEdgeRight].LineStyle:=xlContinuous;
WSheet.Range[].Borders[xlEdgeBottom].LineStyle:=xlContinuous;

自动换行和自动对中是不能同时实现的。想换行在适当位置加入#13#10就行了。

你最好先做好一个格式满意的Excel文件，然后制做这个文件的复本。
在用程序往指定的位置写内容，那样就行了。

menxin:
在excelsheet.cells[]=' '+#13+#10 是没有用的把？！

多人接受答案了。