Como guardar um ficheiro no Excel com data e hora incluídas no nome?
Quando trabalhamos num livro, por vezes, precisamos de adicionar a Data e Hora Atuais ao guardarmos o ficheiro. Pode digitar manualmente a data e a hora após o nome do ficheiro na caixa de diálogo Guardar Como, mas aqui apresento-lhe um truque simples para automatizar esta tarefa.
Guardar ficheiro do Excel com data e hora utilizando código VBA
Guardar ficheiro do Excel com data e hora utilizando código VBA
Além de digitar manualmente a data e a hora, o código VBA seguinte permite-lhe adicionar automaticamente a data e hora atuais ao nome do ficheiro. Siga os passos abaixo:
1. Mantenha premidas as teclas ALT + F11 para abrir a janela do Microsoft Visual Basic for Applications.
2.Clique em Inserir>Módulo, e cole o código seguinte na Janela do Módulo.
Código VBA: Adicionar automaticamente data e hora ao nome do ficheiro
Sub filesave()
'Update 20141111
ActiveWorkbook.SaveAs ("C:\Users\dt\Desktop\my information\nov-kte-data " & Format(Now(), "DD-MMM-YYYY hh mm AMPM") & ".xlsx")
End Sub
3. Em seguida, prima a tecla F5 para executar este código; a data e hora atuais são adicionadas após o nome do seu livro atual, conforme ilustrado na imagem:
Nota: No código acima indicado, deverá alterar o caminho do ficheiro e o nome de acordo com as suas necessidades.
Artigos relacionados:
Como guardar um ficheiro do Excel utilizando o valor de uma célula?
Como exibir o caminho do arquivo na barra de título ou na barra de ferramentas do Excel?
As Melhores Ferramentas de Produtividade para o Office
Potencie as suas competências no Excel com Kutools para Excel e experimente uma eficiência como nunca antes.Kutools para Excel Oferece mais de 300 funcionalidades avançadas para impulsionar a produtividade e Economizar Tempo.Clique aqui para obter a funcionalidade de que mais precisa...
Office Tab Traz uma interface com separadores para o Office e torna o seu trabalho muito mais fácil
- Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novos separadores da mesma janela, em vez de em janelas separadas.
- Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato todos os dias!
Todos os suplementos Kutools — num único instalador.
Kutools for Office reúne suplementos para Excel, Word, Outlook e PowerPoint, além do Office Tab Pro, sendo a solução ideal para equipas que trabalham em várias aplicações do Office.
- Pacote tudo-em-um— suplementos para Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Um instalador, uma licença— configuração em minutos (pronto para MSI)
- Funciona melhor em conjunto— produtividade simplificada em todas as aplicações do Office
- Teste gratuito de 30 dias com todas as funcionalidades— sem registo, sem cartão de crédito
- Melhor relação qualidade-preço— poupe face à compra individual dos suplementos