Salvar Arquivo Via Vba

[rsburjato]

Bom dia a todos,

Tenho uma rotina de VBA que gera um arquivo novo sempre que executado.

Gostaria que no final desta rotina a macro salvasse esse arquivo com um nome, ex: XXXX0001

Quando gerasse o proximo arquivo salvasse com o nome XXXX0002 e assim por diante.

Caso não tenha entendido favor pedir maiores detalhes.

Obrigado.

[Videal]

Dim NomeDoArquivo As String

'Primeiro voce deve fazer o seguinte

'Salvar o nome do arquivo na sua planilha na celula A1

'Como padrão deixe o valor da celula A2 como 1

'Coloque a minha rotina

NomeDoArquivo = Sheets("Nome_da_Planilha").Range("A1").Value

NomeDoArquivo = NomeDoArquivo & VBA.Format(Sheets("Nome_da_Planilha").Range("A2").Value, "0000")

'Coloque a sua rotina de salvar o arquivo

'''''''''''''''''''''''''''''''''''''''''

'''''''''''''''''''''''''''''''''''''''''

'Coloque a minha rotina

Sheets("Nome_da_Planilha").Range("A2").Value = Sheets("Nome_da_Planilha").Range("A2").Value + 1