Bestandsnaam op een cel krijgen

[student100]

Beste forum's

ik heb de volgende vraag:
na opening van een excelbestand wil ik graag dat de EXEL-bestandsnaam automatisch in cel kopieert. is er een mogelijkheid om dat te krijgen?

 

[Wigi]

Gebruik dit stukje VBA code:

Sub Workbook_Open()
Range("A1") = ActiveWorkbook.Name
End Sub

Het zet de naam in cel A1.

 

[student100]

thanks, maar de volgende

bedankt
het is wel gelukt alleen dan lukt het niet als ik de bestandsnaam verander, is er nog een trucje dat bij verandering van bestandsnaam, verndert dat ook automatisch in cel A1.
groetjes

 

[Wigi]

Je kan de bestandsnaam enkel veranderen als het bestand gesloten is. Ergo, vanaf dat je het bestand opnieuw opent, zal automatisch de nieuwe bestandsnaam gebruikt worden.

 

[student100]

thanks

bedankt,
door jou ben ik weer geholpen:thumb: ik ben zeer dankbaar voor jou.
groetjes

 

[ronald74]

extensie

Hallo,

Ik heb nog een extra vraagje hierover:
Is het ook mogelijk dat de extensie wordt weggelaten?

Groeten,
Ronald

 

[Wigi]

Hallo,

Ik heb nog een extra vraagje hierover:
Is het ook mogelijk dat de extensie wordt weggelaten?

Groeten,
Ronald

Bedoel je de bestandsnaam zonder .xls in cel A1 zetten?

 

[ronald74]

Inderdaad!

Ik kan het wel 'truuken' via een formule in Excel, maar vroeg me af of het ook rechtstreeks via de VB code te regelen is.

 

[Wigi]

Hallo

Sub Workbook_Open()
Dim CharCounter As Integer, i As Integer, StringLength As Integer, inString As String

inString = ActiveWorkbook.Name
StringLength = Len(inString)

i = StringLength

Do While Mid(inString, i, 1) <> "."
    i = i - 1
Loop

Range("A1") = Mid(inString, 1, i - 1)

End Sub

De methode gaat ervan uit dat de bestandsnaam zelf (dus zonder de extensie) een . kan bevatten. Doe je dat niet, dan zou de code simpeler kunnen.

Wigi