unit1.pas

4TOPS (c) 4TOPS 2002-2003

unit Unit1;

interface

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

type
  Tfrmwb = class(TForm)
    BtnBegin: TButton;
    BtnLoad: TButton;
    BtnNew: TButton;
    ExcelApp: TExcelApplication;
    ExcelWb: TExcelWorkbook;
    BtnPrintView: TButton;
    BtnPrint: TButton;
    BtnCloseWb: TButton;
    BtnExcel: TButton;
    BtnOpen: TButton;
    EdtTxt: TEdit;
    Lb: TLabel;
    BtnInput: TButton;
    procedure BtnBeginClick(Sender: TObject);
    procedure BtnOpenClick(Sender: TObject);
    procedure BtnNewClick(Sender: TObject);
    procedure BtnLoadClick(Sender: TObject);
    procedure BtnSaveClick(Sender: TObject);
    procedure BtnPrintViewClick(Sender: TObject);
    procedure BtnPrintClick(Sender: TObject);
    procedure BtnCloseWbClick(Sender: TObject);
    procedure BtnInputClick(Sender: TObject);
    procedure BtnMInputClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmwb: Tfrmwb;

implementation

{$R *.dfm}

procedure Tfrmwb.BtnBeginClick(Sender: TObject);
begin
  ExcelApp.connect;
  ExcelApp.Visible[0]:=True;
end;
      
procedure Tfrmwb.BtnOpenClick(Sender: TObject);
var
  wkBk : _WorkBook;
  EParam : Variant;
  DocuType : Variant;
begin
  EParam:=EmptyParam;
  DocuType:=0;

  try
    wkBk:=ExcelApp.Workbooks.Add(EParam, DocuType);

    wkBk:=ExcelApp.WorkBooks.Open('d:\book1.xls',EmptyParam,EmptyParam,
      EmptyParam,EmptyParam,EmptyParam,EmptyParam,
      EmptyParam,EmptyParam,EmptyParam,EmptyParam,
      EmptyParam,EmptyParam,DocuType,EmptyParam,DocuType);
  except
    showmessage('打开工作簿失败！');
  end;
end;

procedure Tfrmwb.BtnNewClick(Sender: TObject);
var
  EParam : Variant;
  DocuType : Variant;
begin
  EParam:=EmptyParam;
  DocuType:=0;

  try
    ExcelApp.Workbooks.Add(EParam,DocuType);
  except
    showmessage('创建新工作簿失败!');
  end;
end;

procedure Tfrmwb.BtnLoadClick(Sender: TObject);
begin
  try
    Excelwb.ConnectTo(ExcelApp.ActiveWorkbook);
  except
    showmessage('连接当前工作簿失败！');
  end;
end;

procedure Tfrmwb.BtnSaveClick(Sender: TObject);
var
  DocuType : OleVariant;
begin
  DocuType:=0;
  try
    ExcelApp.ActiveWorkBook.SaveAs('d:\MyWb.xls',EmptyParam,EmptyParam,
      EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,
      EmptyParam,EmptyParam,True,DocuType);
  except
    showmessage('保存工作簿失败！');
  end;

end;

procedure Tfrmwb.BtnPrintViewClick(Sender: TObject);
var
  DocuType : OleVariant;
  wkBk : _WorkBook;
  EChange : OleVariant;
begin
  EChange:=True;
  DocuType:=0;
  wkBk:=ExcelApp.ActiveWorkbook;
  wkBk.PrintPreview(EChange,DocuType);
end;

procedure Tfrmwb.BtnPrintClick(Sender: TObject);
var
  Docutype : OleVariant;
  wbbk : _workbook;
  wbst : _worksheet;
begin
    wbbk:=ExcelApp.ActiveWorkbook;
    Docutype:=0;
    wbst:=wbbk.ActiveSheet as _Worksheet;
    wbst.PrintOut(EmptyParam,EmptyParam,1,
      EmptyParam,EmptyParam,EmptyParam,
      EmptyParam,EmptyParam,DocuType);

end;

procedure Tfrmwb.BtnCloseWbClick(Sender: TObject);
var
  wkBk : _WorkBook;
  DocuType : OleVariant;
  FileName : OleVariant;
begin
  wkBk:=ExcelApp.ActiveWorkbook;
  DocuType:=0;
  FileName:='d:\mywb.xls';
  wkBk.Close(True, FileName, EmptyParam, DocuType);
end;

procedure Tfrmwb.BtnInputClick(Sender: TObject);
var
  wbbk : _workbook;
  wbst : _worksheet;
begin
  wbbk:=ExcelApp.ActiveWorkbook;
  wbst:=wbbk.ActiveSheet as _Worksheet;

  wbst.Cells.Item[1,1]:=EdtTxt.Text;
end;

procedure Tfrmwb.BtnMInputClick(Sender: TObject);
var
  intSj : integer;
  intXj : integer;
  intI  : integer;
  intJ  : integer;
  wbbk : _workbook;
  wbst : _worksheet;
  Datas : Variant;
  RType : OleVariant;
begin

  intSj:=5;
  intXj:=5;

  Datas:= varArrayCreate([1,intSj,1,intXj],varVariant);
  //创建100*100的动态数组

  for intI:=1 to intSj do
    begin
      for intJ:=1 to intXj do
        Datas:='数据'+inttostr(intI)+inttostr(intJ);
    end;

  wbbk:=ExcelApp.ActiveWorkbook;
  wbst:=wbbk.ActiveSheet as _Worksheet;

  RType:=0;
  wbst.Range[wbst.cells.Item[1,1],wbst.cells.Item[intSj,intXj]].value[RType]:=Datas;

end;

end.