unit1.pas

使用delphi快速打开Excel文件并可选择工作表

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, OleServer, ExcelXP,ComObj, ComCtrls, DB,
  ADODB, Grids, DBGrids;



type
  TForm1 = class(TForm)
    Button3: TButton;
    stat1: TStatusBar;
    Button6: TButton;
    dlgOpen1: TOpenDialog;
    ds2: TDataSource;
    ds1: TADODataSet;
    con1: TADOConnection;
    DBGrid1: TDBGrid;
    ComboBox2: TComboBox;
    Label1: TLabel;
    procedure Button3Click(Sender: TObject);


    procedure Button6Click(Sender: TObject);
    procedure ComboBox2Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.Button3Click(Sender: TObject);
begin
close;
end;



procedure TForm1.Button6Click(Sender: TObject);
const
  Constring='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s;Mode=Read;Extended Properties=Excel 8.0;Persist Security Info=False';
var
  i:integer;
  TableName:string;
begin
  if dlgOpen1.Execute then
  begin
      ds1.Close;
      con1.Close;
      con1.ConnectionString:=Format(constring,[dlgOpen1.FileName]);
      con1.Open;
      con1.GetTableNames(ComboBox2.Items,false); //将工作簿名字显示到ComboBox1中
  end;
end;






procedure TForm1.ComboBox2Change(Sender: TObject);
var
  i:integer;
  TableName:string;
      begin
         for i:=0 to ComboBox2.Items.Count-1 do
         begin

               TableName:=ComboBox2.text;
         end;
         if TableName<>'' then
         begin
           ds1.Close;
           ds1.CommandText:='select * from ['+TableName+']';
           ds1.Open;
           stat1.SimpleText:='共'+inttostr(ds1.RecordCount)+'条记录！';
           for i:=0 to DBGrid1.Columns.Count-1 do
           begin
              DBGrid1.Columns[i].Width:=40;
            end;

         end;
      end;

end.