在delphi 中如何 改变excel工作薄的标题？

Question

程序中用如下：
excelapp:=createoleobject('excel.application');方式操作。多谢！

Answer 1

ex.OlePropertySet('Caption','标题');

Answer 2

如下:
var
  exlApp,exlWbk, exlSheet:Variant;
begin
  excelapp:=createoleobject('excel.application'); 
  exlWbk := CreateOleObject('Excel.Sheet');
  exlSheet := ExlWbk.Sheets[6];//6记录
  s := Chr(Ord('A') + iCount - 1);临时变量
  ExlSheet.Range['A1:' + s + '1'].Merge(True);
  //....一列修饰处理.......//
  {};
  ExlSheet.Rows[1].RowHeight := 50;//指定小格子大小
  //....其它修饰处理......
  {};
  ExlSheet.Cells[1, 1].Value := '中国人民共和国宪法章程!'//标题；
  {标题往往在第一列一行,你可以改变其大小.}  
end;

Answer 3

网上有 ExportDataToExcel函数，可以控制标题和工作薄名称。想要源码的话留个邮箱

Answer 4

叶落归根给我发个 ExportDataToExcel函数[email protected]

Answer 5

var
  v:variant;
  sheet:variant;
begin
  V:=createoleobject('Excel.Application'); //创建OLE对象
  V.Caption:= XXXX ;
End;