Bestandsnaam in VBA ophalen zonder de .xlsm

[trainers]

ActiveWorkbook.Name geeft xyz.xlsm
Maar is er ook een code om uitsluitend de xyz op te halen?

Groeten,
Trainers

 

[VenA]

?

=split(ActiveWorkbook.Name,".")(0)

 

[trainers]

Weer wat geleerd. Dank je wel.

 

[trainers]

@ VenA

Mijn excuses.
Pas later besefte ik dat jouw ? boven je antwoord wellicht betekende dat je de achtergrond van mijn vraag wilde weten.
De vraag te vroeg op opgelost gezet waardoor jij niet meer kon reageren. Niet netjes van mij.

Achterliggende probleem was de volgende:

sFileName = ActiveWorkbook.Name

geeft de volgende string: xyz.xlsm

Als ik aan de bestandsnaam "BESTUUR" wil toevoegen met de code:

ActiveWorkbook.SaveAs "C:\Users\" & Username & "\Desktop\" & sFileName & " BESTUUR.xlsm", FileFormat:= _
        xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

krijg je xyz.xlsm BESTUUR.xlsm

Voorwaar niet aan te bevelen.

Met jouw oplossing wordt het nu netjes: xyz BESTUUR.xlsm.

Groeten,
Trainers