Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  Solid Edge
  VB dringend Hilfe gebraucht!

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:  VB dringend Hilfe gebraucht! (228 mal gelesen)
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: 14. Okt. 2004 15:31    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

Hallo SE Programmierer!

Entweder stehe ich gerade auf der Leitung oder ...

Wenn ich eine Liste aller in SE gerade geöffneten Dokumente haben möchte, so sollte das doch mit

Dim sedateien As Object
Dim sedatei As Object


    Set sedateien = SEApp.Documents
    For i = 1 To sedateien.Count
        name1 = sedateien.Item(i).Name       
    Next i

kein Problem sein.
Aus einem mir nicht erkennbaren Grund bekomme ich aber immer wieder eine Fehlermeldung (egal mit melcher Methode ich da ran gehe).

Wer kann mir denn da rasch helfen - Danke!

mfg
Wolfgang


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

modeng
Ehrenmitglied V.I.P. h.c.



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

Beiträge: 7061
Registriert: 10.12.2003

erstellt am: 14. Okt. 2004 15:39    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 wolha 10 Unities + Antwort hilfreich

Moin,

ich wuerd's so machen

    For Each sedateien In SEApp.Documents
        name1 =  sedateien.Name
    Next

dann bist Du aus dem Schneider falls kein Dokument offen ist, ansonsten
muss vor der Schleife noch stehen

If SeApp.Documents.Count > 0 then

Vermutlich war das der fall als der Fehler auftrat, denn ansonsten
lief das Ding

Klaus

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: 14. Okt. 2004 15:51    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

Hallo Modeng - Danke das funkt so!

mfg
Wolfgang

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

Jürgen Niesner
Mitglied



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

Beiträge: 505
Registriert: 26.11.2001

erstellt am: 15. Okt. 2004 12:31    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 wolha 10 Unities + Antwort hilfreich

Servus wolha,

der Vorschlag von Klaus ist auch noch aus einem anderen Grund besser:

Muß die For-ASchleife von 1 bis Count laufen oder von 0 bis Count-1. Das ist in jedem program an jeder Stelle anders. bei For each gibt es dieses Problem nicht.

ich würde aber zur Sicherheit das ganze so erweitern:

For Each sedateien In SEApp.Documents
  On Error resume next       
    name1 =  sedateien.Name
    if err then ....
  On Error Goto 0
Next

Denn es könnte ja mal sein das Dir SE ein Dokumentobjekt zurück liefert, dass die Name-Eigenschaft nicht unterstützt.

Jürgen

------------------
54* SEV15SR6, 4*SEV16.00.00.63

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