求救啊 delphi 连接Excel 的问题

来源：百度知道 编辑：UC知道 时间：2024/05/22 03:38:58
我在面板上放了3个 组件分别是：
ExcelApplication1: TExcelApplication;
ExcelWorksheet1: TExcelWorksheet;
ExcelWorkbook1: TExcelWorkbook;

ExcelApplication1.Connect;
ExcelApplication1.Visible[0]:=true;
ExcelApplication1.Caption:='调用Excel';
ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks.Add(EmptyParam,0));

以上代码都编译通过了 也能运行，可就是下面这一行怎么都写不对：
ExcelWorksheet1.ConnectTo(ExcelWorkbook1.Worksheets[1]as_worksheet);
请问怎样才能把ExcelWorksheet1连上ExcelWorkbook1呢 ？

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,comobj, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
excelapp:variant;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
i,j,s:integer;
begin
excelapp:=createoleobject('excel.application');
excelapp.visible:=true; //显示当前窗口
excelapp.caption:='试验'; //改一下excel的标题栏
excelapp.workbooks.add; //加一个新的工作簿
excelapp.workbooks.open('D:\1.xls'); //打开一