Mit VBA-Makros (Visual Basic for Applications) können Sie Aufgaben in Excel automatisieren, indem Sie den Workflow vereinfachen und die Arbeitseffizienz verbessern. Eines der häufigsten Szenarien für die Verwendung von VBA in Excel besteht darin, das Fenster "Speichern unter" zu öffnen, um eine Arbeitsmappe mit einem neuen Namen zu speichern.
Sie können das Fenster "Speichern unter" mit VBA mit einer Methode öffnen Application.GetSaveAsFilename. Diese Methode öffnet das Dialogfeld "Speichern unter" in Excel, in dem der Benutzer einen Speicherort für Dateien auswählen, einen Dateinamen angeben und einen Dateityp auswählen kann. Die Methode gibt dann den Pfad zur ausgewählten Datei zurück.
Пример использования метода Anwendung.GetSaveAsFilename в VBA:
Sub SaveWorkbookAsNewFile() speichern
Dateipfad als Variante dimmen
Dateipfad = Anwendung.GetSaveAsFilename
Wenn Dateipfad <> False Dann
Dieses Arbeitsbuch.Dateipfad speichern
Beenden, wenn
Ende Sub
In diesem Beispiel öffnet das Makro das Fenster "Speichern unter" und speichert die aktuelle Arbeitsmappe mit dem vom Benutzer angegebenen Namen und Speicherort. Wenn der Benutzer auf die Schaltfläche Abbrechen klickt oder das Fenster Speichern unter schließt, ohne eine Datei auszuwählen, endet das Makro einfach ohne Speichern.
Verwenden der Methode Application.GetSaveAsFilename mit VBA kann der Benutzer Dateien am richtigen Ort und mit den richtigen Namen speichern, wodurch die Arbeit mit Excel flexibler und komfortabler wird.
Wie öffne ich das Fenster "Speichern unter" in Excel
Führen Sie die folgenden Schritte aus, um das Fenster "Speichern unter" mit VBA zu öffnen:
Öffnen Sie den VBA-Editor, indem Sie auf die Registerkarte Entwickler klicken und im Abschnitt Codierung Code bearbeiten auswählen.
Erstellen Sie im VBA-Editor eine neue Prozedur mit dem Sub-Schlüsselwort. Zum Beispiel:
Sub OpenSaveAsDialog()' Ваш код здесьEnd Sub
Verwenden Sie innerhalb der Prozedur die Application-Methode.GetSaveAsFilename , um das Fenster "Speichern unter" aufzurufen. Zum Beispiel:
Sub OpenSaveAsDialog()Dim fileName As VariantfileName = Application.GetSaveAsFilename(fileFilter:="Текстовый файл (*.txt), *.txt")' Здесь можно добавить код для обработки выбранного имени файлаEnd Sub
In diesem Beispiel wird ein Filter verwendet, um Textdateien auszuwählen.
Fügen Sie den erforderlichen Code hinzu, um den ausgewählten Dateinamen oder andere Aktionen zu bearbeiten, die Sie ausführen möchten, nachdem Sie auf die Schaltfläche Speichern geklickt haben.
Nachdem Sie diese Schritte ausgeführt haben, wird das Fenster "Speichern unter" beim Ausführen des erstellten Verfahrens geöffnet und der Benutzer kann einen Dateinamen, einen Speicherort und andere Optionen auswählen. Der ausgewählte Dateiname wird in der Variablen fileName verfügbar sein, und Sie können die erforderlichen Aktionen mit dem Dateinamen oder anderen Dokumentdaten ausführen.
Wenn Sie das Fenster "Speichern unter" in Excel mit VBA öffnen, können Sie das Speichern von Dokumenten automatisieren und die Benutzererfahrung vereinfachen. Sie können die Filter und Speicheroptionen an Ihre Bedürfnisse anpassen, sodass Sie Dokumente einfach im gewünschten Format und auf dem richtigen Weg speichern können.
