unit1.pas

来自「操作电子表格」· PAS 代码 · 共 69 行

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
     ExcelApplication1: TExcelApplication;
     ExcelWorksheet1: TExcelWorksheet;
     ExcelWorkbook1: TExcelWorkbook;
     bookRet:ExcelWorkbook;
begin
     try
     ExcelApplication1 := TExcelApplication.Create(Application);
     ExcelWorksheet1 := TExcelWorksheet.Create(Application);
     ExcelWorkbook1 := TExcelWorkbook.Create(Application);
     except
     Application.Messagebox('电脑未安装Office中的Excel，必须安装才能使用Excel导出数据功能!', '提示', MB_ICONERROR + mb_Ok);
     exit;
     end;
     ExcelApplication1.Connect;
     bookRet:=ExcelApplication1.Workbooks.Open('F:\Wyx\Grade.XLS',
          EmptyParam,{UpdateLinks}
          EmptyParam,{ReadOnly}
          EmptyParam,{Format}
          EmptyParam,{PassWord}
          EmptyParam,{WritePassWord}
          EmptyParam,{IgnoreReadOnlyRecommended}
          EmptyParam,{Origin}
          EmptyParam,{Delimiter}
          EmptyParam,{Editable}
          EmptyParam,{Notify}
          EmptyParam,{Converter}
          EmptyParam,{AddToMru}
          EmptyParam,
          EmptyParam,
          LCID(0));           {Lcid}

     ExcelWorkbook1.ConnectTo(bookRet);
     ExcelWorkSheet1.ConnectTo(ExcelWorkBook1.Sheets[1] as _WorkSheet);

     ShowMessage(ExcelWorksheet1.Cells.item[1,1]);

     ExcelWorkBook1.Close(false);
     ExcelApplication1.Disconnect; //断开与EXCEL的连接
end;

end.