Como guardar um ficheiro do Excel com marca temporal?
Já alguma vez tentou guardar um ficheiro do Excel com a marca temporal atual? Este artigo mostra-lhe uma forma simples de o fazer.
Guarde um ficheiro do Excel com marca temporal utilizando código VBA
Guarde um ficheiro do Excel com marca temporal utilizando código VBA
Pode executar o código VBA abaixo para guardar um ficheiro do Excel com marca temporal. Siga os passos seguintes.
1. No livro de trabalho que pretende guardar com a marca temporal atual, prima simultaneamente as teclas Alt+F11 para abrir a janela Microsoft Visual Basic para Aplicações.
2. Na janela Microsoft Visual Basic para Aplicações, clique em Inserir > Módulo. Em seguida, copie o código VBA abaixo para a janela Código. Veja a imagem:
Código VBA: Guardar um ficheiro do Excel com marca temporal (substituir o nome do ficheiro pela marca temporal)
Sub SaveAsFilenameWithTimestamp()
'Updated by Extendoffice 20191223
Dim xWb As Workbook
Dim xStrDate As String
Dim xFileName As Variant
Dim xFileDlg As FileDialog
Dim i As Variant
Application.DisplayAlerts = False
Set xWb = ActiveWorkbook
xStrDate = Format(Now, "yyyy-mm-dd hh-mm-ss")
If Right(xWb.Name, 4) = "xlsm" Then
xFileName = Application.GetSaveAsFilename(xStrDate, "Excel Macro-Enabled Workbook (*.xlsm),*.xlsm")
Else
xFileName = Application.GetSaveAsFilename(xStrDate, "Excel Workbook (*.xlsx),*.xlsx")
End If
If xFileName = False Then
Else
xWb.SaveAs (xFileName)
End If
Application.DisplayAlerts = True
End Sub
3. Prima a tecla F5 para executar o código. Aparecerá uma caixa de diálogo Guardar Como, onde poderá ver a marca temporal na caixa Nome do ficheiro. Especifique a localização onde pretende guardar o ficheiro e clique no botão Guardar. Veja a imagem:
Notas:
1. O novo ficheiro do Excel criado será guardado diretamente com o nome correspondente à marcação temporal atual.
2. Nos ficheiros do Excel já existentes, o nome original será substituído pela marca temporal.
Se pretender adicionar a marca temporal após o nome original do ficheiro, em vez de o substituir, utilize o código VBA abaixo.
Código VBA: Guardar um ficheiro do Excel com marca temporal (inserir a marca temporal após o nome original do ficheiro)
Sub AddTimestampToFileName()
'Updated by Extendoffice 20191223
Dim xWb As Workbook
Dim xStr As String
Dim xStrOldName As String
Dim xStrDate As String
Dim xFileName As Variant
Dim xFileDlg As FileDialog
Dim i As Variant
Application.DisplayAlerts = False
Set xWb = ActiveWorkbook
xStrOldName = xWb.Name
xStr = Left(xStrOldName, Len(xStrOldName) - 5)
xStrDate = Format(Now, "yyyy-mm-dd hh-mm-ss")
If Right(xStrOldName, 4) = "xlsm" Then
xFileName = Application.GetSaveAsFilename(xStr & " " & xStrDate, "Excel Macro-Enabled Workbook (*.xlsm),*.xlsm")
Else
xFileName = Application.GetSaveAsFilename(xStr & " " & xStrDate, "Excel Workbook (*.xlsx),*.xlsx")
End If
If xFileName = False Then
Else
xWb.SaveAs (xFileName)
End If
Application.DisplayAlerts = True
End Sub
Desbloqueie a Magia do Excel com KUTOOLS AI
- Execução Inteligente: Realize operações em células, analise dados e crie gráficos — tudo impulsionado por comandos simples.
- fórmulas personalizadas: Crie fórmulas personalizadas para simplificar os seus fluxos de trabalho.
- Programação VBA: Escreva e implemente código VBA com facilidade.
- Interpretação de Fórmulas: Compreenda facilmente fórmulas complexas.
- Tradução de Texto: Elimine barreiras linguísticas nas suas folhas de cálculo.
Artigos relacionados:
- Como guardar uma folha de cálculo em formato PDF e enviá-la por e-mail como anexo através do Outlook?
- Como utilizar a função Guardar Como para substituir automaticamente um ficheiro existente no Excel?
- Como guardar ou exportar várias ou todas as folhas para ficheiros CSV separados ou para um ficheiro de texto no Excel?
- Como desativar ou impedir a utilização das opções Guardar e Guardar Como no Excel?
- Como desativar o guardado do livro de trabalho, permitindo apenas a opção Guardar Como no 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