如何在Delphi中动态删除Execl 中的指定自定义名称？ VBA中是这么写的： ActiveWorkbook.Names("KILLMENOW").Delete 但在Delphi中： MsExcelWorkBook.Names["KILLMENOW"].Delete; MsExcelWorkBook.Names[1].Delete; MsExcelWorkBook.Names.Item["KILLMENOW"].Delete; MsExcelWorkBook.Names.Item[1].Delete; var Names:Variant; Names:=MsExcelWorkBook.Names; Names["KILLMENOW"].Delete; //Error : variant not a array var Names:Variant; Names:=MsExcelWorkBook.Names; Names[1].Delete; //Error : variant not a array var Names:Array Of Variant; Names:=VarArrayOf(MsExcelWorkBook.Names); Names["KILLMENOW"].Delete; //Error : variant not a array var Names:Array Of Variant; Names:=VarArrayOf(MsExcelWorkBook.Names); Names[1].Delete; //Error : variant not a array ALL ERROR!!! Variant,OleVariant不是很熟，不知道Delphi里怎么删掉这个名字"KILLMENOW"

請先參考這篇:    http://delphi.ktop.com.tw/topic.php?TOPIC_ID=31223    程式如下:    

procedure TForm1.Button1Click(Sender: TObject);
var
  excel: Variant;
begin
  excel := CreateOleObject('Excel.Application');
  excel.WorkBooks.Open('C:\Book1.xls');
  excel.Visible := true;
  excel.WorkBooks[1].WorkSheets['KILLMENOW'].Delete;
  excel := Unassigned;
end;

引言: 請先參考這篇: http://delphi.ktop.com.tw/topic.php?TOPIC_ID=31223 程式如下:

procedure TForm1.Button1Click(Sender: TObject);
var
  excel: Variant;
begin
  excel := CreateOleObject('Excel.Application');
  excel.WorkBooks.Open('C:\Book1.xls');
  excel.Visible := true;
  excel.WorkBooks[1].WorkSheets['KILLMENOW'].Delete;
  excel := Unassigned;
end;

不对，我是想把比如原A1单元格定义为X了后恢复该单元格名字为A1,而且我如何获得sheet的实际行数？

这样的 有一模版Excel文件EX.exl 输出报表入Excel，以模版Excel为基石， 在表中间定位名字为X的行 复制，插入行数据，如此反复插入一子表 如果已经满一屏（打印一页） 则复制sheet:sheet1到最后sheetn,那样模版信息和一些固定输出的信息就直接在第2个sheet中复制到最后新添的sheetn了，然后就是要先删掉原来sheet1中的名字X,再加入sheetn的X，以便继续在sheetn中通过查找X来插入 所以，现在就是：我怎么知道sheet的打印行数到了？删掉X？似乎用楼上的好象是删除sheet