如何使用 VBA.SaveAs 从电子表格中的单元格复制数字并保留特定的数字格式？

Question

在单元格 A1 中，我有一个数字 (56,000)，即 -56000（负五万六千），格式为“会计”。但是，每当我使用 VBA 将该单元格值包含在文件名中时，它都会将其保存为“Test-56000.xlms”，而不是“Test(56,000).xlms”。我如何让它保留数字格式？

Sub MyTest()

    TestFile = Dir("C:\Users\webcamz\Desktop\TEST\Test.xlsx")

    If TestFile <> "" Then
        Workbooks.Open "C:\Users\webcamz\Desktop\TEST\Test.xlsx"
    End If

    ActiveWorkbook.SaveAs Filename:="C:\Users\webcamz\Desktop\TEST\Test" & Range("A1").Value & ".xlsx"
    ActiveWorkbook.Close SaveChanges:=True

    MsgBox ("Done")

End Sub

Answer 1

类似这样的操作将会起作用并在文件名中使用转换后的字符串变量。

Dim str As String
If Range("A1").Value < 0 Then
    str = "(" & Abs(Range("A1")) & ")"
Else
    str = Range("A1").Value
End If