按键精灵 读取office exl表格 0.87 写出为87？如何解决

Question

Call Plugin.Office.OpenXls("C:\Users\angfe\Desktop\text .xls")Redim A(30)X= 0For 26X= I + 1A(X) = Plugin.Office.ReadXls(1, 2,X)Delay 200NextSayString A(13)//输出文本结果为 99 实际应该为0.99// 表格里面是0.99 的时候 输出就是99//用 TracePrint A(X) 显示为 .99 没有0是 .99//ps： 有些数据 有1.72之类的 输出就正常

Answer 1

您好！根据您的描述，您可能需要将读取到的 Excel 表格中的 0.87 这个数值，将其转换为字符串形式的"87"。您可以尝试使用以下方法进行转换：

1. 使用字符串连接操作符`&`将数值与空字符串连接，例如：`Dim result As String = CStr(0.87) & ""`
2. 使用`CStr()`函数将数值转换为字符串，例如：`Dim result As String = CStr(0.87)`

Answer 2

如果你想在按键精灵中读取 Office Excel 表格中的数据，并将其转换为整数，可以使用以下脚本：

 
Dim ExcelPath
ExcelPath = "C:\Documents and Settings\Administrator\桌面\测试.xls" '请将此路径替换为你的 Excel 文件的路径

Dim ExcelApp, ExcelBook
Set ExcelApp = CreateObject("Excel.Application")
ExcelApp.Workbooks.Open ExcelPath

Dim ExcelSheet, ExcelRange
Set ExcelSheet = ExcelApp.Workbooks(ExcelPath).Sheets(1) '请将此索引替换为你的 Excel 文件中的工作表索引
Set ExcelRange = ExcelSheet.UsedRange

Dim i, j, Data
i = 1
j = 1
Data = ""

For i = 1 To ExcelRange.Rows.Count
For j = 1 To ExcelRange.Columns.Count
Data = Data & ExcelRange.Cells(i, j).Value & " "
Next
Data = Left(Data, Len(Data) - 1) '删除最后一个空格
Data = Int(Data) '将字符串转换为整数
'在此处添加你的操作
Next

ExcelApp.Workbooks(ExcelPath).Close
ExcelApp.Quit

MsgBox Data
 

请注意，此脚本假设你的 Excel 文件中只有一个工作表，并且数据存储在该工作表的单元格中。如果你的文件中有多个工作表或数据存储在其他单元格中，请相应地修改脚本。

此外，此脚本将读取所有单元格的数据，并将其转换为整数。如果你只想读取特定单元格的数据，可以在脚本中添加相应的条件语句。

希望这个脚本对你有所帮助！