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á o método para alcançá-lo.
Salve um nome de arquivo do Excel com carimbo de data / hora com código VBA
Salve um nome de arquivo do Excel com carimbo de data / hora com código VBA
Você pode executar o código VBA abaixo para salvar um nome de arquivo do Excel com carimbo de data / hora. Faça o seguinte.
1. Na pasta de trabalho, você precisa nomeá-lo pelo carimbo de data / hora atual, pressione o outro + F11 simultaneamente para abrir o Janela Microsoft Visual Basic for Applications.
2. No Microsoft Visual Basic para Aplicações janela, por favor clique inserção > Módulo. Em seguida, copie o código VBA abaixo no Code janela. Veja a imagem:
Código VBA: Salve um nome de arquivo do Excel com carimbo de data/hora (substitua o nome do arquivo por 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. aperte o F5 chave para executar o código. Então uma Salvar como caixa de diálogo aparece, você pode ver a data e hora exibida na caixa Nome do arquivo. Especifique um local para salvar este arquivo e clique no Salvar botão. Veja a imagem:
Notas:
1. O novo arquivo Excel criado será salvo com o nome do carimbo de data / hora atual diretamente.
2. Para os arquivos Excel já existentes, o nome do arquivo original será substituído pelo carimbo de data / hora.
Se você deseja adicionar apenas o carimbo de data/hora seguido pelo nome do arquivo original em vez de substituí-lo, aplique o código VBA abaixo.
Código VBA: Salve um nome de arquivo do Excel com carimbo de data/hora (Insira o carimbo de data/hora seguido pelo 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
Artigos relacionados:
- Como salvar uma planilha como arquivo PDF e e-mail como um anexo através do Outlook?
- Como usar a função Salvar como para sobrescrever automaticamente o arquivo existente no Excel?
- Como salvar, exportar várias / todas as planilhas para separar arquivos csv ou de texto no Excel?
- Como desativar ou não permitir as opções Salvar e Salvar como no Excel?
- Como desabilitar o salvamento da pasta de trabalho, mas permitir apenas o salvamento no 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!