Como salvar um arquivo do Excel com o valor da célula?

Ao usar uma pasta de trabalho, você já pensou em salvar o arquivo do Excel com base no conteúdo de uma célula? Por exemplo, se você tiver “Preço de venda” na célula A1 e quiser salvar a pasta de trabalho com o nome Preço de venda. Claro, você pode digitar o nome na caixa de diálogo Salvar Como e salvá-la. Mas isso será um método ineficiente considerando sua quantidade de trabalho. Hoje, vou mostrar um truque rápido para resolver isso.

Salvar arquivo do Excel com valor específico da célula usando código VBA

Salvar arquivo do Excel com valor específico da célula usando código VBA

O seguinte código VBA pode ajudar você a salvar sua pasta de trabalho com um valor específico da célula; por favor, siga os passos abaixo:

1. Pressione as teclas ALT + F11 para abrir a janela Microsoft Visual Basic for Applications.

2. Clique em Inserir > Módulo e cole o seguinte código na Janela do Módulo.

Código VBA: Salvar arquivo do Excel com valor específico da célula

Private Sub filename_cellvalue()
'Updateby Extendoffice
Dim Path As String
Dim filename As String
Path = "C:\Users\dt\Desktop\my information\"
filename = Range("A1")
ActiveWorkbook.SaveAs filename:=Path & filename & ".xls", FileFormat:=xlNormal
End Sub

3. Em seguida, pressione a tecla F5 para executar o código, e sua pasta de trabalho será nomeada conforme o conteúdo da célula A1. Veja a captura de tela:

Notas:

1. Você pode especificar qualquer valor de célula como o nome do arquivo apenas modificando o A1 para outra referência de célula no código acima.

2. Sua pasta de trabalho ativa será salva na pasta C:\Users\dt\Desktop\my information\ (a última barra deve ser mantida quando você colar seu local para substituí-la) e você pode alterar o caminho conforme necessário.

Artigos relacionados:

Como salvar um arquivo com data e hora no Excel?

Como exibir o caminho do arquivo na barra de título ou na barra de ferramentas no Excel?