|
Inventor VBA : Tabellenblatt in Excelliste überschreiben
Didikalle am 04.01.2012 um 18:32 Uhr (0)
Hallo ZusammenIch habe ein tolles Makro (siehe Anhang) zum Übertragen einer Teileliste von IV nach Excel (Dank an Noctis79). Beim ersten Übertrag wird ein Tabellenblatt mit Namen "0" erzeugt. Wenn ich nun bei einer Korrektur (ohne Rev.) das Tabellenblatt überschreiben will, erscheint "Der eingegebene Tabellenname ist bereits vorhanden", ein Überschreiben findet nicht statt. Wie muss das Makro ergänzt oder geändert werden, damit ich das Tabellenblatt überschreiben kann, am besten per NachfrageBox? Sub Stück ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Stückliste per Makro nach Excel exportieren
Didikalle am 11.10.2011 um 08:32 Uhr (0)
Danke für die die Wünsche, denke aber, dass der Spaß auch schnell in Frust ausarten kann wenn es am Ende nicht klappt.Die Revision bekomme ich aus den iproperties "Revision". Solltest Du Deinen Lösungsansatz, den ich für richtig halte, in vba umsetzen können, wäre ich Dir äusserst dankbar.------------------Didi
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Stückliste per Makro nach Excel exportieren
Didikalle am 10.10.2011 um 09:44 Uhr (0)
Hallo noctis79das sieht ja schon super aus, aber das Makro bleibt bei mir immer an der selben Stelle hängen, sodass keine Liste in den Testordner geht:Call odoc.ActiveSheet.PartsLists.Item(1).Export(oXLSFileName, kMicrosoftExcel, oOptions)Auf der Zeichnung befindet sich eine Teileliste, ich habe auch eine 2. eingefügt und die Fehlermeldung kam dann auch prompt. Was kann da falsch sein?Gruß------------------Didi
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Stückliste per Makro nach Excel exportieren
Didikalle am 08.01.2012 um 20:19 Uhr (0)
Hallo noctis79ich hoffe der Urlaub hat sich gelohn und Du bist wieder fit für neue Taten. Ich habe das Problem mit Hilfe eines Kollegen aus diesem Pool lösen können (siehe "Tabellenblatt in Excelliste überschreiben"). Sollten von Deiner Seite Verbesserungen erkannt werden - einfach sagen.Ich habe da aber noch ein Anliegen: Bei den teuren PSP-Systemen gibt es die Möglichkeit, im Browser einer IAM die Teile mit Displayname und Title zu versehen (übersichtlicher, besser erkennbar). Gibt es die Möglichkeit, da ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Stückliste per Makro nach Excel exportieren
Didikalle am 10.10.2011 um 19:47 Uhr (0)
Hallo noctis79,ich habe deine letzte VBA komplett übernommen, auf meinem Rechner den Testordner eingerichtet, das template.test.xls hier rein gelegt, und das war mein Fehler. In deiner vba steht das template direkt auf C: und damit klappt es. Ich bin begeistert und gebe die volle Punktzahl. Ein nächster Schritt ist die Geschichte mit der Revision, d.h. bei Änderung z.B. "A" brauche ich unter gleichem Dateinamen ein neues Tabellenblatt mit dem Namen "A" wo dann die neue, korrigierte Liste steht. Ich werde m ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Stückliste per Makro nach Excel exportieren
Didikalle am 09.10.2011 um 11:27 Uhr (0)
Hallo noctis79Besten Dank für diesen Lösungsansatz. Zu Deiner Frage kommend:Ich habe aus den Iproperties - Projekt - die Bauteilnummer (zB. DL-02011333) und die Bezeichnung (zB. Konsole)genommen mit einem "." getrennt (DL-02011333.Konsole) als Dateiname verwendet. In der Exceldatei wird der Dateiname per Formel wieder geteilt und in "A2" die Bauteilnummer und in "E2" die Bezeichnung eingefügt. Ich denke aber, dass Du hierfür eine bessere Lösung hast und die entspr. Iprops direkt in die Excelfelder bringen ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Stückliste per Makro nach Excel exportieren
Didikalle am 09.10.2011 um 11:52 Uhr (0)
Hier noch ein NachtragIch habe die VBA angepasst und ausprobiert. Der Debug kommt und zeigt die letzte Zeile als Fehler an:Sub Stückliste()Dim oapp As Inventor.ApplicationSet oapp = ThisApplicationDim odoc As Inventor.DrawingDocumentIf oapp.ActiveDocument.DocumentType kDrawingDocumentObject ThenMsgBox "Funktion ist nur in Zeichnungen zulässig"Exit SubEnd IfSet odoc = oapp.ActiveDocumentDim oOptions As NameValueMapSet oOptions = ThisApplication.TransientObjects.CreateNameValueMapDim oName, oStart, oTemplat ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Tabellenblatt in Excelliste überschreiben
Didikalle am 08.01.2012 um 14:13 Uhr (0)
Hi,ich habe mich einmal daran probiert und eine Lösung gefunden:......Code: If Dir(oXLSFileName) "" Then oExl.Workbooks.Open (oXLSFileName) Else GoTo ErrorHandler End If If Err.Number ThenErr.ClearCall odoc.ActiveSheet.PartsLists.Item(1).Export(oXLSFileName, kMicrosoftExcel, oOptions)oExl.Workbooks.Open (oXLSFileName)ElseDim oExlSheet As Excel.WorkSheetDim m As IntegerFor Each oExlSheet In oExl.ActiveWorkbook.WorksheetsIf oExlSheet.Name = oName Then m = MsgBox("soll vorhandene Liste überschrieben w ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Stückliste per Makro nach Excel exportieren
Didikalle am 10.10.2011 um 17:44 Uhr (0)
Hallo noctis79Hier das was ich finden konnte:SummaryProperty that returns the PartsLists collection object associated with this sheet. This provides access to the existing parts lists on the sheet.Visual BasicProperty PartsLists() As PartsLists** See AlsoParts List Edit sample Parts List Query sample You are here: Symbol Reference Inventor Library Objects Sheet Interface Sheet Properties Sheet.PartsLists PropertyCopyright (c) Autodesk Inc. 2011. All rights reserved.Method that saves the parts list to ...
|
| In das Form Inventor VBA wechseln |
