Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  Solid Edge
  VBA Excel Genaue Vorkommnisbenennugn in Spalte ausgeben

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
  
Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für SolidEdge
Autor Thema:  VBA Excel Genaue Vorkommnisbenennugn in Spalte ausgeben (580 mal gelesen)
zelade
Mitglied



Sehen Sie sich das Profil von zelade an!   Senden Sie eine Private Message an zelade  Schreiben Sie einen Gästebucheintrag für zelade

Beiträge: 21
Registriert: 28.06.2016

erstellt am: 01. Aug. 2016 10:57    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities


Bennenung_beispiel.JPG

 
Guten Tag Zusammen,

ich arbeite momentan daran Bauteile einer Baugruppe mit VBA Excel zu ersetzen.
Dabei brauche ich vor allem die genaue Benennung des Bauteils wie sie in Solid Edge zugeteilt wird.
Zum Beispiel wenn ich eine part Datei einfüge mit dem Namen "Test.par", dann erhält sie den Namen "Test.par:1".
So kann man auch mehrere Gleichteile unterscheiden, was mir sehr wichtig ist.

Ich möchte nun um eine Dropdownliste zu erstellen genau diese Teilbenennung auslesen und in einer Spalte iterativ (1. Bauteil-Ebene reicht) ausgeben lassen.
Mit welchem Befehl kann ich auf die Namen zugreifen, wenn ich die Baugruppe nebenbei geöffnet habe.
Ein kurzes Minimalbeispiel oder auch nur der Code würde mir helfen. Im .NET Programmers Guide habe ich diesen leider nicht gefunden.

Viele Grüße

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

wolha
Moderator
CAD - Consultant


Sehen Sie sich das Profil von wolha an!   Senden Sie eine Private Message an wolha  Schreiben Sie einen Gästebucheintrag für wolha

Beiträge: 5563
Registriert: 30.01.2002

Win 10 Pro
Solid Edge 2023
CAMWorks
Primus PDM
FEMAP
Dynamic Designer
Teamcenter

erstellt am: 01. Aug. 2016 11:00    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für zelade 10 Unities + Antwort hilfreich

Hallo,

sitze zwar nicht vor der VB Umgebung, aber im SE Dokument einer ASM findest Du die Occurences
Und für jedes Occurence kannst Du dann Dateinamen, usw. abfragen

Schau Dir den Objektkatalog an und das sollte Dich dann weiter bringen

------------------
mfg

Wolfgang Hackl
CAD/CAM - Consult

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

Arne Peters
Ehrenmitglied V.I.P. h.c.
CAD Dokumentation / Training / Programmierung / Datenbanken


Sehen Sie sich das Profil von Arne Peters an!   Senden Sie eine Private Message an Arne Peters  Schreiben Sie einen Gästebucheintrag für Arne Peters

Beiträge: 7321
Registriert: 05.2002.24

Solid Edge Seminarunterlagen
Training, Beratung, Programmierung

erstellt am: 01. Aug. 2016 11:12    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für zelade 10 Unities + Antwort hilfreich

Ich glaube das ist "Ocurrences.item(i).name"

------------------
Arne

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

zelade
Mitglied



Sehen Sie sich das Profil von zelade an!   Senden Sie eine Private Message an zelade  Schreiben Sie einen Gästebucheintrag für zelade

Beiträge: 21
Registriert: 28.06.2016

erstellt am: 01. Aug. 2016 11:54    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Vielen Dank für die schnelle Antwort, hat super funktioniert.
Habe das in Form einer Schleife wie folgt umgesetzt:

Code:
For i = 1 To SEDoc.occurrences.Count
    Sheets("Tabelle1").Range("J" & i).Value = CStr(SEDoc.occurrences.Item(i).Name)
    Next i

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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz