Mit MyShell CAD-Zeichnungen öffnen
13.04.2005 16:23:54
Holger
habe da ein Problem:
Ich möchte mit der "Shell-Funktion" CAD - Zeichnungen mit der Endung .dwg öffnen.
Mit Pdf-dateien klappt das auch. Wenn ich auf die CAD-Zeichnung direkt doppelklicke auch.
Was habe ich falsch gemacht, das er es nicht mit der Shell-Funktion macht?
Es kommt die Fehlermeldung: Die Methode 'Run' für das Objekt 'IWshShell3' ist fehlgeschlagen.
Mein Code sieht so aus:
filename = ActiveWorkbook.FullName
Längefilename = Len(filename)
LookinFile = Left(filename, Längefilename - 11) + "Schaltpläne\"
StrPfad = LookinFile
Set MyShell = CreateObject("WScript.Shell")
strDateiName = StrPfad & Stationstypen & ".dwg"
strDateiName = Chr(34) & strDateiName & Chr(34)
MyShell.Run strDateiName '*** Hier kommt der Fehler ***
Set MyShell = Nothing
Cancel = True
Was muss ich ändern?
MfG
Holger Wächter