Как использовать VBA.SaveAs, копируя число из ячейки в электронной таблице, сохраняя определенный числовой формат?

Question

В ячейке А1 у меня есть число (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