---

Halli hallo!

Ich habe eine Bitte zu einem abgekauten Thema:

Kann mir jemand den Gefallen tun und ein simples Makro posten, das einen bestimmten Paramter aus einem aktiven Catia Part ausliest und in eine bestimme Zeile in einem Excel dokument schreibt?

Ich versuche schon seit stunden aus den vorhandenen Cad.de Beiträgen ein Makro zusammenzubauen und scheitere leider kläglich.

Scenario:
ich öffne ein Part, in dem Parameter1 und Parameter2 existieren
ich öffne Catia VBA
Ich führe das Makro aus
Das Makro schreibt "Parameter1" und "Parameter2" in ein Excelblatt in die Zellen A1 und A2.

Fertig.

Ich hoffe auf Mitleid und wäre wirklich sehr dankbar!

Mit besten Grüssen!

Christoph

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

---

Servus
Schau mal hier findest du ein ähnliches Makro.

Gruß
Bernd

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

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

---

BroadCast-To-Excel.zip

Hallo Christoph  ,

anbei ein Script welches alle direkten Parameter (Parameter welche du selbst über die Function "Paramter" angelegt hast) in ein Excel Tabellenblatt schriebt. Der Name steht dabei in der Spalte "A" der zugehörige Wert in der Spalte "B". Das Script verarbeitet alle Parameter unabhängig vom Namen oder vom Typ (alle Werte werden in einen String wert umgewandelt).

Excel kann dabei geöffnet oder geschlossen sein (Es muss jedoch einen Eintrag in der Registry geben, d.h. Excel MUSS registriert sein). Das Script kommt ohne Verweise auf *.dll Dateien aus (late Binding).

Viel Spaß damit 

------------------
MFG Daniel

Systeminformation | Inoffizielle CATIA Hilfeseite | CATIA FAQ | Suche | TraceParts (Normteile...) | 3D Content Central (noch mehr Normteile...)

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

---

Hallo Bernd
Danke für den Link. An dem script habe ich mich auch schon versucht und bin leider gescheitert...

Hallo Daniel
Vielen Dank für das Script! An dem versuche ich mich gleich mal.

Nebenbei: Schön, noch mir bekannte "Gesichter" zu sehen ;-)
Es ist ja langsam schon etwas her, dass ich hier richtig aktiv war.

Im moment helfe ich mir wie folgt:
Aus einem anderen Beitrag habe ich folgenden code kopiert:

Sub CATMain()
    Dim i As Integer
    Dim prod As Product

    Set prod = CATIA.ActiveDocument.Product

Set objXL = CreateObject("Excel.Application")
objXL.Visible = True

Set oAWBook = objXL.Workbooks.Add

    For i = 1 To prod.Parameters.Count
    objXL.Cells(i, 1).Value = prod.Parameters.Item(i).Name
    objXL.Cells(i, 2).Value = prod.Parameters.Item(i).Value
    Next

End Sub

Das Makro läuft, stürzt bei mir aber nach ca. 25 Parameters ab.
Das hilft mir, weil die Parameter, die ich gerne auslesen möchte, die ersten 14 sind 
Insofern ist das Ergebnis FAST genau das, was ich möchte.
Etwas sehr behelfsmässig, aber man muss ja auch mal Glück haben ;-)

So, jetzt schaue ich mal in den code von Daniel!

Ahoi!

Christoph

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