求教！！！(0分)

在delphi中如何设定输出Excel表的列宽属性，文字居中等属性？

Sheet := eclapp.ActiveSheet as _WorkSheet;
C := Sheet.Cells.Item[3,7];
Range := Sheet.Range[C,C];
Range.ColumnWidth := Length(Range.Text)*2;//列宽计量单位是缺省字体的个数
Range.HorizontalAlignment := xlHAlignCenter;//水平居中
Range.VerticalAlignment := xlVAlignCenter;//垂直居中
//以下在excel97 or excel2000中有定义
type
XlVAlign = TOleEnum;
const
xlVAlignBottom = $FFFFEFF5;
xlVAlignCenter = $FFFFEFF4;
xlVAlignDistributed = $FFFFEFEB;
xlVAlignJustify = $FFFFEFDE;
xlVAlignTop = $FFFFEFC0;
type
XlHAlign = TOleEnum;
const
xlHAlignCenter = $FFFFEFF4;
xlHAlignCenterAcrossSelection = $00000007;
xlHAlignDistributed = $FFFFEFEB;
xlHAlignFill = $00000005;
xlHAlignGeneral = $00000001;
xlHAlignJustify = $FFFFEFDE;
xlHAlignLeft = $FFFFEFDD;
xlHAlignRight = $FFFFEFC8;

列宽、行高：
ExcelWorksheet1.Cells.ColumnWidth
ExcelWorksheet1.Cells.RowHeight
居中设置
ExcelWorksheet1.Cells.HorizontalAlignment := xlHAlignCenter;
ExcelWorksheet1.Cells.VerticalAlignment := xlVAlignCenter;

接受答案了.