Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
996to1000
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Explorer öffnen geht nicht Excel 2007

Explorer öffnen geht nicht Excel 2007
03.08.2008 11:57:00
SteffenS
Hallo Zusammen,
ich verwende in meiner Anwendung folgenden Code um ein bestimmtes Verzeichnis anzuzeigen

Sub test()
Dim winexplorer As String
Dim VerzName As String
VerzName = "Z:\test"
winexplorer = GetWinDir & "\explorer"
oeffnen = Shell(winexplorer & " /e,/n,," & VerzName, 4)
End Sub


Bis Excel 2003 geht das auch alles.
Nur bei Excel 2007 öffnet sich nur der Arbeitsplatz, aber nicht das angegebene Verzeichnis.
Was muss ich tun damit das auch unter Excel 2007 funktioniert?
Danke im Voraus.
MFG
Steffen Schmerler

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Explorer öffnen geht nicht Excel 2007
03.08.2008 12:25:00
ransi
HAllo Stefan
Versuch es mal so:
Option Explicit

Sub test()
Dim VerzName
Dim Oeffnen
VerzName = "C:\test\"
Oeffnen = Shell("explorer.exe" & " /e,/n,," & VerzName, 4)
End Sub

Public Sub test1()
Dim ShApp As Object
Dim VerzName As String
Set ShApp = CreateObject("Shell.Application")
VerzName = "C:\test\"
ShApp.explore (VerzName)
Set ShApp = Nothing
End Sub


Habe allerdings keine Ahnung warum dein Code nicht läuft...
ransi

Anzeige
AW: Explorer öffnen geht nicht Excel 2007
03.08.2008 13:40:00
Tino
Hallo,
unter Vista gehts bei mir so.
Oeffnen = Shell("Explorer /e," & VerzName, vbMaximizedFocus)
Gruß Tino

Danke
04.08.2008 19:09:00
SteffenS
mit Eurem Code geht es einwandfrei.
VG
Steffen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige