main.pas

一个经典的读写Excel的控件

unit Main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, XLSReadWriteII2, ComCtrls, XLSNames2;

type
  TfrmMain = class(TForm)
    Button1: TButton;
    XLS: TXLSReadWriteII2;
    Label1: TLabel;
    edFilename: TEdit;
    Button2: TButton;
    Button3: TButton;
    dlgOpen: TOpenDialog;
    Label2: TLabel;
    lvInt: TListView;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    procedure FillInternalNames;
  public
    { Public declarations }
  end;

var
  frmMain: TfrmMain;

implementation

{$R *.dfm}

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

procedure TfrmMain.Button2Click(Sender: TObject);
begin
  dlgOpen.FileName := edFilename.Text;
  if dlgOpen.Execute then
    edFilename.Text := dlgOpen.FileName;
end;

procedure TfrmMain.Button3Click(Sender: TObject);
begin
  XLS.Filename := edFilename.Text;
  XLS.Read;
  FillInternalNames;
end;

procedure TfrmMain.FillInternalNames;
var
  i: integer;
begin
  for i := 0 to XLS.InternalNames.Count - 1 do begin
    with lvInt.Items.Add do begin
      Caption := XLS.InternalNames[i].Name;
      case XLS.InternalNames[i].BuiltInName of
        bnConsolidateArea: SubItems.Add('ConsolidateArea');
        bnAutoOpen:        SubItems.Add('AutoOpen');
        bnAutoClose:       SubItems.Add('AutoClose');
        bnExtract:         SubItems.Add('Extract');
        bnDatabase:        SubItems.Add('Database');
        bnCriteria:        SubItems.Add('Criteria');
        bnPrintArea:       SubItems.Add('PrintArea');
        bnPrintTitles:     SubItems.Add('PrintTitles');
        bnRecorder:        SubItems.Add('Recorder');
        bnDataForm:        SubItems.Add('DataForm');
        bnAutoActivate:    SubItems.Add('AutoActivate');
        bnAutoDeactivate:  SubItems.Add('AutoDeactivate');
        bnSheetTitle:      SubItems.Add('SheetTitle');
        bnNone:            SubItems.Add('');
      end;
      SubItems.Add(XLS.InternalNames[i].Definition);
    end;
  end;
end;

end.