#

Excel vba : Öffnen des Windows Explorers

 

Öffnen des Windows Explorers aus Excel

 

Betrifft: Office, Access, Word, Outlook, vba

Public Sub Y_Laufwerk_anbinden()

    '----------< Y_Laufwerk_anbinden() >-------------

    Dim objNet As Object

    Set objNet = CreateObject("Wscript.Network")

    On Error Resume Next

    objNet.MapNetworkDrive "y:", "\\CodeDocu.com@SSL\DavWWWRoot\\Verwaltung \Reporting\Reporting\"

   

    Shell "explorer.exe /e, Y:\", VbAppWinStyle.vbMaximizedFocus

    '----------</ Y_Laufwerk_anbinden() >-------------

End Sub

 

Mobile

.

0123movie.net