So erhalten sie den arbeitsmappennamen mithilfe von vba (mit beispielen)

Sie können in VBA die folgenden Methoden verwenden, um den Namen einer Excel-Arbeitsmappe abzurufen:

Methode 1: Rufen Sie den Namen der aktiven Arbeitsmappe ab

 Function GetWorkbookName() As String
GetWorkbookName = ActiveWorkbook.Name
End Function

Diese Funktion gibt den Namen der aktiven Arbeitsmappe zurück, z. B. my_vba_workbook.xlsm .

Methode 2: Rufen Sie den Namen der aktiven Arbeitsmappe ohne Erweiterung ab

 Function GetWorkbookName() As String
GetWorkbookName = Left(ActiveWorkbook.Name, InStr(ActiveWorkbook.Name, " . ") - 1)
End Function

Diese Funktion gibt den Namen der aktiven Arbeitsmappe ohne die Erweiterung zurück, z. B. my_vba_workbook .

Die folgenden Beispiele zeigen, wie jede Methode in der Praxis mit einer aktuell aktiven Excel-Arbeitsmappe namens my_vba_workbook.xlsm verwendet wird.

Beispiel 1: Rufen Sie den Namen der aktiven Arbeitsmappe ab

Wir können die folgende Funktion erstellen, um den Namen der aktiven Arbeitsmappe abzurufen:

 Function GetWorkbookName() As String
GetWorkbookName = ActiveWorkbook.Name
End Function

Wir könnten dann die folgende Formel in Zelle A1 eingeben, um den Namen der aktiven Arbeitsmappe zu erhalten:

 =GetWorkbookName()

Der folgende Screenshot zeigt, wie diese Formel in der Praxis angewendet wird:

Wir können sehen, dass die Formel my_vba_workbook.xlsm zurückgibt, was den Namen der aktuell aktiven Arbeitsmappe ist, die wir verwenden.

Hinweis : Die Erweiterung .xlsm stellt eine makrofähige Excel-Arbeitsmappe dar.

Beispiel 2: Namen der aktiven Arbeitsmappe ohne Erweiterung abrufen

Wir können die folgende Funktion erstellen, um den Namen der aktiven Arbeitsmappe ohne die Erweiterung abzurufen:

 Function GetWorkbookName() As String
GetWorkbookName = Left(ActiveWorkbook.Name, InStr(ActiveWorkbook.Name, " . ") - 1)
End Function

Wir könnten dann die folgende Formel in Zelle A1 eingeben, um den Namen der aktiven Arbeitsmappe zu erhalten:

 =GetWorkbookName()

Der folgende Screenshot zeigt, wie diese Formel in der Praxis angewendet wird:

Wir können sehen, dass die Formel my_vba_workbook zurückgibt, den Namen der aktuell aktiven Arbeitsmappe ohne die Erweiterung .xlsm .

Hinweis : Mit den Funktionen Left und Instr können wir alle Zeichen aus dem Namen der Arbeitsmappe links vom Punkt extrahieren.

Zusätzliche Ressourcen

In den folgenden Tutorials wird erläutert, wie Sie andere häufige Aufgaben in VBA ausführen:

So erstellen Sie Ordner mit VBA
So löschen Sie Ordner mit VBA
So benennen Sie eine Datei mit VBA um
So überprüfen Sie mit VBA, ob eine Datei vorhanden ist