动态创建的EXCEL对象如何设置单元格的格式？

Question

动态创建的一EXCEL对象 
ExcelApp := CreateOleObject('Excel.Application');
    WorkBook :=CreateOleObject('Excel.Sheet');
想要修改SHEET的名称以及单元格的格式（如设置单元格为文本，等等...)
有哪位有详细的说明那，谢谢啦

Answer 1

http://support.microsoft.com/default.aspx?scid=kb;EN-US;231614  // Apply borders to the Sales  data and headers
  oResizeRange := oWS.Range['E1:' + Chr(Ord('E') + iNumQtrs - 1) + '6'];
  oResizeRange.Borders.Weight := xlThin;  // Add a totals formula for the sales data and apply a border
  oResizeRange := oWS.Range['E8:' + Chr(Ord('E') + iNumQtrs - 1) + '8'];
  oResizeRange.Formula := '=SUM(E2:E6)';
  oResizeRange.Borders.Item[xlEdgeBottom].LineStyle := xlDouble;
  oResizeRange.Borders.Item[xlEdgeBottom].Weight := xlThick;

Answer 2

在OFFICE2000和EXCEL2000单元中有说明