QQ登录

只需一步,快速开始

搜索
查看: 121|回复: 1

读取excel循环语句

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

马上注册加入鱼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
1. 如果您的提问得到满意的答案,请务必选择【最佳答案】;2. 如果想鼓励一下楼主或帮助到您的朋友,可以给他们【评分】作为奖励;
3. 善用【论坛搜索】功能,那里可能有您想要的答案;4. 粘贴代码请点击编辑框上的 <> 按钮,否则您的代码可能会被“吃掉”!
最佳答案
176 
累计签到:221 天
连续签到:5 天
发表于 2017-10-11 14:34:36 | 显示全部楼层
1. 如果您的提问得到满意的答案,请务必选择【最佳答案】;2. 如果想鼓励一下楼主或帮助到您的朋友,可以给他们【评分】作为奖励;
3. 善用【论坛搜索】功能,那里可能有您想要的答案;4. 粘贴代码请点击编辑框上的 <> 按钮,否则您的代码可能会被“吃掉”!
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

关闭

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

小黑屋手机版Archiver( 粤公网安备 44051102000370号 | 粤ICP备11014136号

© 2010-2017 FishC.com GMT+8, 2017-10-24 13:45 Powered by Discuz! X2.5 Theme by dreambred

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