excel导入

请教一下各位大哥大姐，我想把一个excel导入到数据库，并单独为这个文件创建一个表，然后用dbgrideh显示出来

请大家指教。

uses comobj

procedure Button1Click(Sender: TObject);
var
  dl,zl,xl : string;
  ExcelApp,WorkBook : variant;
  ExcelRowCount,i : Integer;
begin
  try
  dlgOpen1.Execute;
  ExcelApp := CreateOleObject('Excel.Application');
  WorkBook := ExcelApp.WorkBooks.Open(dlgOpen1.FileName);//使用opendialog对话框指定
  //excel档路径
  ExcelApp.Visible := false;
  ExcelRowCount := WorkBook.WorkSheets[1].UsedRange.Rows.Count;
  for i := 1 to excelrowcount + 1 do  
  begin
  dl := Trim(excelapp.Cells[i,1].Value);
  zl := Trim(excelapp.Cells[i,2].Value);
  xl := Trim(excelapp.Cells[i,3].Value);
  //插入数据
  end;
  finally
  WorkBook.Close;
  ExcelApp.Quit;
  ExcelApp := Unassigned;
  WorkBook := Unassigned;
  ShowInfo('导入成功');
  end;
end;

Delphi(Pascal) code

//.....创建表结构A(包含字段a1,a2)
//TableName:='$sheet1'。根据实际情况
//xlspath：excel完整路径
//b1,b2 是excel里的列名称
 strSQL:='INSERT INTO A(a1,a2）Select b1 as a1,b2 as a2 FROM [excel 8.0;database=' + xlspath + '].[' + TableName + ']'
然后执行这个SQL语句就能将Excel里的数据导入到数据库中
执行SQL之前先将ParamCheck := false;要不会报错

有个控件 XLSReadWriteII，存取XLS文件很方便，可以脱离Excel