Link fra excel til en folder

Sub sti()
MkDir Sheets("Ark10").Range("C4")
ChDir Sheets("Ark10").Range("C4")
Application.Dialogs(xlDialogFindFile).Show
End Sub

Du bliver nødt til at forklare. jeg er ikke VBA mand.

kopier koden herfra
tast ALT+F11 i projektmappen
vælg module i menuen insert
paste koden i vindue til højre

ret arknavn og selle til aktuel i følgende linier
MkDir Sheets("Ark10").Range("C4") 'opretter mappenavn som står i din selle
ChDir Sheets("Ark10").Range("C4") 'gør mappen default

Application.Dialogs(xlDialogFindFile).Show ' åbner filefind - ved ikke rigtig hvad du mener med åben folder!

Med at "Åbne Folder" mener jeg, at når brugeren trykker på knappen så virker den som et hyperlink, men istedet for at flytte ham til et dokument eller lign. så flytter han over i en mappe.

jamen det gør koden sådan set også
du skal selv lave knappen og derefter linke knappen til koden

Er det noget som det her du tænker på?

http://www.officekonsulenterne.dk/excel/MakePath.xls

/Christian
ck@officekonsulenterne.dk

Jeg vil gerne tildele excelent karaktererne. Kan du ikke sende mig en linje?

linje

linje 2

linje 3

linje 4