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 |