大家帮忙看看这段代码为什么老出错（关于Excel的）(100分)

procedure TForm1.Button5Click(Sender: TObject);
var
_tmp_WorkBook: _WorkBook;
TemplateName: string;
ST: String;
begin
ExcelApplication1.Connect;
ExcelApplication1.Visible[0] := True;
ExcelApplication1.Caption := '应用程序调用 Microsoft Excel';
TemplateName:= ExtractFilePath(Application.ExeName) + 'Templates.xls';

_tmp_WorkBook:= ExcelApplication1.Workbooks.Open(TemplateName, EmptyParam,
EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam,
EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 0);
ExcelWorkbook1.ConnectTo(_tmp_WorkBook);
ExcelWorksheet1.ConnectTo(ExcelWorkbook1.Worksheets[1] as _WorkSheet);

{我想要取WorkSheet的名称}
Label1.Caption:= ExcelWorkbook1.Names.Item(1, 1, 1).Value
//错误在这里：“不正确的变量类型”
//
end;

是Sheets(I).Name吧？
ExcelApplication1的？

你的程序我运行了,要取工作表的名称应该直接再ExcelWorkSheet1里取呀,另外你的Open语句缺参数,我运行的代码如下:
procedure TForm1.Button1Click(Sender: TObject);
var
_tmp_WorkBook: _WorkBook;
TemplateName: string;
ST: String;
begin
ExcelApplication1.Connect;
ExcelApplication1.Visible[0] := True;
ExcelApplication1.Caption := '应用程序调用 Microsoft Excel';
// TemplateName:= ExtractFilePath(Application.ExeName) + 'Templates.xls';
TemplateName:='D:/work/temp.xls';
_tmp_WorkBook:= ExcelApplication1.Workbooks.Open(TemplateName, EmptyParam,
EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam,
EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 0,0,0);
ExcelWorkbook1.ConnectTo(_tmp_WorkBook);
ExcelWorksheet1.ConnectTo(ExcelWorkbook1.Worksheets[1] as _WorkSheet);

{我想要取WorkSheet的名称}
Label1.Caption:= excelWorksheet1.Name //得到的是当前工作表的名字
//ExcelWorkbook1. Names.Item (1, 1, 1).Value
//错误在这里：“不正确的变量类型”
//
end;

good

也来看看

这几天不知道为什么上不来大富翁

所以没有结贴