Delphi與Excel

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);