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