main.pas

一个经典的读写Excel的控件

unit Main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Spin, XLSReadWriteII2, XLSUtils2;

type
  TForm3 = class(TForm)
    Button1: TButton;
    XLS: TXLSReadWriteII2;
    Button2: TButton;
    seColumn: TSpinEdit;
    seRow: TSpinEdit;
    Label1: TLabel;
    Label2: TLabel;
    edPictureFile: TEdit;
    Label3: TLabel;
    Button3: TButton;
    Label4: TLabel;
    edExcelFile: TEdit;
    Button4: TButton;
    Button5: TButton;
    dlgOpen: TOpenDialog;
    dlgSave: TSaveDialog;
    procedure Button1Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation

{$R *.dfm}

procedure TForm3.Button1Click(Sender: TObject);
begin
  Close;
end;

procedure TForm3.Button5Click(Sender: TObject);
begin
  dlgSave.FileName := edExcelFile.Text;
  if dlgSave.Execute then
    edExcelFile.Text := dlgSave.FileName;
end;

procedure TForm3.Button4Click(Sender: TObject);
begin
  dlgOpen.Filter := ExcelPictureTypesFilter;
  dlgOpen.FileName := edPictureFile.Text;
  if dlgOpen.Execute then
    edPictureFile.Text := dlgOpen.FileName;
end;

procedure TForm3.Button3Click(Sender: TObject);
begin
  // All pictures are globally stored, in order to save space.
  XLS.MSOPictures.Add.Filename := edPictureFile.Text;

  // Insert the picture into the sheet.
  with XLS.Sheets[0].DrawingObjects.Pictures.Add do begin
    // IMPORTANT! If:
    // a. The file is a BMP file, and
    // b. TPNGImage is used, and
    // c. The size is more than 255 bytes, then then picture will be converted
    // to a PNG picture, and the filename's extension is changed to PNG.
    // Excel only accepts BMP pictures smaller than 32k.
    PictureName := XLS.MSOPictures[XLS.MSOPictures.Count - 1].Filename;
    Col1 := seColumn.Value;
    Row1 := seRow.Value;
    Col2 := seColumn.Value + 3;
    Row2 := seRow.Value + 8;
  end;
end;

procedure TForm3.Button2Click(Sender: TObject);
begin
  XLS.Filename := edExcelFile.Text;
  XLS.Write;
end;

end.