Excel VBScript：能够将时髦的指数数转换为可读格式

Question

在 Power Automate Desktop 中使用 VBScript 寻找一种将列从“常规”格式转换为“数字”格式的方法

我有一个 excel 工作簿 (xlsx)，最终用户可以通过两种方式之一填充它。

1. 他们有公式设置来填充值
2. 他们手动输入

在这两种情况下，它们为特定列填充的值往往存在问题。这些值采用时髦的指数格式

例子：

有效号码= 149300952822
复制的结果= 1.49301E+11

我正在寻找一种方法来将特定列格式更新为没有小数位的数字格式，在用户输入他们的值之后。

我尝试了一些不同的东西，但似乎无法让它工作。

这是我尝试过的，任何帮助将不胜感激 注意： 这列要输入的数字值的长度各不相同，所以我不想设置具体的数字位数。只是想将其格式化为不带小数位的数字（我确定我在下面尝试的方法中有很大差距）

'Opens the Excel file'

    Set objExcel = CreateObject("Excel.Application")

    Set objWorkbook = objExcel.Workbooks.Open("%TempFile%")

    Set INVSheet = objWorkbook.Sheet("INV")

    objExcel.Application.Visible = True

'Change format from text to number

    objWorkbook.INVSheet.Columns("P:P").NumberFormat ="0"

'Saves and closes the Excel file'

    objWorkbook.Save

    objWorkbook.Close SaveChanges = True

Answer 1

通过将其转换为 JSON 找到了替代解决方案，它以某种方式解决了这个问题