Delphi将excel数据导入到数据库中源码.docVIP

Delphi将excel数据导入到数据库中源码 procedure Tfrmexceltodata.Button4Click(Sender: TObject); const BeginRow= 1; BeginCol= 2; var iRE:Integer; iRow,iCol :Integer; //列、行 MsExcel,MsExcelWorkBook,MsExcelWorkSheet:Variant; adoquery1:TADOQuery; sqlstr1,sqlstr2:string; begin Try OpenDialog1.FileName:=*.xls; if not OpenDialog1.Execute then begin Exit; end; if ExtractFileExt(OpenDialog1.FileName) .xls then begin MessageBox(0, 请选择正确的excel文件,PChar(提示),MB_OK or MB_ICONWARNING); Exit; end; MsExcel:=CreateOleObject(Excel.Application); Ms