Prüfen ob eine Applikation geöffnet ist oder nicht

[jovicic]

Hallöchen,

wann rufst Du denn
open_dwt
auf? Ich habe in den bisher geposteten codes keinen entsprechenden Aufruf gefunden.

Code:

Sub runsub(control As IRibbonControl)

If Not IsAppRunning("AutoCAD.Application") Then
MsgBox "AutoCAD ist geschloßen!!!"

Call open_dwt
End If

End Sub

[snb]

Hallo snb

hab es gerade probiert und es funktioniert nicht 

Check mal erst ob die Datei existiert: Dir(pfad & Name)

Wenn du die mit Explorer öffnen kannst, geht's mit Getobject auch.

Und was auch funktioniert:

Code:

ActiveWorkbook.FollowHyperlink "G:\OF\FLW40_FLG40.dwt"

[schauan]

Hallo Alex,

ich ergänz das anhand des Beispiels von Ralf mal noch. Willst Du die Datei neu erzeugen oder willst Du eine vorhandene öffnen? In Deinem Code fehlt das Application-Objekt. Ich habe in den anderen Postings nirgends was entsprechendes gesehen. Wenn es im Makro nicht drin ist, müsste es irgendwo im Modul mit Dim oder Public deklariert sein. Mit dieser Variante wird eine neue ACAD-Instanz gestartet.

Code:

Dim objACAD As New ACAD.Application
Dim irgendwas As ACAD.Document  
Set irgendwas = objACAD.Documents.Open("G:\Test\Dok2.docx")
objACAD.Visible = True

Statt
Dim objACAD As New ACAD.Application
kannst Du auch mit Get... arbeiten. Das würde eine offene Instanz holen.

[jovicic]

Ich hab es es gerade probiert und es geht nicht

Da ist ein Fehler in:

Code:

Dim objACAD As New ACAD.Application
Dim irgendwas As ACAD.Document

[RPP63]

Moin!
Auch wenn ich mich wiederholen sollte, Alex:
Du wirst in einem Auto-CAD-Forum eher Leute treffen, die auch Excel besitzen als vice versa.
Bisher sind alle Vorschläge die von Einäugigen unter den Blinden, sie betreffen allgemeine Hinweise zum Öffnen einer Applikation.

Du wirst ja einen Verweis auf AutoCAD im VBA-Editor gesetzt haben?
(Extras, Verweise, AutoCAD)
Prima, dann steht Dir ja die Intellisense zur Verfügung!

Code:

Dim objACAD As New ACAD.Application
With objCAD
   .
End With

Nach dem Punkt in der With-Klammer siehst Du einen Scrolldown.
Da musst Du halt schauen, ob ein neues Dokument tatsächlich .Document heißt.
Nach dem nächsten Punkt .Document. dito

Gruß Ralf