Como salvar um nome de arquivo do Excel com carimbo de data/hora?
Você já tentou salvar um arquivo do Excel com o carimbo de data/hora atual? Este artigo mostrará um método para alcançar isso.
Salvar um nome de arquivo do Excel com carimbo de data/hora usando código VBA
Salvar um nome de arquivo do Excel com carimbo de data/hora usando código VBA
Você pode executar o seguinte código VBA para salvar um nome de arquivo do Excel com carimbo de data/hora. Por favor, siga os passos abaixo.
1. Na pasta de trabalho que você precisa nomear com o carimbo de data/hora atual, pressione simultaneamente as teclas Alt + F11 para abrir a janela Microsoft Visual Basic for Applications.
2. Na janela Microsoft Visual Basic for Applications, clique em Inserir > Módulo. Em seguida, copie o código VBA abaixo na janela Código. Veja a captura de tela:
Código VBA: Salvar um nome de arquivo do Excel com carimbo de data/hora (substituir o nome do arquivo pelo carimbo de data/hora)
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. Pressione a tecla F5 para executar o código. Em seguida, uma caixa de diálogo Salvar Como aparecerá, e você poderá ver o carimbo de data/hora exibido na caixa Nome do arquivo. Especifique um local para salvar este arquivo e, em seguida, clique no botão Salvar. Veja a captura de tela:
Notas:
1. O novo arquivo do Excel criado será salvo diretamente com o nome do carimbo de data/hora atual.
2. Para aqueles arquivos do Excel já existentes, o nome do arquivo original será substituído pelo carimbo de data/hora.
Se você quiser apenas adicionar o carimbo de data/hora após o nome do arquivo original, em vez de substituí-lo, aplique o seguinte código VBA.
Código VBA: Salvar um nome de arquivo do Excel com carimbo de data/hora (Inserir carimbo de data/hora após o nome do arquivo original)
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 o Kutools AI
- Execução Inteligente: Realize operações de células, analise dados e crie gráficos — tudo impulsionado por comandos simples.
- Fórmulas Personalizadas: Gere fórmulas sob medida para otimizar seus fluxos de trabalho.
- Codificação VBA: Escreva e implemente código VBA sem esforço.
- Interpretação de Fórmulas: Compreenda fórmulas complexas com facilidade.
- Tradução de Texto: Supere barreiras linguísticas dentro de suas planilhas.
Artigos relacionados:
- Como salvar uma planilha como arquivo PDF e enviá-la como anexo por e-mail através do Outlook?
- Como usar a função Salvar Como para substituir automaticamente um arquivo existente no Excel?
- Como salvar, exportar várias/todas as planilhas para arquivos CSV ou de texto separados no Excel?
- Como desabilitar ou não permitir as opções Salvar e Salvar Como no Excel?
- Como desabilitar a opção de salvar a pasta de trabalho, mas permitir apenas Salvar Como no Excel?
Melhores Ferramentas de Produtividade para Office
Impulsione suas habilidades no Excel com Kutools para Excel e experimente uma eficiência incomparável. Kutools para Excel oferece mais de300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para acessar o recurso que você mais precisa...
Office Tab traz interface com abas para o Office e facilita muito seu trabalho
- Habilite edição e leitura por abas no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie múltiplos documentos em novas abas de uma mesma janela, em vez de em novas janelas.
- Aumente sua produtividade em50% e economize centenas de cliques todos os dias!
Todos os complementos Kutools. Um instalador
O pacote Kutools for Office reúne complementos para Excel, Word, Outlook & PowerPoint, além do Office Tab Pro, sendo ideal para equipes que trabalham em vários aplicativos do Office.
- Pacote tudo-em-um — complementos para Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Um instalador, uma licença — configuração em minutos (pronto para MSI)
- Trabalhe melhor em conjunto — produtividade otimizada entre os aplicativos do Office
- Avaliação completa por30 dias — sem registro e sem cartão de crédito
- Melhor custo-benefício — economize comparado à compra individual de add-ins