QQ登录

只需一步,快速开始

登录 | 立即注册 | 找回密码

主题

帖子

荣誉

VIP至尊会员

Rank: 15Rank: 15Rank: 15

积分
12
查看: 227|回复: 1

读取excel循环语句

[复制链接]
最佳答案
0 
累计签到:5 天
连续签到:1 天
sanyuan 发表于 2017-10-9 16:44:56 2271 | 显示全部楼层 |阅读模式

马上注册加入鱼C,享用更多服务吧^_^

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
excel数据为:

QQ图片.png
以下代码读取时,没有update到2017-09-10数据,后面还有2017-09-11  2017-09-12 等数据
var

iRE:Integer;
iRow,iCol :Integer;
MsExcel,MsExcelWorkBook,MsExcelWorkSheet:Variant;
i:Integer;
eicol:Integer;
eirow:Integer;
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');
     MsExcel.visible:=true;
     MsExcelWorkBook:=MsExcel.WorkBooks.Open(OpenDialog1.FileName);


    Application.ProcessMessages;//防止进程阻塞
    iRow:=2;
    iCol:=1;
    i:=1;
   

while trim(msExcel.WorkSheets['sheet1'].Cells[iCol,eicol].value) <> '' do begin
  
  with query.Close;
query.SQL.Text := 'update wh_dict set wh_amount=:wh_ amount  where wh_id= :wh_id  and wh_name:=wh_name and  in_date:=in_date  ;
   
    Parameters.ParamByName('wh_id').Value := Trim(msExcel.WorkSheets[1].Cells[iRow,iCol].value);
    Parameters.ParamByName('wh_name').Value := Trim(msExcel.WorkSheets[1].Cells[iRow,iCol+1].value);
    Parameters.ParamByName(' wh_amount').Value := Trim(msExcel.WorkSheets[1].Cells[iRow,iCol+2].value);
    Parameters.ParamByName('duty_date').Value := Trim(msExcel.WorkSheets[1].Cells[i,iCol+2].value);
    ExecSQL;
    end;
      iRow:=iRow+1;

   end;
     MsExcel.Quit;
    Except
       MessageBox(self.Handle,'数据导入失败!','系统提示',0);
       MsExcel.Quit;
       Exit;
      end ;
      MessageBox(self.Handle,'数据导入成功!','系统提示',0);
   end;


QQ图片20170929165215.png
楼层
跳转到指定楼层
最佳答案
176 
累计签到:229 天
连续签到:1 天
lumber2388779 发表于 2017-10-11 14:34:36 | 显示全部楼层
帮你顶一下 不会delphi

发表回复

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

关闭

小甲鱼强烈推荐 上一条 /2 下一条

    移动客户端下载(未启用)
    微信公众号

小黑屋|手机版|Archiver|鱼C工作室 ( 粤ICP备11014136号

Copyright 2018 鱼C论坛 版权所有 All Rights Reserved.

Powered by Discuz! X3.1 Copyright
© 2001-2018 Comsenz Inc.    All Rights Reserved.

小黑屋|手机版|Archiver|鱼C工作室 ( 粤公网安备 44051102000370号 | 粤ICP备11014136号

GMT+8, 2018-1-18 23:51

快速回复 返回顶部 返回列表