uses comobj,excel97,excel2000; //从Excel写数据到Access库 //写数据到Access库 finally //=================== 其他一些属性方法 ===============// curRow:=XLApp.ActiveCell.Row; //当前行数 XLApp.run(macroName,params…)//运行宏 workbook.save ;
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; //最大行数
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;
if not VarIsEmpty(XLApp) then begin //释放对象
XLApp.displayAlerts:=false;
XLApp.ScreenUpdating:=true;
XLApp.quit;
end;
screen.Cursor:=crDefault;
end;
end;
XLApp.displayAlerts:=false; //运行宏时是否显示警告和消息
XLApp.ScreenUpdating:=false; //屏幕更新功能,提高速度;
//结束运行后,ScreenUpdating 设回到 True
workBook.SaveAs(AFileName,xlNormal,,,False,False);