Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Prüfen ob eine Applikation geöffnet ist oder nicht
#11
(06.07.2016, 13:54)schauan schrieb: 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
Antworten Top
#12
(06.07.2016, 13:48)jovicic schrieb: Hallo snb

hab es gerade probiert und es funktioniert nicht  Huh

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"
Antworten Top
#13
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.
.      \\\|///      Hoffe, geholfen zu haben.
       ( ô ô )      Grüße, André aus G in T  
  ooO-(_)-Ooo    (Excel 97-2019+365)
Antworten Top
#14
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

Huh
Antworten Top
#15
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
Gib einem Mann einen Fisch und du ernährst ihn für einen Tag. 
Lehre einen Mann zu fischen und du ernährst ihn für sein Leben. (Konfuzius)
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste