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 = True

4. 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 Economize 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.

Desbloqueie o Excel Magic com Kutools AI

• Execução Inteligente: execute operações em células, analise dados e crie gráficos, tudo orientado por comandos simples.
• Fórmulas personalizadas: gere fórmulas personalizadas para agilizar seus fluxos de trabalho.
• Codificação VBA: Escreva e implemente código VBA sem esforço.
• Interpretação de Fórmula: Entenda fórmulas complexas com facilidade.
• Tradução do texto: Quebre as barreiras linguísticas nas suas planilhas.

Aprimore seus recursos do Excel com ferramentas baseadas em IA. Faça o download e experimente eficiência como nunca antes!

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?