Dim msg = "本例子需要安装office2007或wps2016以上版本"
Dim iRet = ""
Dim Excel数据 = ""
Dim arrayRet = ""
Dim objRet = ""
Dim objExcelWorkBook = ""
Dim sRet = ""
Dim temp = ""
Try 
       objExcelWorkBook = Excel.OpenExcel('''C:\Users\Administrator\Desktop\5173上传版.xls''',True)
       Excel数据 = Excel.ReadRange(objExcelWorkBook,"Sheet1","A2:H200")
       Excel数据 = Math.Round(0.1,2)
TracePrint(Excel数据)
Catch 
       iRet = Dialog.MsgBox(msg,"UiBot","0","1",0)
       exit()
End Try
Return Excel数据

求改

Excel数据是个数组，而保留2位小数是针对一个数值进行的操作，你需要加个循环，然后在循环里把单个数值的变量依次去执行保留2位小数的操作。

核心红字部分
Dim msg = "本例子需要安装office2007或wps2016以上版本"
Dim iRet = ""
Dim Excel数据 = ""
Dim arrayRet = ""
Dim objRet = ""
Dim objExcelWorkBook = ""
Dim sRet = ""
Dim temp = ""
Try 
       objExcelWorkBook = Excel.OpenExcel('''C:\Users\Administrator\Desktop\5173上传版.xls''',True)
       Excel数据 = Excel.ReadRange(objExcelWorkBook,"Sheet1","A2:H200")

      for each 每个单元格数据 in  Excel数据 

             push(arrayRet ,Math.Round(每个单元格数据 ,2))

      next
      TracePrint(arrayRet )
Catch 
       iRet = Dialog.MsgBox(msg,"UiBot","0","1",0)
       exit()
End Try
Return Excel数据

需要定制流程开发的用户，可联系VX：valen-work 或 QQ：1027365075