Hvordan bruges funktionen Gem som til automatisk at overskrive eksisterende fil i Excel?
Når du gemmer en Excel-projektmappe i en ny mappe, får du en promptboks som vist nedenfor, hvis der findes et projektnavn med samme navn og findes i mappen. Hvordan overskrives den eksisterende fil automatisk uden hurtig advarselsmeddelelse? Metoden i denne artikel kan hjælpe dig.
Gem som funktion for automatisk at overskrive eksisterende fil med VBA-kode
Gem som funktion for automatisk at overskrive eksisterende fil med VBA-kode
Hvis du vil gemme en projektmappe med et nyt navn og automatisk overskrive den eksisterende fil i Excel. Gør som følger.
1. For det første skal du oprette en kommandoknap til at udløse funktionen Gem som i dit regneark. Klik venligst Udvikler > indsatte > Kommando-knap (Aktiv X-kontrol). Se skærmbillede:
2. Tegn en kommandoknap på dit regneark. Højreklik derefter på den, og vælg Vis kode fra kontekstmenuen.
3. i Microsoft Visual Basic til applikationer vindue, skal du kopiere nedenstående VBA-kode og indsætte mellem Privat Sub , End Sub linjer i Kode vindue.
VBA-kode: Gem som funktion for automatisk at overskrive eksisterende 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. Tryk på andre + Q taster for at afslutte Microsoft Visual Basic til applikationer vindue. Og sluk for Design Mode under Udvikler fane.
5. Klik på kommandoknappen og derefter på a Gem som dialogboksen dukker op, skal du vælge en mappe for at gemme denne projektmappe og derefter klikke på Gem .
Hvis der findes et projektnavn med samme navn i destinationsmappen, overskrives den automatisk med den aktuelle projektmappe direkte uden prompt.
Relaterede artikler:
- Hvordan gemmes et regneark som PDF-fil og e-mailes som en vedhæftet fil via Outlook?
- Hvordan gemmes et Excel-filnavn med tidsstempel?
- Hvordan gemmes, eksporteres flere / alle ark for at adskille csv- eller tekstfiler i Excel?
- Hvordan deaktiveres eller tillader ikke Gem og gem som indstillinger i Excel?
- Hvordan deaktiveres projektmappebesparelse, men tillader kun gemning som i Excel?
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!