Methode Run fehlgeschlagen
31.01.2004 22:58:20
Maren
habe wieder mal ein großes Problem. Habe einen Code in UserForm. nach Betätigung des Commandbuttons geht eine Auswahlbox auf die mir alle Dateien in einem bestimmten Ordner zeigt. Dann kann ich Datei öffnen klicken und die gewünsche Datei öffnet.
Nur, eben manchmal funktioniert das einwandfrei. Oft kommt aber eine Fehlermeldung
Die Methode 'Run' für das Objekt IwshShell3 ist fehlgeschlagen!
Mein Code sieht wie unten aus. Kann mir jemand helfen???
Es grüßt freundlich Maren
Application.Run "Test.xls!laufen"
Columns("A:B").Select
Selection.ClearContents
Range("C4").Select
Verzeichnis = Cells(1, 2).Value
Dateiname = Verzeichnis & ComboBox1.Value
Set wshshell = CreateObject("WScript.Shell")
UserForm1.Hide
wshshell.Run Dateiname
Application.Run "Test.xls!stoppeN"
Range("A1").Select
Application.Run "Test.xls!laufen"