delphi批量导入数据.docVIP

delphi批量导入数据?? 从Excel中导入数据到Access中：procedure TForm5.Button3Click(Sender: TObject); //excel导入var? EXLfile:string;?? sheet,XLApp,workbook : variant;?? iRow,MaxRow:integer;begin? if opendialog1.Execute then? begin??? EXLfile:=opendialog1.FileName;??? 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.WorkBoo