Hoe u een werkmapnaam kunt krijgen met vba (met voorbeelden)

U kunt in VBA de volgende methoden gebruiken om de naam van een Excel-werkmap op te halen:

Methode 1: Haal de naam van de actieve werkmap op

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

Deze functie retourneert de naam van de actieve werkmap, zoals my_vba_workbook.xlsm .

Methode 2: Actieve werkmapnaam ophalen zonder extensie

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

Deze functie retourneert de naam van de actieve werkmap zonder de extensie zoals my_vba_workbook .

De volgende voorbeelden laten zien hoe u elke methode in de praktijk kunt gebruiken met een momenteel actieve Excel-werkmap met de naam my_vba_workbook.xlsm .

Voorbeeld 1: Haal de naam van de actieve werkmap op

We kunnen de volgende functie maken om de naam van de actieve werkmap te achterhalen:

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

We kunnen dan de volgende formule in cel A1 typen om de naam van de actieve werkmap te krijgen:

 =GetWorkbookName()

De volgende schermafbeelding laat zien hoe u deze formule in de praktijk kunt gebruiken:

We kunnen zien dat de formule my_vba_workbook.xlsm retourneert, wat de naam is van de momenteel actieve werkmap die we gebruiken.

Opmerking : de extensie .xlsm vertegenwoordigt een Excel-werkmap met macro’s.

Voorbeeld 2: actieve werkmapnaam ophalen zonder extensie

We kunnen de volgende functie maken om de naam van de actieve werkmap op te halen zonder de extensie:

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

We kunnen dan de volgende formule in cel A1 typen om de naam van de actieve werkmap te krijgen:

 =GetWorkbookName()

De volgende schermafbeelding laat zien hoe u deze formule in de praktijk kunt gebruiken:

We kunnen zien dat de formule my_vba_workbook retourneert, wat de naam is van de momenteel actieve werkmap zonder de .xlsm- extensie.

Opmerking : met behulp van de functies Left en Instr kunnen we alle tekens uit de werkmapnaam links van de punt extraheren.

Aanvullende bronnen

In de volgende tutorials wordt uitgelegd hoe u andere veelvoorkomende taken in VBA kunt uitvoeren:

Mappen maken met VBA
Hoe mappen te verwijderen met VBA
Hoe een bestand te hernoemen met VBA
Hoe u kunt controleren of een bestand bestaat met behulp van VBA