procedure TForm1.Button1Click(Sender: TObject); var firs, third, fouth, fifth: string; excelApp: Variant; workbook: Variant; ExcelRowCount, i: integer; begin try ExcelApp := CreateOleObject('Excel.Application'); if OpenDialog1.Execute then WorkBook := ExcelApp.WorkBooks.Open(opendialog1.FileName); //使用opendialog对话框指定 //excel档路径 ExcelApp.Visible := false; ExcelRowCount := WorkBook.WorkSheets[1].UsedRange.Rows.Count; for i := 2 to excelrowcount + 1 do begin firs := excelApp.cells[i, 2].value; third := excelapp.Cells[i, 4].Value; fouth := excelapp.Cells[i, 5].Value; fifth := excelApp.cells[i, 6].value; with ADOQuery1 do begin close; sql.clear; sql.add('insert into TB_BUS_STATION(BS_NUM,BS_NAME,LONGI,LATI)values(''' + firs + ''',''' + third + ''',''' + fouth + ''',''' + fifth + ''')'); //excel档的第一列插入到test表的 name栏位; //excel档的第二列插入到test表的 address 栏位; execsql; end; end; finally WorkBook.Close; ExcelApp.Quit; ExcelApp := Unassigned; WorkBook := Unassigned; end; ShowMessage('导入成功'); end; 原文地址:点击查看 源码下载:点击下载 来源:51编程网 www.51bcw.com