| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| PNY WIRD VON NVIDIA ZUM HÄNDLER DES JAHRES GEWÄHLT, eine Pressemitteilung
|
Autor
|
Thema: Behebung von Fehler (1287 / mal gelesen)
|
Didist Mitglied xxxxxxxx
Beiträge: 106 Registriert: 17.06.2001 Intel CPU 2.13 3Gb Ram Nvidia QuadroFX 1500 Win XP SP3 AIS 2013
|
erstellt am: 03. Mrz. 2018 04:53 <-- editieren / zitieren --> Unities abgeben:
Hallo bin ein Leihe habe den Code im forum gefunden und möchte das Progamm zum Laufen bringen, leider klappt das bei mir nicht woran kann denn das ligen Beim debuggen wird folgende Zeile gelb markiert Code:
oExl.ActiveWorkbook.Sheets("Baugruppe").Cells(2, 2) = oAsmDoc.PropertySets(4).Item("Produktmarke").Value & oAsmName
kommt die Fehlermeldung Run-time error '-2147467259 (80004005)':Method 'Item' of object 'PropertySet' failed den ganzen code findet man http://ww3.cad.de/foren/ubb/Forum258/HTML/001400.shtml#000004 Danke im Voraus D. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Ruzy5624 Mitglied Konstruktionsleiter / staatl. gepr. Techniker
Beiträge: 280 Registriert: 01.07.2015 Product Design Suite 2018 Ultimate Visual Studio 2017 Windows 10 Pro Intel Xeon E3-1245 v5 @ 3,5GHz Nvidia Quadro M4000 8GB RAM 32GB 2x 24" Monitore FullHD SpaceMouse Pro
|
erstellt am: 03. Mrz. 2018 08:57 <-- editieren / zitieren --> Unities abgeben: Nur für Didist
Hast du denn ein benutzerdefiniertes iProperty, was "Produktmarke" heißt? Wenn dieses nicht vorhanden ist, dann versucht er an dieser Stelle vergeblich das nicht vorhandene iProperty nach Excel zu schreiben. ------------------ Mit Besten Grüßen Marcel Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Didist Mitglied xxxxxxxx
Beiträge: 106 Registriert: 17.06.2001 Intel CPU 2.13 3Gb Ram Nvidia QuadroFX 1500 Win XP SP3 AIS 2013
|
erstellt am: 03. Mrz. 2018 09:41 <-- editieren / zitieren --> Unities abgeben:
Danke für den Tipp, leider weis ich nicht was das "iProperty" enthalten soll und wie das ausschauen sollte "iProperty" ist mir schon ein Begriff , diesen nutze ich um Variabeln für mehrere gleichartige Teile zu nutzen mehr aber nicht. Wäre es möglich mir eine soleche Vorlage zur verfügung zu stellen? Auf dieser sache wäre ich nie gekommen!!!! Danke im Voraus D. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
BernoAn Mitglied
Beiträge: 172 Registriert: 16.01.2014
|
erstellt am: 05. Mrz. 2018 11:47 <-- editieren / zitieren --> Unities abgeben: Nur für Didist
|
Ruzy5624 Mitglied Konstruktionsleiter / staatl. gepr. Techniker
Beiträge: 280 Registriert: 01.07.2015 Product Design Suite 2018 Ultimate Visual Studio 2017 Windows 10 Pro Intel Xeon E3-1245 v5 @ 3,5GHz Nvidia Quadro M4000 8GB RAM 32GB 2x 24" Monitore FullHD SpaceMouse Pro
|
erstellt am: 05. Mrz. 2018 12:35 <-- editieren / zitieren --> Unities abgeben: Nur für Didist
Zitat: Original erstellt von BernoAn: Hallo,So ist der Code richtig Code: oExl.Sheets.Item("Baugruppe").Cells(2, 2).Value = oAsmDoc.PropertySets(4).Item("Produktmarke").Value & oAsmName
Gruß Berno
Auch dieser Code ändert IMHO nichts an der Tatsache das der Code crasht, wenn das iProperty "Produktmarke" nicht vorhanden ist. Und der Fehler der zu Beginn vom Threadersteller gepostet wurde: "Run-time error '-2147467259 (80004005)':Method 'Item' of object 'PropertySet' failed" besagt ja, dass die Item-Methode des Objektes "PropertySet" fehlschlägt. Dies zeigt, dass er das gewünschte iProperty "Produktmarke" nicht abrufen kann. Zur Lösung führt IMHO nur: * Die Code-Zeile löschen, wenn sie nicht gewünscht/benötigt wird * Das fehlende iProperty "Produktmarke" ergänzen * Den Fehler vermeiden, indem der Code vorher prüft, ob das gewünschte iProperty überhaupt vorhanden ist ------------------ Mit Besten Grüßen Marcel Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
BernoAn Mitglied
Beiträge: 172 Registriert: 16.01.2014
|
erstellt am: 05. Mrz. 2018 13:17 <-- editieren / zitieren --> Unities abgeben: Nur für Didist
|
Didist Mitglied xxxxxxxx
Beiträge: 106 Registriert: 17.06.2001 Intel CPU 2.13 3Gb Ram Nvidia QuadroFX 1500 Win XP SP3 AIS 2013
|
erstellt am: 05. Mrz. 2018 17:57 <-- editieren / zitieren --> Unities abgeben:
Erst mal einen großen Dank an euch allen, dass Ihr an der Lösung meinem Problem teilnehmt. Wenn es möglich wäre, die gesamte Funktion zu nutzen. * Die Code-Zeile löschen, wenn sie nicht gewünscht/benötigt wird Aber hier fehlt dann die Stückliste oder? * Das fehlende iProperty "Produktmarke" ergänzen Wie muß ich hier vorgehen habe so was nie gemacht? * Den Fehler vermeiden, indem der Code vorher prüft, ob das gewünschte iProperty überhaupt vorhanden ist Was müsste man hier eingeben, und wo? Danke im Voraus D. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Tacker Mitglied TZ, Tech. MB, Softwareentwickler
Beiträge: 175 Registriert: 23.09.2010 IV 2017 Pro i7-7700K 4x4.2GHz 32GB DDR4-2400 GTX 1060 6GB DDR5
|
erstellt am: 14. Mrz. 2018 11:29 <-- editieren / zitieren --> Unities abgeben: Nur für Didist
Moin Wenn ich mich nicht irre könnte dir das weiterhelfen. Code: Private Sub test2()Dim Test_Value As String Dim oAsem As AssemblyDocument Set oAsem = ThisApplication.ActiveDocument If Check_PropertyExists(oAsem, 4, "Produktmarke") Then Test_Value = oAsem.PropertySets(4).Item("Produktmarke").Value '& oAsmName Else 'Wert existiert nicht 'Neue IProperty Anlegen Call oAsem.PropertySets(4).Add("Propvalue", "Propname", "PropID") End If End Sub Private Function Check_PropertyExists(ByVal oDoc As Object, ByVal PropertySet_Index As Integer, ByVal Property_Name As String) As Boolean On Error Resume Next Dim Test_Value As String Test_Value = oDoc.PropertySets(PropertySet_Index).Item(Property_Name).Value If Err.Number <> 0 Then Check_PropertyExists = False Else Check_PropertyExists = True End If End Function
Hab ich jetzt mal auf die Schnelle zusammengebastelt. Gruß Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |