Boa note Calebe

Seja bem-vindo ao fórum!

Movi teu tópico para a sala VBA & Macros, pois onde vc postou é exclusivo para postagens de dicas e macetes sobre Excel.

Por enquanto vou deixar o tópico sendo mostrado nos 2 locais.

At.te

Patropi - Moderador

Boa noite!!

Enquanto isso..tente...

Sub AleVBA_12390()
fname = Application.GetSaveAsFilename(InitialFileName:=".AleVBA", FileFilter:="CSV (Comma delimited) (*.csv), *.csv", Title:="Salvar como")
fname = Replace(fname, ".csv", ".AleVBA", 1, -1, vbTextCompare)
ActiveWorkbook.SaveAs Filename:=fname, FileFormat:=xlCSV
End Sub

Att

Boa tarde Calebe,

Esse arquivo .CSV você pretende importar em algum sistema e por isso precisa que permaneça nessa extensão? Ou quando você extrai de determinado sistema e precisa trabalhar com a informação, quando vai salvar e coloca o formato .CSV ele some os zeros da frente do número?

Atenciosamente.