Criar arquivo excel com nome da aba via VBA

Question

Prezados amigos,

Gostaria de uma ajuda para elaboração de rotina em VBA para criar arquivo Excel com base em uma aba e renomear esse arquivo com o nome desta mesma aba. A primeira parte eu já consigo fazer, mas a parte de renomear o arquivo automaticamente não estou conseguindo! Peço ajuda de vocês!!!

Answer 1

Olá, sou Elivelton e estou aqui para te ajudar da melhor forma possível.

Tente utilizar o comando no VBA: atalho de teclado Alt+H > O > R e digite o novo nome.

Qualquer coisa me chama aqui, estou à disposição.

Oi Elivelton, boa tarde.

Eu realmente sou iniciante no VBA!

Como eu uso esse comando dentro do VBA? Qual seria a sintaxe?

Esse é a rotina que estou usando até o momento! Falta a parte de renomear!

Sub SalvarAba()

'Impede que o Excel atualize a tela

Application.ScreenUpdating = False

'Impede que o Excel exiba alertas

Application.DisplayAlerts = False

'Seta uma variável para se referir a nova pasta de trabalho

Dim NovoWB As Workbook

'Cria esta nova aba

Set NovoWB = Workbooks.Add(xlWBATWorksheet)

With NovoWB

'Copia a aba atual para o novo arquivo, como a segunda aba

ThisWorkbook.ActiveSheet.Copy After:=.Worksheets(.Worksheets.Count)

'Deleta a primeira aba do arquivo criado (Aba em branco)

.Worksheets(1).Delete

'Salva o novo arquivo para a mesma pasta do arquivo atual

'Troque "Novo Arquivo" para um outro nome qualquer que preferir

.SaveAs ThisWorkbook.Path & "\NovoArquivo.xlsx"

'Fecha o novo arquivo

.Close False

End With

'Permite que o Excel volte a atualizar a tela

Application.ScreenUpdating = False

'Permite que o Excel volte a exibir alertas

Application.DisplayAlerts = False

End Sub

Obrigado!

Answer 2

Olá, sou Elivelton e estou aqui para te ajudar da melhor forma possível.

Tente utilizar o comando no VBA: atalho de teclado Alt+H > O > R e digite o novo nome.

Qualquer coisa me chama aqui, estou à disposição.