Wie verwende ich die Funktion Speichern unter, um vorhandene Dateien in Excel automatisch zu überschreiben?
Wenn Sie eine Excel-Arbeitsmappe in einem neuen Ordner speichern, wird eine Eingabeaufforderung angezeigt (siehe Abbildung unten), wenn eine gleichnamige Arbeitsmappe vorhanden ist und sich im Ordner befindet. Wie überschreibe ich die vorhandene Datei automatisch ohne sofortige Warnmeldung? Die Methode in diesem Artikel kann Ihnen helfen.
Als Funktion speichern, um vorhandene Dateien automatisch mit VBA-Code zu überschreiben
Als Funktion speichern, um vorhandene Dateien automatisch mit VBA-Code zu überschreiben
Wenn Sie eine Arbeitsmappe unter einem neuen Namen speichern und die vorhandene Datei in Excel automatisch überschreiben möchten. Bitte gehen Sie wie folgt vor.
1. Erstellen Sie zunächst eine Befehlsschaltfläche, um die Funktion Speichern unter in Ihrem Arbeitsblatt auszulösen. bitte klicken Entwickler:in / Unternehmen > Insert > Befehlsschaltfläche (Active X Control). Siehe Screenshot:
2. Zeichnen Sie eine Befehlsschaltfläche in Ihr Arbeitsblatt. Klicken Sie dann mit der rechten Maustaste darauf und wählen Sie Code anzeigen in dem Kontextmenü.
3. In dem Microsoft Visual Basic für Applikationen Fenster, bitte kopieren Sie den folgenden VBA-Code und fügen Sie zwischen dem Privatunter und End Sub Linien in der Code Fenster.
VBA-Code: Als Funktion speichern, um vorhandene Dateien automatisch zu überschreiben
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. Drücken Sie die Taste Andere + Q Tasten zum Verlassen des Microsoft Visual Basic für Applikationen Fenster. Und schalten Sie die aus Entwurfsmodus unter dem Entwickler:in / Unternehmen Tab.
5. Klicken Sie auf die Befehlsschaltfläche und dann auf a Speichern unter Das Dialogfeld wird angezeigt. Wählen Sie einen Ordner aus, um diese Arbeitsmappe zu speichern, und klicken Sie dann auf Speichern .
Wenn im Zielordner eine gleichnamige Arbeitsmappe vorhanden ist, wird diese automatisch direkt ohne Aufforderung mit der aktuellen Arbeitsmappe überschrieben.
In Verbindung stehende Artikel:
- Wie speichere ich ein Arbeitsblatt als PDF-Datei und sende es als Anhang per E-Mail über Outlook?
- Wie speichere ich einen Excel-Dateinamen mit Zeitstempel?
- Wie speichere, exportiere ich mehrere / alle Blätter in separate CSV- oder Textdateien in Excel?
- Wie kann ich die Optionen Speichern und Speichern unter in Excel deaktivieren oder nicht zulassen?
- Wie deaktiviere ich das Speichern von Arbeitsmappen, erlaube aber nur das Speichern wie in Excel?
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über 300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!
