Map openen met pdf bestanden

[Gremail]

Ik wil graag vanuit Excel een map op het netwerk openen waar pdf bestanden in staan.
Ik heb hier al even gezocht, maar wat ik zie is altijd het openen van een bestand in een map.

Heeft iemand een oplossing voor:
1 Ik wil graag alleen de map openen b.v. (C:\Kennisbank), en dan zelf een pdf kiezen die er in staat.
2 Nog mooier is als ik nog een soort voorselectie kan maken. Er staan bv. pdf's met straatnamen in de map en ik geef straat "keizersgracht" op, dat dan de map geopend wordt en de pdf bestanden waar keizersgracht in voor komt getoond worden (de rest mag er ook gewoon in staan, maar b.v. gesorteerd op keizersgracht en de cursor bij de eerste).

Ik ben al tevreden met 1, maar 2 is de slagroom op de koffie.

Alvast bedankt

 

[Wigi]

Hier is code:

Sub HyperlinkPDFFiles()

    Dim lCount As Long
    
'========================================
'pas aan indien nodig
    Const sPath As String = "C:\"
'========================================

    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Application.EnableEvents = False
    
    On Error Resume Next
    With Application.FileSearch
        .NewSearch

        'Change path to suit
        .LookIn = sPath
        .Filename = "*.PDF"
        .SearchSubFolders = False
        
        If .Execute > 0 Then    'Workbooks in folder

            For lCount = 1 To .FoundFiles.Count    'Loop through all.

                ActiveSheet.Hyperlinks.Add Anchor:=Cells(lCount, 1), _
                                           Address:=.FoundFiles(lCount), _
                                           TextToDisplay:=Replace(.FoundFiles(lCount), sPath, "")

            Next lCount

        End If

    End With

    On Error GoTo 0

    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
    Application.EnableEvents = True

End Sub

Map aanpassen en uitvoeren in een leeg bestandje.

Voor de kers op de taart, euh de slagroom op de koffie, pas de regel

        .Filename = "*.PDF"

aan.

Dit werkt niet in Excel 2007 aangezien FileSearch niet meer ondersteund wordt.

Bron: http://www.ozgrid.com/VBA/hyperlink-list.htm

Wigi

 

[Gremail]

Helemaal goed, ook de kers, met slagroom.:thumb:

De hyperlinks zijn nog beter dan dat ik alleen de map zou openen.

Laatste vraag omdat ik het "map openen" voor nog een toepassing wil gebruiken alleen dan zonder hyperlinks in Excel.
Hoe krijg ik het scherm met de geopende map zelf te zien?

 

[Wigi]

Om C: schijf te openen:

Shell "Explorer.exe C:\", vbNormalFocus

Wigi

 

[Gremail]

Top,

Bedankt