Jak používat funkci Uložit jako k automatickému přepsání existujícího souboru v aplikaci Excel?
Při ukládání sešitu aplikace Excel do nové složky se zobrazí okno s výzvou, jak je ukázáno níže, pokud existuje sešit se stejným názvem a najde se ve složce. Jak automaticky přepsat existující soubor bez rychlé varovné zprávy? Metoda v tomto článku vám může pomoci.
Uložit jako funkci k automatickému přepsání existujícího souboru kódem VBA
Uložit jako funkci k automatickému přepsání existujícího souboru kódem VBA
Pokud chcete uložit sešit s novým názvem a automaticky přepsat existující soubor v aplikaci Excel. Postupujte prosím následovně.
1. Nejprve prosím vytvořte příkazové tlačítko pro spuštění funkce Uložit jako v listu. prosím klikněte Vývojka > Vložit > Příkazové tlačítko (ovládání Active X). Viz snímek obrazovky:
2. Nakreslete na pracovní stůl příkazové tlačítko. Poté na něj klikněte pravým tlačítkem a vyberte Zobrazit kód z kontextové nabídky.
3. V Microsoft Visual Basic pro aplikace v okně zkopírujte níže uvedený kód VBA a vložte jej mezi Private Sub a End Sub linky v Kód okno.
Kód VBA: Uložit jako funkci k automatickému přepsání existujícího souboru
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. zmáčkni Další + Q klávesy pro opuštění Microsoft Visual Basic pro aplikace okno. A vypněte Režim návrhu pod Vývojka Karta.
5. Klepněte na příkazové tlačítko a poté na a Uložit jako Zobrazí se dialogové okno, vyberte složku pro uložení tohoto sešitu a klikněte na ikonu Uložit .
Pokud v cílové složce existuje sešit se stejným názvem, přepíše se automaticky aktuálním sešitem přímo bez výzvy.
Související články:
- Jak uložit list jako soubor PDF a poslat jej e-mailem jako přílohu prostřednictvím aplikace Outlook?
- Jak uložit název souboru Excel s časovým razítkem?
- Jak ukládat, exportovat více / všechny listy do samostatných souborů CSV nebo textových souborů v aplikaci Excel?
- Jak zakázat nebo nepovolit možnosti Uložit a Uložit jako v aplikaci Excel?
- Jak zakázat ukládání sešitu, ale povolit pouze ukládání jako v aplikaci Excel?
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!