ActiveWorkbook.Name zonder .xls

[geroda]

Beste

ik zit even een macro te schrijven en heb hetvolgende probleem

als ik zeg

dim naam as string
naam = ActiveWorkbook.Name

kom ik uit dat

naam = bestandsnaam.xls

nu wil ik alleen de bestandsnaam krijgen

m.a.w

naam = bestandsnaam

zonder .xls

kan iemand mij helpen alvast bedankt

Greetz geroda

 

[huijb]

Bedoel je zoiets;

Const strBestand = "\bestandsnaam.xls"

Sub test()
Workbooks.Open ThisWorkbook.Path & strBestand
End Sub

 

[Jan van Asseldonk]

Voeg het volgende nog toe:
naam = Left(naam, Len(naam) - 4)

 

[geroda]

ok bedankt de vraag is opgelost