Question

我有这个代码，它按预期工作。除非它给出了错误和无法使用的结果。

Sub OpenXLS1()
    Dim strFile As String
    Dim strXLS As String

    strFile = ActiveWorkbook.Path
    strXLS = "results.xls"
    Workbooks.Open strFile & "\" & strXLS
    Range("A1").CurrentRegion.Copy Destination:=Workbooks("Machine.xlsm").Sheets("Import").Range("A2")
    Range("A1330").CurrentRegion.Copy Destination:=Workbooks("Machine.xlsm").Sheets("Import").Range("B4")
    Range("A2661").CurrentRegion.Copy Destination:=Workbooks("Machine.xlsm").Sheets("Import").Range("C1")
    Range("A3989").CurrentRegion.Copy Destination:=Workbooks("Machine.xlsm").Sheets("Import").Range("D2")
    Range("A5318").CurrentRegion.Copy Destination:=Workbooks("Machine.xlsm").Sheets("Import").Range("E2")
    Range("A6647").CurrentRegion.Copy Destination:=Workbooks("Machine.xlsm").Sheets("Import").Range("F2")
    Workbooks(strXLS).Close
End Sub

results.xls文件具有General（即0,000145958）和科学格式（即6,83E-05）的值。运行脚本后，我得到以下结果：

0,000145958已成为0,000145958184，但只是将其格式化为文字，我无法在其他公式中使用它。

6,83E-05已成为6,83E+03而且非常不酷。

非常感谢任何帮助！

VBA改变科学价值形式

0 个答案: