Ordner öffnen
07.12.2006 17:01:46
mtremer
ich bin echt am Verzweifeln!
Ich versuche, mir einen Code zu bauen, der einfach nur einen Ordner öffnen soll.
Dieser Ordner wurde mit diesem Code erstellt:
Dim Name As String
Name = ThisWorkbook.Sheets("Umlauf").Range("C5").Value
If Dir("x:\offene Fälle\" & Name, vbDirectory) = "" Then MkDir "x:\offene Fälle\" & Name
ThisWorkbook.SaveAs "x:\offene Fälle\" & Name & "\" & Name & " Umlaufzettel " & Range("H1") & ".xls"
Das sieht dann so aus: x:\offene Fälle\Nachname, Vorname\Nachname, Vorname 07.12.2006.xls
Hiermit versuche ich dann diesen Ordner mit Explorer zu öffnen:
Dim Pfad As String
Pfad = "x:\offene Fälle\" & Sheets("Umlauf").Range("C5")
Shell "Explorer " & Pfad, vbNormalFocus
FEHLERMELDUNG: Der Pfad "Vorname\" ist nicht vorhanden oder verweist auf kein Verzeichnis.
Was mache ich da falsch?
Danke für Eure Hilfe.
Viele Grüße
Marco