Dynamisch mappen openen vanuit Excel bestand

Het kan handig zijn om direct mappen te kunnen openen vanuit je Excel bestand. Bijvoorbeeld als je een Excel bestand met ordernummers hebt, waarvan je de bijhorende map wil kunnen openen (in dat geval moet je natuurlijk wel zorgen dat je per order een map hebt). Zie onderstaande overzicht met ordernummers.

Met onderstaande macro kun je de bijhorende map openen door op een ordernummer te staan en de macro te activeren. Voeg onderstaande code toe aan een nieuwe VBA module.

Sub OpenBestandsmap()
  
    Dim salesMap As String
    Dim OrderNummer As String
    
    salesMap = "C:\MijnBedrijf\Sales Orders\"
    
    OrderNummer = ActiveCell.Value
       
    Call Shell("explorer.exe" & " " & salesMap & OrderNummer, vbNormalFocus)
    
End Sub

Je salesMap variabele is een vaste map op je harde schijf/netwerkschijf die je zelf kunt instellen. Dit is een vaste waarde. Let op dat deze eindigt met een backslash.

Het dynamische gedeelte zit in de orderNummer variabele. Deze wordt namelijk bepaald door de waarde van de cel die je hebt geselecteerd.

Geef een antwoord

Het e-mailadres wordt niet gepubliceerd.