用delphi如何在一个*.xls中新增sheet，并自定义其名称

Question

用delphi如何在一个*.xls中新增sheet，并自定义其名称

Answer 1

uses comobj;
const
  xlWBATWorksheet = -4167;
var
  excelapp,workBook,WorkSheet:Variant;
Begin
  Try
    excelApp:=CreateOleObject('Excel.Application');
    workBook:=CreateOleObject('Excel.Sheet');
    Excelapp.Visible:=true;
  Except
    Exit;
  end;
  try
    excelApp.Workbooks.Add[XLWBatWorksheet];
    excelApp.Workbooks[1].Worksheets[1].Name:='hello world';
//    worksheet:=Excelapp.Sheets.Item['Sheet1'];
  except
    workBook.close;
    excelApp.Quit;   //释放VARIANT变量
    excelApp:=Unassigned;
  end;
end;

Answer 2

创建excel对象，打开已经存在的文件，添加sheet，代码参考上面的

Answer 3

hongqi162 的方法正解,呵呵.

Answer 4

var j,k,col:integer;
    sheet,exele:variant;
begin
  exele.Workbooks.Add;
  exele.Worksheets[1].Name:='sheet1';
  sheet:=exele.Workbooks[1].Worksheets['sheet1];
  exele.WorkSheets[1].Activate;其他代码省略
end;