2. 开发问题
  3. 读取表格数据时带.0简单解决方法【适用萌新】

读取表格数据时带.0简单解决方法【适用萌新】

life 2021-4-2 824


_读取表格数据时带.0简单解决方法【适用萌新】

objExcelWorkBook = Excel.BindBook("1.xlsx")
iRet = Excel.GetRowsCount(objExcelWorkBook,"Sheet1")
arrayRet = Excel.ReadRange(objExcelWorkBook,"Sheet1","A2:B"&iRet)
TracePrint(arrayRet)
objDatatable = Datatable.BuildDataTable(arrayRet,["数据","类型"])
Datatable.ConvertColumnDataType(objDatatable,"数据","int",False,Null)//可转字符串，浮点数，整数
objDatatable = Datatable.GetDataTableByArray(objDatatable,False)
TracePrint(objDatatable)
TracePrint( "上数据表转（可转字符串，浮点数，整数），下计次循环转"   )
iRet = UBound(arrayRet)
For i = 0 To iRet Step 1
    // arrayRet[i][0] = CStr(arrayRet[i][0])//转文本
    // arrayRet[i][0] = CNumber(arrayRet[i][0])//转小数
    arrayRet[i][0] = CInt(arrayRet[i][0])//转整数
Next
TracePrint(arrayRet )
流程块4.task 第4行：[
[ 13841534715.0, "整数" ],
[ 13841534716.0, "整数" ],
[ 13841534717.0, "整数" ],
[ 13841534718.0, "整数" ]
]
[20:27:51]流程块4.task 第8行：[
[ 13841534715, "整数" ],
[ 13841534716, "整数" ],
[ 13841534717, "整数" ],
[ 13841534718, "整数" ]
]
[20:27:51]流程块4.task 第9行："上数据表转（可转字符串，浮点数，整数），下计次循环转"
[20:27:51]流程块4.task 第16行：[
[ 13841534715, "整数" ],
[ 13841534716, "整数" ],
[ 13841534717, "整数" ],
[ 13841534718, "整数" ]
]

上述方法只针对纯整数，数据如果带整数，浮点数，字符串或其他类型，应用计次循环逐个判断数据类型后转相应需求数据类型。

上传的附件：
  • 1.xlsx (大小：9.98K，下载次数：0)
最新回复 (0)
返回
发新帖