Como usar o VBA .SaveAs copiando um número de uma célula na planilha mantendo um determinado formato numérico?

Question

Na célula A1, tenho o número (56.000), que é -56000 (negativo cinquenta e seis mil), formatado como Contabilidade. No entanto, sempre que uso o VBA para incluir esse valor de célula no nome do arquivo, ele salva como "Test-56000.xlms" em vez de "Test (56,000) .xlms". Como faço para manter a formatação do número?

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

Algo parecido com isso funcionará e usará a variável de string convertida no nome do arquivo.

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