Dim dRet = ""
Dim arrayRet = ""
Dim objRet = ""
Dim objExcelWorkBook = ""
objExcelWorkBook = Excel.OpenExcel('''C:\Users\Administrator\Desktop\小城库存.XLS''',False,"Excel","","")
arrayRet = Excel.ReadColumn(objExcelWorkBook,"Sheet1","c1")
For Each value In arrayRet
dRet = CNumber(value)
TracePrint(dRet)
If value=""
Break
Else
End If
Next
[20:04:57]工作路径已切换到 C:\Users\Administrator\Documents\UiBot\creator\Projects\流程6\
[20:04:57]流程 流程块.task 开始运行
[20:05:02]流程块.task 第10行:123.4
[20:05:02]流程块.task 第10行:256.55
[20:05:02]流程块.task 第10行:1.25
[20:05:02]流程块.task 第10行:0
[20:05:02]流程块.task 运行已结束