Bestands locatie in excel

[luibak]

Beste forum gebruikers,

Ik ben al hele tijd aan het zoeken naar een formulie o.i.d. waar mee je alleen de bestandslocatie in een excel krijgt en dus niet de bestands naam er achter.
Ik heb namelijk een macro die tabbladen uit een excel document exporteerd en opslaat op een locatie in een cel. daarom wil ik alleen het pad en geen naam er achter.

Alvast bedankt

 

[edmoor]

Zoek in de string waar pad en naam in staat vanaf rechts naar links naar de eerste \
Dan heb je de eindpositie van de string met alleen het pad.

 

[Djoane]

Hoi,

Zou je niet de volledige link kunnen plaatsen in een cel, en dan vervolgens de laatste naam weghalen? Daar is een formule voor, deze weet ik niet precies.

Maar met ASAP utilities is het een kwestie van op de knop drukken. ASAP is een programmaatje wat zich in excel installeert, je hebt dus gewoon een extra tabblad met opties die dan automatisch voorgeprogrammeerde macro's laat runnen.

 

[Djoane]

http://www.asap-utilities.com/ Hier kun je het downloaden..

 

[luibak]

@ djoane De naam van het bestand veranderd steeds dus daar heb ik weinig aan
@ edmoor ik probeerd dit automatisch te laten doen omdat al mijn collega's ermee moeten werken waar ook een aantal digibeten onder zitten.

Is het mogelijk om bijvoorbeeld de formule =CEL("bestandsnaam") aan te passen dat hij de laatste\ verwijderd met alle wat er na komt?

 

[edmoor]

Volgens mij is daar geen standaard functie voor maar dat is wel eenvoudig zelf te maken.
Met bestandsnaam in =CEL("bestandsnaam") bedoel je de naam van het huidige document waar je dan het pad van wilt hebben?
Welke versie van Office gebruik je?

In Office 2007 kan daarvoor de volgende functie worden gebruikt:

Function Padnaam() As String
    Padnaam = ThisWorkbook.Path
End Function

In een cel zet je dan: =Padnaam()

 

[Niels28]

Als je toch al macro's gebruikt.

Sub bestandsloactie()
Sheets(1).Range("A1").Value = ThisWorkbook.Path
End Sub

Niels

 

[luibak]

@ niels en @ edmoor

waar moet ik deze code neer zetten ik heb die van edmoor in activie workbook gebruikt en toen kreeg ik foutmelding dat hij de formulie niet kent.

(ik werk met excel 2010)

alvast bedankt

 

[edmoor]

Je moet een nieuwe module invoegen in de VBA editor en daar dan die formule in plakken.
Dat geldt voor zowel die van Niels als de mijne.

 

[luibak]

edmoor en niels harstikke bedankt.

 

[Warme bakkertje]

=LINKS(CEL("filename");VIND.ALLES("[";CEL("filename");1)-1)

 

[edmoor]

Perfect! :thumb:

 

[luibak]

mijn dank is groot