如何用Delphi将excel表转换成access？

Question

unit s1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, OleServer, Access2000;type
  TForm1 = class(TForm)
    AccessApplication1: TAccessApplication;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
AccessApplication1.OpenCurrentDatabase('f:\bingdb2.mdb',false,'''');
AccessApplication1.DoCmd.TransferSpreadsheet(acImport, acSpreadsheetTypeExcel8,
'yinbing', 'f:\b.xls', -1,true,'')
AccessApplication1.CloseCurrentDatabase;end;end.
[Error] s1.pas(29): Too many actual parameters
[Error] s1.pas(31): Missing operator or semicolon
[Fatal Error] sa.dpr(5): Could not compile used unit 's1.pas'怎么办？

Answer 1

querysql.SQL.Text:='SELECT * into newtable FROM [sheet1$] IN "c:\documents\book1.xls" "EXCEL 5.0;"';
querysql.ExecSQL();

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
  StrSql:string;
begin  StrSql := 'SELECT * into hh5 FROM [sheet1$] IN "D:\hh\练习文件夹\杂称\将Excel中的数据表倒入数据库\book1.xls" "EXCEL 5.0;"';
  ADOConnection1.Execute(StrSql);
end;