Wie kann ich in VBA Excel eine Datei mit einem anderen Namen speichern

Microsoft Excel ist ein leistungsfähiges Datenwerkzeug, mit dem Benutzer Tabellen nicht nur erstellen und bearbeiten können, sondern auch die meisten Routineaufgaben automatisieren können. Eine dieser Aufgaben kann darin bestehen, eine Datei mit einem anderen Namen zu speichern. In VBA (Visual Basic for Applications), der integrierten Programmiersprache in Excel, gibt es mehrere Möglichkeiten, diesen Vorgang auszuführen.

Die Verwendung von VBA zum Speichern einer Datei mit einem anderen Namen ist nützlich, wenn Sie abhängig von bestimmten Bedingungen eine Kopie der aktuellen Datei speichern oder unter einem anderen Namen speichern müssen. Beispielsweise können Sie mit VBA eine Datei mit einem Namen speichern, der das aktuelle Datum oder die Ergebnisse einer Berechnung enthält.

Um eine Datei mit einem anderen Namen in VBA Excel zu speichern, müssen Sie die SaveAs-Methode verwenden. Mit dieser Methode können Sie einen neuen Dateinamen und einen neuen Pfad angeben. Darüber hinaus können Sie Optionen zum Speichern der Datei in verschiedenen Formaten wie xls, xlsx, csv und anderen angeben. Mit der SaveAs-Methode können Sie auch verschiedene Speicheroptionen angeben, z. B. ein Passwort und einen Änderungsschutz. Die Verwendung der SaveAs-Methode ist ziemlich einfach und ermöglicht es Ihnen, das Speichern von Dateien mit einem anderen Namen in Excel über VBA zu automatisieren.

Wie speichere ich eine Datei in VBA Excel mit einem anderen Namen

In der Programmiersprache VBA (Visual Basic for Applications) für Excel können Sie eine Datei mit einem anderen Namen speichern, indem Sie die SaveAs-Funktion verwenden. Mit dieser Funktion können Sie die aktuelle Excel-Arbeitsmappe unter einem neuen Namen und/oder in einem anderen Ordner speichern.

Zunächst müssen Sie den Pfad und den Namen der neuen Datei angeben, in der die Arbeitsmappe gespeichert werden soll. Dazu können Sie das Dialogfeld Save As verwenden:

Dim path As StringDim fileName As StringWith Application.FileDialog(msoFileDialogSaveAs)If .Show = -1 Thenpath = .SelectedItems(1)ElseExit SubEnd IfEnd WithfileName = InputBox("Введите новое имя файла:")

Im obigen Code öffnen wir das Dialogfeld Speichern unter und speichern den ausgewählten Pfad in der Variablen path. Wenn der Benutzer den Pfad nicht ausgewählt hat, beenden wir die Ausführung des Codes. Verwenden Sie dann die InputBox-Funktion, um den neuen Dateinamen anzufordern und ihn in der Variablen fileName zu speichern.

Danach können Sie die SaveAs-Funktion verwenden, um die Arbeitsmappe mit einem neuen Namen zu speichern:

Workbooks(1).SaveAs FileName:=path & "\" & fileName

Der obige Code speichert die aktuelle Excel-Arbeitsmappe unter einem neuen Namen, wobei der Pfad und der Dateiname in den Variablen path bzw. fileName gespeichert sind. Beachten Sie, dass wir den Pfad und den Dateinamen mit dem Zeichen "\" kombinieren.

Dadurch wird die Arbeitsmappe unter dem neuen Namen und/oder in einem anderen Ordner gespeichert, den Sie im Dialogfeld Speichern Unter und InputBox angegeben haben.

Dieser Ansatz ermöglicht das programmgesteuerte Speichern von Dateien mit einem anderen Namen in Excel VBA und kann bei der Automatisierung von Aufgaben im Zusammenhang mit der Datenverarbeitung in Excel-Tabellen nützlich sein.

Speichern einer Datei mit einem neuen Namen in VBA Excel

In VBA Excel können Sie eine Datei mit einem neuen Namen speichern, indem Sie die SaveAs-Methode verwenden. Erstellen Sie dazu ein Workbook-Objekt, geben Sie einen neuen Dateinamen an und rufen Sie die SaveAs-Methode auf, indem Sie den neuen Dateinamen als Parameter übergeben. Dies kann nützlich sein, wenn Sie die geänderte Datei unter einem anderen Namen speichern möchten, ohne die ursprüngliche Datei zu überschreiben.

Dim wb As WorkbookSet wb = ThisWorkbookDim newFileName As StringnewFileName = "Новое имя файла.xlsx"wb.SaveAs newFileNameSet wb = Nothing

In diesem Beispiel wird ein Workbook-Objekt erstellt und der aktiven Arbeitsmappe (ThisWorkbook) zugewiesen. Anschließend wird ein neuer Dateiname (newFileName) angegeben und die SaveAs-Methode aufgerufen, um die Datei mit dem neuen Namen zu speichern. Schließlich wird das Workbook-Objekt gelöscht, um Speicher freizugeben.

Beachten Sie, dass der neue Dateiname den vollständigen Dateinamen (einschließlich der Erweiterung) enthalten muss. Stellen Sie außerdem sicher, dass der neue Dateiname nicht mit dem Namen der vorhandenen Datei übereinstimmt, da sonst ein Fehler auftritt.

Mit diesem Ansatz können Sie die Datei mit dem neuen Namen einfach in VBA Excel speichern und den Verlust der ursprünglichen Daten vermeiden.

Ändern des Dateinamens beim Speichern in VBA Excel

Wenn Sie mit VBA in Excel arbeiten, müssen Sie die Datei mit einem anderen Namen speichern. Dazu gibt es eine spezielle Name-Eigenschaft des Workbook-Objekts, mit der Sie den Dateinamen vor dem Speichern ändern können.

Das Speichern einer Datei mit einem anderen Namen kann folgendermaßen aussehen:

Sub SaveFileWithDifferentName()Dim newFileName As StringnewFileName = "Новое_имя_файла.xlsx" ' Имя, которое необходимо задать новому файлу' Открываем активную книгуDim wb As WorkbookSet wb = ActiveWorkbook' Изменяем имя файлаwb.Activatewb.SaveAs newFileName' Освобождаем ресурсыSet wb = NothingEnd Sub

In diesem Verfahren geben wir zuerst den neuen Dateinamen in der Variablen "newFileName" an. Öffnen Sie dann die aktive Arbeitsmappe und verwenden Sie die SaveAs-Eigenschaft des Workbook-Objekts, um die Datei unter einem neuen Namen zu speichern.