如何将Excel中的数据导入数据库

最新推荐文章于 2024-10-08 17:16:52 发布

salut

最新推荐文章于 2024-10-08 17:16:52 发布

阅读量674

点赞数

文章标签： excel null application 数据库

本文链接：https://blog.csdn.net/salut/article/details/5436899

版权

procedure TForm1.btn3Click(Sender: TObject);
var
ExcelApplication: TExcelApplication;
ExcelWorkBook: TExcelWorkbook;
ExcelWorkSheet: TExcelWorksheet;
i: Integer;
begin
ExcelApplication := TExcelApplication.Create(nil);
ExcelWorkBook := TExcelWorkbook.Create(nil);
ExcelWorkSheet := TExcelWorksheet.Create(nil);
dlgO1.InitialDir := ExtractFileDir(ParamStr(0));
dlgO1.Execute;

try
    ExcelApplication.Connect
except
    MessageDlg('Excel可能尚未安装',mtError,[mbOK],0);
    Abort;
end;

ExcelApplication.Visible[0] := True;
ExcelApplication.Caption := 'Excel Application';

try
    ExcelApplication.Workbooks.Open(dlgO1.FileName,null,null,null,null,null,null,null,null,null,null,null,null,null,null,0);
except
    ExcelApplication.Disconnect;
    ExcelApplication.Quit;
    ShowMessage('请选择Excel表');
    Exit;
end;

ExcelWorkBook.ConnectTo(ExcelApplication.Workbooks[1]);
ExcelWorkSheet.ConnectTo(ExcelWorkBook.Worksheets[1] as _Worksheet);

for i := 1 to 1000 do
begin
    if Trim(ExcelWorkSheet.Cells.Item[i+1,1]) = '' then
      Break;
    edt1.Text := ExcelWorkSheet.Cells.Item[i+1,1];
    edt2.Text := ExcelWorkSheet.Cells.Item[i+1,2];
    edt3.Text := ExcelWorkSheet.Cells.Item[i+1,3];
    btn2.Click;
end;
FreeAndNil(ExcelApplication);
FreeAndNil(ExcelWorkBook);
FreeAndNil(ExcelWorkSheet);
end;