把EXCEL数据导入ACCESS中,有什么好方法,急啊!!

Question

如文章标题

Answer 1

给你一个access和excel互相导入导出的例子
参考一下unit U_AccExcel;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, DB, ADODB;type
  TExcelandAccessFrm = class(TForm)
    AOpenDialog: TOpenDialog;
    EOpenDialog: TOpenDialog;
    Excel: TLabeledEdit;
    E: TLabeledEdit;
    Button1: TButton;
    Access: TLabeledEdit;
    A: TLabeledEdit;
    Button2: TButton;
    AEBtn: TButton;
    EABtn: TButton;
    CloseBtn: TButton;
    ADO: TADOConnection;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure CloseBtnClick(Sender: TObject);
    procedure EABtnClick(Sender: TObject);
    procedure AEBtnClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  ExcelandAccessFrm: TExcelandAccessFrm;implementation{$R *.dfm}procedure TExcelandAccessFrm.Button1Click(Sender: TObject);
begin
  if EOpenDialog.Execute  then  Excel.Text := EOpenDialog.FileName;
end;procedure TExcelandAccessFrm.Button2Click(Sender: TObject);
begin
  if AOpenDialog.Execute then Access.Text := AOpenDialog.FileName;
end;procedure TExcelandAccessFrm.CloseBtnClick(Sender: TObject);
begin
  Close;
end;procedure TExcelandAccessFrm.EABtnClick(Sender: TObject);
var
  SQLStr:string;
begin
  if ((Excel.Text<>'')and(Access.Text<>'')and(e.Text<>'')and(a.Text<>'')) then
   begin      ADO.Connected:=false;
      ADO.ConnectionString:=
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+access.Text+';'
      +'Persist Security Info=False';
      SQLStr:='select * into '+a.Text+' FROM [excel 8.0;database='+excel.Text+'].['+e.Text+'$]';
      ADO.Execute(SQLStr);
      ADO.Connected:=true;
      Application.MessageBox('数据转换成功','系统提示');
   end
else
  begin
    Application.MessageBox('请输入完整数据','系统提示');
  end;
end;procedure TExcelandAccessFrm.AEBtnClick(Sender: TObject);
var
  SQLStr:string;
begin
 if ((Excel.Text<>'')and(Access.Text<>'')and(e.Text<>'')and(a.Text<>'')) then
  begin
    ADO.Connected:=false;
    ADO.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+access.Text+';'
    +'Persist Security Info=False';
    SQLStr:='Select* Into '+e.Text+' In "'+Excel.Text+'" "Excel 8.0;" From '+a.Text;
    ADO.Execute(SQLStr);
    ADO.Connected:=true;
    Application.MessageBox('数据转换成功','系统提示');
  end
else
  begin
    Application.MessageBox('请输入完整数据','系统提示');
  end;
end;end.

Answer 2

select * into <table name> from [excel 8.0;database=<filename>].[<sheetname>$]