Hur använder jag Spara som-funktionen för att automatiskt skriva över befintlig fil i Excel?
När du sparar en Excel-arbetsbok i en ny mapp får du en snabbruta som nedan visas på skärmbilden om det finns samma arbetsbok som finns och finns i mappen. Hur skriver jag över den befintliga filen automatiskt utan ett varningsmeddelande? Metoden i den här artikeln kan hjälpa dig.
Spara som funktion för att automatiskt skriva över befintlig fil med VBA-kod
Spara som funktion för att automatiskt skriva över befintlig fil med VBA-kod
Om du vill spara en arbetsbok med ett nytt namn och automatiskt skriva över den befintliga filen i Excel. Gör så här.
1. Skapa först en kommandoknapp för att utlösa funktionen Spara som i ditt kalkylblad. var god klicka Utvecklare > Insert > Kommando-knapp (Active X-kontroll). Se skärmdump:
2. Rita en kommandoknapp på ditt kalkylblad. Högerklicka sedan på den och välj Visa kod från snabbmenyn.
3. I Microsoft Visual Basic för applikationer kopiera nedanstående VBA-kod och klistra in mellan Privat del och End Sub linjer i Koda fönster.
VBA-kod: Spara som funktion för att automatiskt skriva över befintlig fil
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. tryck på andra + Q för att avsluta Microsoft Visual Basic för applikationer fönster. Och stäng av Designläge under Utvecklare fliken.
5. Klicka på kommandoknappen och sedan på a Spara som dialogrutan dyker upp, välj en mapp för att spara den här arbetsboken och klicka sedan på Save knapp.
Om det finns en arbetsbok med samma namn i målmappen skrivs den över automatiskt med aktuell arbetsbok direkt utan uppmaning.
Relaterade artiklar:
- Hur sparar jag ett kalkylblad som PDF-fil och skickar det via e-post som en bilaga via Outlook?
- Hur sparar jag ett Excel-filnamn med tidsstämpel?
- Hur sparar jag, exporterar flera / alla ark till separata csv- eller textfiler i Excel?
- Hur inaktiverar eller tillåter du inte Spara och spara som-alternativ i Excel?
- Hur inaktiverar jag arbetsbokspara men tillåter bara spara som i Excel?
Bästa kontorsproduktivitetsverktyg
Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid. Klicka här för att få den funktion du behöver mest...
Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare
- Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
- Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
- Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!