Como salvar o arquivo do Excel com o valor da célula?
Quando você usa uma pasta de trabalho, já pensou em salvar o arquivo do Excel com base no conteúdo de uma célula? Por exemplo, você tem “Preço de venda” na célula A1 e gostaria de 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á-lo. Mas esse será um método ineficiente em sua quantidade de trabalho. Hoje, vou falar sobre um truque rápido para resolver isso.
Salve o arquivo Excel com um valor de célula específico usando o código VBA
Salve o arquivo Excel com um valor de célula específico usando o código VBA
O seguinte código VBA pode ajudá-lo a salvar sua pasta de trabalho com um valor de célula especificado, faça o seguinte:
1. Segure o ALT + F11 chaves para abrir o Janela Microsoft Visual Basic for Applications.
2. Clique inserção > Móduloe cole o seguinte código no Janela Módulo.
Código VBA: Salve o arquivo Excel com o valor específico da célula
Private Sub filename_cellvalue()
'Update 20141112
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. E, em seguida, pressione F5 para executar o código e sua pasta de trabalho foi nomeada como o conteúdo da célula A1. Veja a imagem:
Observações:
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 de C: \ Usuários \ dt \ Desktop \ minhas informações \ (a última barra deve permanecer quando você cola sua localização em vez dela) localização, você pode alterar o caminho conforme sua necessidade.
Artigos relacionados:
Como salvar arquivo com data e hora no Excel?
Como mostrar o caminho do arquivo na barra de título ou na barra de ferramentas do Excel?
Melhores ferramentas de produtividade de escritório
Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
Office Tab traz interface com guias para o Office e torna seu trabalho muito mais fácil
- Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
- Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!