通过Delphi设置Execl单元格格式,怎么实现?

Question

谢了

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;

Answer 2

http://www.undu.com/DN970501/00000021.htm
And here some other detailed cell formatting commands: These commands will generate a border for the selected cells using thin lines. For other types of lines, you may email me on how to get them       XL.Selection.Borders(xlLeft).Weight := xlThin;
      XL.Selection.Borders(xlRight).Weight := xlThin;
      XL.Selection.Borders(xlTop).Weight := xlThin;
      XL.Selection.Borders(xlBottom).Weight := xlThin;