2. 开发问题
  3. 用遍历数组读取exl文件，对文件进行重命名，前11个文件都能重命名，第12个就不行了

用遍历数组读取exl文件，对文件进行重命名，前11个文件都能重命名，第12个就不行了

派大星_352150 2021-5-17 627

Dim a = "0"
Dim arrayRet = ""
Dim objExcelWorkBook = ""
objExcelWorkBook = Excel.BindBook("东城水表2021.xlsx")
arrayRet = Excel.ReadRange(objExcelWorkBook,"数据","B2:D23")
For Each value In arrayRet
    a = a+1
    a = Math.Int(a)
    If value[0]="ture"
        
        File.RenameEx("I:\\水表管理\\2021水表\\东城-临河东城安置房项目水表照片\\草稿\\"&a&".jpg",""&value[1]&" "&value[2]&".jpg")
    Else
        
    End If
    If value[0]="完毕"
        
        exit()
    Else
        
    End If
    
Next


最新回复 (5)
  • 派大星_352150 2021-5-17
    2楼
    [10:33:30]工作路径已切换到 I:\software\uibot\水表\
    [10:33:30]流程 流程块8.task 开始运行
    [10:33:30]流程块8.task 第13行：模块 File.RenameEx 调用出错：路径对应的文件或文件夹不存在。
    [10:33:30]流程块8.task 运行已结束
  • 派大星_352150 2021-5-17
    3楼
    挺奇怪的，前11个都行，到第12个就不行了
  • life 2021-5-17
    4楼
    a+1写最下面
  • 派大星_352150 2021-5-17
    5楼
    life a+1写最下面
    还是不行
  • 王帅_433066 2021-8-11
    6楼
    老哥解决了吗？可以参考一下你的源码吗
返回
发新帖