Como usar a função Salvar como para sobrescrever automaticamente o arquivo existente no Excel?
Ao salvar uma pasta de trabalho do Excel em uma nova pasta, você obterá uma caixa de prompt como a imagem abaixo mostrada se houver uma pasta de trabalho com o mesmo nome e estiver localizada na pasta. Como substituir automaticamente o arquivo existente sem mensagem de aviso de prompt? O método neste artigo pode ajudá-lo.
Salvar como função para substituir automaticamente o arquivo existente com o código VBA
Salvar como função para substituir automaticamente o arquivo existente com o código VBA
Se você deseja salvar uma pasta de trabalho com um novo nome e substituir automaticamente o arquivo existente no Excel. Faça o seguinte.
1. Em primeiro lugar, crie um botão de comando para acionar a função Salvar como em sua planilha. Por favor clique Developer > inserção > Botão de comando (controle Active X). Veja a imagem:
2. Desenhe um Botão de Comando em sua planilha. Em seguida, clique com o botão direito e selecione Ver código no menu de contexto.
3. No Microsoft Visual Basic para Aplicações janela, copie o código VBA abaixo e cole entre as Private Sub e End Sub linhas no Code janela.
Código VBA: Salvar como função para substituir automaticamente o arquivo existente
Dim xFileName As String
Application.DisplayAlerts = False
If Right(ActiveWorkbook.Name, 4) = "xlsm" Then
xFileName = Application.GetSaveAsFilename(ActiveWorkbook.Name, "Excel Macro-Enabled Workbook (*.xlsm),*.xlsm")
Else
xFileName = Application.GetSaveAsFilename(ActiveWorkbook.Name, "Excel Workbook (*.xlsx),*.xlsx")
End If
If (xFileName <> "") Or (xFileName <> "False") Then
ActiveWorkbook.SaveAs Filename:=xFileName
End If
Application.DisplayAlerts = True4. aperte o outro + Q chaves para sair do Microsoft Visual Basic para Aplicações janela. E desligue o Modo de design sob a Developer aba.
5. Clique no botão de comando e em um Salvar como caixa de diálogo aparece, selecione uma pasta para salvar esta pasta de trabalho e, em seguida, clique no Salvar botão.
Se houver uma pasta de trabalho com o mesmo nome na pasta de destino, ela será sobrescrita automaticamente pela pasta de trabalho atual diretamente sem prompt.
Artigos relacionados:
- Como salvar uma planilha como arquivo PDF e e-mail como um anexo através do Outlook?
- Como salvar um nome de arquivo do Excel com carimbo de data / hora?
- 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!
