Como usar a função Salvar Como para substituir automaticamente um arquivo existente no Excel?
Ao salvar uma pasta de trabalho do Excel em uma nova pasta, você receberá uma caixa de prompt como mostrado na captura de tela abaixo se já existir uma pasta de trabalho com o mesmo nome na pasta. Como substituir automaticamente o arquivo existente sem mensagem de aviso? O método neste artigo pode ajudar.
Função Salvar Como para substituir automaticamente arquivos existentes com código VBA
Função Salvar Como para substituir automaticamente arquivos existentes com código VBA
Se você deseja salvar uma pasta de trabalho com um novo nome e substituir automaticamente o arquivo existente no Excel, siga os passos abaixo.
1. Primeiro, crie um Botão de Comando para acionar a função Salvar Como na sua planilha. Clique em Desenvolvedor > Inserir > Botão de Comando (Controle ActiveX). Veja a captura de tela:
2. Desenhe um Botão de Comando na sua planilha. Em seguida, clique com o botão direito nele e selecione Visualizar Código no menu de contexto.
3. Na janela Microsoft Visual Basic for Applications, copie o código VBA abaixo e cole entre as linhas Private Sub e End Sub na janela de Código.
Código VBA: Função Salvar Como para substituir automaticamente arquivos existentes
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. Pressione as teclas Alt + Q para sair da janela Microsoft Visual Basic for Applications. E desative o Modo de Design na guia Desenvolvedor.
5. Clique no Botão de Comando, então uma caixa de diálogo Salvar Como aparecerá, selecione uma pasta para salvar esta pasta de trabalho e clique no botão Salvar.
Se houver uma pasta de trabalho com o mesmo nome na pasta de destino, ela será substituída automaticamente pela pasta de trabalho atual sem nenhum aviso.
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 salvar um nome de arquivo do Excel com carimbo de data/hora?
- 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 o salvamento da 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