Hvordan henter jeg filnavnet på en åben fil??

Hvis nu det er den Excel fil du HAR åben så kan du evt gøre det sådan her:

Private Sub Worksheet_Activate()
Me.Range("a1") = Application.ActiveWorkbook.Name
End Sub

I VBA bruges funktionen :

ActiveWorkbook.Name

Som funktion i Excel bruges :

=MIDT(CELLE("filnavn");SØG("[";CELLE("filnavn");1)+1;SØG("]";CELLE("filnavn");1)-SØG("[";CELLE("filnavn");1)-1)

Det er muligt at denne kan rafineres lidt...men den burde virke efter hensigten.

=MIDT(CELLE("filnavn");FIND("[";CELLE("filnavn"))+1;FIND("]";CELLE("filnavn"))-FIND("[";CELLE("filnavn"))-1)

Njaa...man kan selvfølglig også bruge FIND istedet for SØG, men resultatet er det samme..:-)

Jeps. Fomlen bliver lidt kortere, men det er ikke værd at tale om. O gås var jeg jo lige et par minutter for sent ude ;0(

Virker fint. Tak for det.

Det var så lidt....

Del points som du har lyst...

Jeg vil lige gøre opmærksom på en potentiel fejlrisiko ved jeres formler.
De virker kun når arket er rekalkuleret.
Hvis i åbner 2 regneark og indsætter formlen i begge, vil i kunne se at fomlen viser samme resultat i begge filer hvis i skifter mellem dem.
Hvis i så trykker F9 opdaters de til samme værdi igen.
Det kan undgåes ved at referere til en celle i arket i Celle-formlen

=MIDT(CELLE("filnavn";B1);FIND("[";CELLE("filnavn";B1))+1;FIND("]";CELLE("filnavn";B1))-FIND("[";CELLE("filnavn";B1))-1)

Det var den første løsning jeg anvendte, men tak for alle forslagene.