找回密码
当前位置：Mikel > 开发笔记 > Delphi > 正文

[Delphi-码农]Delphi EXCEL导入 - CSDN博客

2018-04-12 分类：Delphi 阅读(1106) 评论(0)

来源： [Delphi-码农]Delphi EXCEL导入 – CSDN博客

 

整理过的

 view plain copy

  1. procedure TParameterALterFines.btnImportExcelClick(Sender: TObject);
  2. const
  4.   BeginRow = 2; BeginCol = 1;
  5. var
  6.   Excel: OleVariant;
  7.   iRow,iCol : integer;
  8.   xlsFilename: string;
  9.   ExcelRowCount  : integer;
  10. begin
  11.   OpenDialog1.Title := ‘请选择正确的excel文件’;
  12.   OpenDialog1.Filter := ‘Excel(*.xls)|*.xls’;
  13.   if OpenDialog1.Execute then
  14.     edit1.Text := OpenDialog1.FileName;
  16.   if (trim(edit1.Text) = ”) then
  17.   begin
  18.     GetActiveWindow();
  19.     showmessage( ‘请选择正确的excel路径’);
  20.     exit;
  21.   end;
  22.   xlsFilename := trim(edit1.Text);
  25.   try
  26.     Excel := CreateOLEObject(‘Excel.Application’);
  27.   except
  28.     showmessage(‘excel没有安装’);
  29.     Exit;
  30.   end;
  32.   Excel.Visible := false;
  33.   Excel.WorkBooks.Open(xlsFilename);
  34.   ExcelRowCount := Excel.WorkSheets[1].UsedRange.Rows.Count;
  35.   //showmessage(inttoStr(ExcelRowCount));
  36.   try
  37.     iRow := BeginRow;
  38.     iCol := BeginCol;
  42.     while trim(Excel.WorkSheets[1].Cells[iRow,iCol].value) <> ” do
  43.     //WHILE iRow<ExcelRowCount Do
  44.     begin
  45.       with ADOQuery1 do
  46.       begin
  47.         //Append;
  48.         //Fields[0].AsString := trim(Excel.WorkSheets[1].Cells[iRow,iCol].value);
  49.         //Fields[1].AsString := trim(Excel.WorkSheets[1].Cells[iRow,iCol+1].value);
  50.         //Fields[2].Asstring := trim(Excel.WorkSheets[1].Cells[iRow,iCol+2].value);
  52.           close;
  53.           SQL.clear;
  54.           SQL.Text:=‘insert into Temp (ID,Content) ‘;
  55.           SQL.Text:=sql.Text+‘select   ‘+trim(Excel.WorkSheets[1].Cells[iRow,iCol].value);
  56.           sql.Text:=sql.Text+‘ , ‘+  trim(Excel.WorkSheets[1].Cells[iRow,iCol+1].value);
  57.           execsql;
  59.           iRow := iRow + 1;
  60.       end;
  62.     end;
  63.     Excel.Quit;
  64.     ADOQuery1.UpdateStatus ;
  65.   except
  67.     showmessage(‘导入数据出错’);
  68.     Excel.Quit;
  69.     //Exit;
  70.   end;
  75.   //MessageBox(GetActiveWindow(), ‘数据导入成功’, ‘提示信息’, MB_OK +  MB_ICONWARNING);
  79. end;

 

http://zhidao.baidu.com/link?url=hNhGnrIAKOWJEIICoZwdKtcof7zyj_LMp-PlV2xmjgRIdAKSWDRuPT3xxzqGdhSlZc6NXsKSckbPSOdk7cBJ2a

 view plain copy

  1. 元接口部分引用 comobj 单元(uses )
  2. procedure TForm1.Button1Click(Sender: TObject);
  4. var excelx,excely : string;
  6. begin
  8.     try
  10.       ExcelApp := CreateOleObject(‘Excel.Application’);
  12.       WorkBook := ExcelApp.WorkBooks.Open(opendialog.FileName);//使用opendialog对话框指定
  13. //excel档路径
  15. ExcelApp.Visible := false;
  17.       ExcelRowCount := WorkBook.WorkSheets[1].UsedRange.Rows.Count;
  19.       for i := 1 to excelrowcount + 1 do
  21.       begin
  23.         excelx := excelapp.Cells[i,1].Value;
  25.         excely := excelapp.Cells[i,2].Value;
  27.         if ((excelapp.Cells[i,1].Value  = ”) and (ExcelApp.Cells[i,2].Value = ”)) then
  28. //指定excel档的第 i 行 ,第 1,2(看情况而定)行如果为空就退出,这样的设定,最好是你的档案力这两行//对应数据库中不能为空的数据
  30.           exit
  32.         else
  34.         with query1 do
  36.         begin
  38.           close;
  39.           sql.clear;
  40. sql.add(insert into test(name,address) values(:name,:address));
  41. parambyname(‘name’).asstring := excelx;//excel档的第一列插入到test表的 name栏位;
  42. parambyname(‘address’).asstring := excely;//excel档的第二列插入到test表的 address 栏位;
  43. execsql;
  45.         end;
  47.       end;
  49.       finally
  51.         WorkBook.Close;
  53.         ExcelApp.Quit;
  55.         ExcelApp := Unassigned;
  57.         WorkBook := Unassigned;
  59.     end;
  61.   end;

 

Delphi Excel导入 的通用程序 .

http://www.cnblogs.com/zhangzhifeng/archive/2013/05/24/3096742.html
 view plain copy

  1. Delphi Excel导入 的通用程序 .
  2. 分类： delphi 2012–09–24 18:19 127人阅读 评论(0) 收藏 举报
  3. exceldelphiintegerprocedure TForm1.btnClick(Sender: TObject);
  4. begin
  5.   OpenDialog1.Title := ‘请选择正确的excel文件’;
  6.   OpenDialog1.Filter := ‘Excel(*.xls)|*.xls’;
  7.   if OpenDialog1.Execute then
  8.   edit1.Text := OpenDialog1.FileName;
  9. end;
  12. procedure TForm1.btninClick(Sender: TObject);
  13. const
  15.   BeginRow = 2; BeginCol = 1;
  16. var
  17.   Excel: OleVariant;
  18.   iRow,iCol : integer;
  19.   xlsFilename: string;
  20. begin
  21. if (trim(edit1.Text) = ”) then
  22.   begin
  23.   MessageBox(GetActiveWindow(), 请选择正确的excel路径’, MB_OK +
  24.   MB_ICONWARNING);
  25.   exit;
  26.   end;
  27.   xlsFilename := trim(edit1.Text);
  28.   try
  29.   Excel := CreateOLEObject(‘Excel.Application’);
  30.   except
  31.   Application.MessageBox(‘excel没有安装’, ‘提示信息’, MB_OK+MB_ICONASTERISK+MB_DEFBUTTON1+MB_APPLMODAL);
  32.   Exit;
  33.   end;
  34.   Excel.Visible := false;
  35.   Excel.WorkBooks.Open(xlsFilename);
  36.   try
  37.   iRow := BeginRow;
  38.   iCol := BeginCol;
  40.   while trim(Excel.WorkSheets[1].Cells[iRow,iCol].value) <> ” do begin
  41.   with ADOQuery1 do begin
  42.   Append;
  43.   Fields[0].AsString := trim(Excel.WorkSheets[1].Cells[iRow,iCol].value);
  44.   Fields[1].AsString := trim(Excel.WorkSheets[1].Cells[iRow,iCol+1].value);
  45.   Fields[2].Asstring := trim(Excel.WorkSheets[1].Cells[iRow,iCol+2].value);
  46.   iRow := iRow + 1;
  47.   end;
  49.   end;
  50.   Excel.Quit;
  51.   ADOQuery1.UpdateStatus ;
  52.   except
  53.   Application.MessageBox(‘导入数据出错’, ‘提示信息’, MB_OK+MB_ICONASTERISK+MB_DEFBUTTON1+MB_APPLMODAL);
  54.   Excel.Quit;
  55.   end;
  56.   MessageBox(GetActiveWindow(), ‘数据导入成功’, ‘提示信息’, MB_OK +
  57.   MB_ICONWARNING);
  58. end;
赞(0) 打赏
分享到： 更多 (0)
标签：

相关推荐

热门标签

C# (813)ASP.NET MVC (619)Android (587)ASP.NET (447)数据库 (299)JavaScript (285)JQuery (221)PHP (210)SQLServer (197)程序开发 (156)架构设计 (155)源价值 (155)SQL (128)Java (111)EasyUi (85)教程 (76)网站 (67)Debug (63)互联网 (63)MySQL (60)Flash (56)搜索优化 (54)创意 (53)SEO (51)ASP.NET MVC3 (51)电子商务 (50)建站经验 (49)实例代码 (49)源码下载 (47)原创 (45)

分类

链接表

觉得文章有用就打赏一下文章作者

支付宝扫一扫打赏

微信扫一扫打赏