uses comobj,Excel97,excel2000;

//從Excel寫數據到access庫
PRodedure ExcelToMdb(EXLfile:string;);
var
  sheet,XLApp,workbook : variant;
  iRow,MaxRow:integer;
begin
  screen.Cursor:=crHourGlass; 
  try
    //創建對象
    XLApp:=createOleObject('Excel.application');
      XLApp.displayAlerts:=false;
      XLApp.ScreenUpdating:=false;
    XLApp.WorkBooks.Add(EXLfile);
    workbook := XLApp.workbooks[1];
    sheet:=workbook.worksheets[1];
    //sheet:=XLApp.WorkBooks[1].worksheets[1];
   
   
    //取得最大行數  maxRow
    XLApp.ActiveCell.SpecialCells(xlLastCell).Select;
    maxRow:=XLApp.ActiveCell.Row;     //最大行數

    //寫數據到Access庫
    ADOTable1.open;
    for iRow:=2 to MaxRow do
    if sheet.cells[iRow,1]<>'' then  //關鍵字不為空
    begin
      ADOTable1.Append ;
      ADOTable1.fieldByName('ID').asInteger:=
                                   strToInt(sheet.cells[iRow,1]);
      ADOTable1.fieldByName('code').asString:=sheet.cells[iRow,2]; //編碼
      ADOTable1.fieldByName('name').asString:=sheet.cells[iRow,3]; //名稱
      ADOTable1.post;
    end;

  finally
    if not VarIsEmpty(XLApp) then begin  //釋放對象
      XLApp.displayAlerts:=false;
      XLApp.ScreenUpdating:=true;
      XLApp.quit;
    end;
    screen.Cursor:=crDefault;
  end;
end;

//=================== 其他一些屬性方法 ===============//

    curRow:=XLApp.ActiveCell.Row; //當前行數
    XLApp.displayAlerts:=false;   //運行宏時是否顯示警告和消息
    XLApp.ScreenUpdating:=false;  //屏幕更新功能,提高速度;
                                  //結束運行后，ScreenUpdating 設回到 True

    XLApp.run('macroName',params...)//運行宏

    workbook.save ;
    workBook.SaveAs(AFileName,xlNormal,'','',False,False);