Kann Explorer nicht schließen
11.08.2006 06:32:48
Ceci
ich öffne mittels folgendem VBA-Code von Yogi eine Datei:
Private Sub CommandButton2_Click()
Dim strDateiName As String
Dim MyShell As Object
Dim StrPfad As String
Dim Pfad As String
Pfad = Worksheets("Eingabedefinitionen").Cells(2, 7).Value
ChDir (Pfad)
Set MyShell = CreateObject("WScript.Shell")
strDateiName = Pfad
strDateiName1 = Chr(34) & strDateiName & Chr(34)
MyShell.Run strDateiName1
Set MyShell = Nothing
End Sub
Die pdf-Dateien werden aus dem Explorer heraus geöffnet, das heißt ich wähle dort eine Datei mit Doppelklick aus. Wenn ich jetzt Acrobat Reader komplett schließe, ist der Explorer noch immer offen.
Wenn ich jetzt eine neue Datei öffne, öffnet sich ein zweiter Explorer zum Auswählen, und so geht das immer weiter. Nach 5 Dateien hatte ich auch 5 Explorerinstanzen offen.
Da das sehr nervig ist, würde ich gerne einen Befehl einbauen, der den Explorer wieder schließt. Kann mir hier jemand helfen?
mfg Ceci