opslaan in huidige map

Status
Niet open voor verdere reacties.

Sjaakz

Gebruiker
Lid geworden
3 jun 2009
Berichten
120
Heren dames,

Mijn collega heeft een standaard documenten mapje dat hij steeds kopieert naar een nieuwe map.

- Welke code moet ik gebruiken om het document in de huidige map op te slaan?

- Kan ik dmv een formule de huidige map in de cel weergeven?


Alvast bedankt voor de snelle antwoorden.
Groet SjaakZ
 
Heb je de macrorecorder al gebruikt ?
 
Ja die heb ik al gebruikt maar....... die is niet "variabel".
Het standaard documenten mapje staat op bijv P:\dossiers (waar de code prima werkt)

Mijn collega kopieert dit mapje vervolgens naar P:\dossiers\Jansen.
Wanneer daar de code gestart wordt komt het bestand weer in p:\dossiers te staan.

Groet Sjaakz
 
Om welk Office product gaat het?

Excel: ThisWorkbook.Path
Word: ActiveDocument.Path
 
Laatst bewerkt:
Het gaat om excel

Goedemorgen Edmoor,

Bedankt voor je antwoord.:thumb: Het gaat over Excel. Kan je misschien een klein voorbeeldje geven hoe ik deze formule kan gaan gebruiken.

Alvast bedankt weer voor je medewerking.:thumb::thumb:.....
Groet Sjaakz
 
Laatst bewerkt:
En opslaan, bijvoorbeeld zo:
Code:
    ChDir ThisWorkbook.Path
    ActiveWorkbook.Save
of zo:
Code:
    ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\Kolommen selektie.xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled
 
heren Bedankt.......maar.....

Iedereen bedankt weer voor de medewerking :thumb::thumb::thumb::thumb:

Ik heb gekozen voor de
Code:
ChDir ThisWorkbook.Path
    ActiveWorkbook.Save

Dit werkt prima voor mij.......

Ik heb wel nog een vraag bij de =cel("bestandsnaam")

Krijg ik maar een deel van de bestandsnaam te zien klopt dat?
Zo'n 18 posities.(excl. mappen structuur):shocked:

Groet SjaakZ
 
Je zou het hele pad moeten kunnen zien; misschien wordt de tekst afgekapt vanwege de naastgelegen cel. Je kunt, als je het hele pad wilt, met deze formule misschien nog wat doen:
Code:
=LINKS(CEL("Bestandsnaam");VIND.SPEC("#";SUBSTITUEREN(CEL("Bestandsnaam");"\";"#";LENGTE(CEL("Bestandsnaam"))-LENGTE(SUBSTITUEREN(CEL("Bestandsnaam");"\";"")))))
En wil je de bestandsnaam eruit vissen, dan kan dat zo:
Code:
=DEEL(CEL("Bestandsnaam");VIND.SPEC("#";SUBSTITUEREN(CEL("Bestandsnaam");"\";"#";LENGTE(CEL("Bestandsnaam"))-LENGTE(SUBSTITUEREN(CEL("Bestandsnaam");"\";""))))+1;99)
 
heren Bedankt

en octofish nog extra bedankt voor de toelichting.
:thumb::thumb::thumb::thumb:

Groet
SjaakZ
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan