---

Hallo leute,

Ich steh hier grad vor einem Problem, bei dem ich schonmal bischen rumgebastelt habe aber jetzt an einem Punkt bin wo ich nicht mehr weiterweiß.

Es geht darum das unsere Administratoren zurzeit unseren Standardkatalog öfters ändern. Und jedesmal fliegt dieser aus dem Katalogbrowser raus.

Mein Chef hat gemeint, ich soll mich dem Problem mal annehmen, und ein Makro schreiben, welches den Katalogbrowser den fehlenden Katalog wieder zuweißt. (damit der Konstrukteur sich die 25 klicks spart.)

Nochma die Steps welche ich umsetzen muss.

1. Katalogbrowser öffnen
2. Im Katalogbrowser mit Send-Key-Befehlen die Funktion "andere Kataloge anzeigen" auswählen
3. Es öffnet sich das Dateiauswahlfenster
4. Hier muss ich weiterhin mit Send-Key-Befehlen mich durch den ganze PC-Pfad-Salat durchhageln bis ich den Katalog gefunden und zugewießen habe.

Ich arbeite mit Send-Keys weil ich mal gelesen habe, dass man den Katalogbrowser nicht anders ansteuern kann.
leider ist in meinem Prog. ab dem 3.Step schluss...

da kommt kein Send-Key mehr an... ich weiß jetzt nicht was falsch ist.
hab schon versucht dem Fenster den Fokus zu geben, usw.... aber irgendwie mag ich hier nicht weiterkommen.

Weiß hierzu jemand rat?

vielen lieben dank schonmal

Anbei ist das Makro:
________________________________________________________________________________________________

Sub CATMain()

    Dim AktuellesPartDocument As PartDocument
    Set AktuellesPartDocument = CATIA.ActiveDocument
       
    Dim AktuellesPart As Part
    Set AktuellesPart = AktuellesPartDocument.Part

    'Katalogbrowser öffnen.
    CATIA.StartCommand "Katalogbrowser"

    '5x Tab
        CATIA.RefreshDisplay = True
                VBA.SendKeys "{TAB}", True
        CATIA.RefreshDisplay = True
                VBA.SendKeys "{TAB}", True
        CATIA.RefreshDisplay = True
                VBA.SendKeys "{TAB}", True
        CATIA.RefreshDisplay = True
                VBA.SendKeys "{TAB}", True
        CATIA.RefreshDisplay = True
                VBA.SendKeys "{TAB}", True
    '1x Enter
        CATIA.RefreshDisplay = True
                VBA.SendKeys "{ENTER}", True

    'BREAK____________ab hier gehts nicht weiter_____________BREAK

    'von der Logik müsste es so weitergehen um ans Ziel zu kommen:

    '6x Tab
        CATIA.RefreshDisplay = True
                VBA.SendKeys "{TAB}", True
        CATIA.RefreshDisplay = True
                VBA.SendKeys "{TAB}", True
        CATIA.RefreshDisplay = True
                VBA.SendKeys "{TAB}", True
        CATIA.RefreshDisplay = True
                VBA.SendKeys "{TAB}", True
        CATIA.RefreshDisplay = True
                VBA.SendKeys "{TAB}", True
        CATIA.RefreshDisplay = True
                VBA.SendKeys "{TAB}", True
    '1x Pfeil runter
        CATIA.RefreshDisplay = True
                VBA.SendKeys "{DOWN}", True
    '1x L für Local Disc
        CATIA.RefreshDisplay = True
                VBA.SendKeys "l", True

    '1x Enter
        CATIA.RefreshDisplay = True
                VBA.SendKeys "{ENTER}", True

End Sub
_____________________________________________________________________________

Ich wünsch euch schonmal ein schönes wochenende

Lg Beny

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Servus
Wäre es da nicht einfacher, dass die Administratoren nicht an den Pfaden der Kataloge "rumbasteln"?
Reicht es nicht wenn man im Environment bei der Variable
CATMsgCatalogPath den entsprechenden Pfad einstellt/ergänzt?

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP