|
Inventor VBA : Stückliste per Makro nach Excel exportieren
noctis79 am 08.01.2012 um 20:03 Uhr (0)
Sorry... Hatte Urlaub ^^Puh, ist schon wieder ne ganze Zeit her...Soll die kpl. Excel- Datei überschrieben werden oder nur ein bestimmtes Blatt?Bin ab morgen wieder im Einsatz...
|
| In das Form Inventor VBA wechseln |
 |
Inventor VBA : Stücklisten Export via VBA
noctis79 am 23.09.2013 um 11:50 Uhr (1)
Im VBA- Editor unter:Tools - ReferencesDie Excel- Library aktiviert?
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Stückliste per Makro nach Excel exportieren
noctis79 am 10.10.2011 um 19:18 Uhr (0)
Ah ja...Dann stell das Ganze mal richtig und gib bitte kurzeRückinfo ob alles funktioniert.Thx!
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Stückliste per Makro nach Excel exportieren
noctis79 am 09.10.2011 um 21:21 Uhr (0)
Probier dann den Code nochmal...Code:Sub export_BOM()Dim oapp As Inventor.ApplicationSet oapp = ThisApplicationDim odoc As Inventor.DrawingDocumentIf oapp.ActiveDocument.DocumentType kDrawingDocumentObject Then MsgBox "Funktion ist nur in Zeichnungen zulässig" Exit SubEnd IfSet odoc = oapp.ActiveDocumentDim oOptions As NameValueMapDim oName, oStart, oTemplate, oFullFileName, oFileName, oXLSFileName As StringDim oLength As StringDim oFit As BooleanDim oProp As PropertySetDim i As PropertyDim oDescri ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Stückliste per Makro nach Excel exportieren
noctis79 am 08.10.2011 um 22:20 Uhr (0)
Ist möglich. Hier mal ein kleiner Ansatz...Deine Excel- Datei erhält aber im Moment nur den Datei- Namen der IDW."Benennung" müsstest Du genauer definieren (Benennung als iProperty, oder meinst Du die Bezeichnung im Browser- Baum?) Willst Du das iProperty unbedingt haben? Wenn ja, welchen Namen hat das iProperty? Ist es ein Benutzerdefiniertes iProperty?Code:Sub export_BOM()Dim oapp As Inventor.ApplicationSet oapp = ThisApplicationDim odoc As Inventor.DrawingDocumentIf oapp.ActiveDocument.DocumentType kD ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Stückliste per Makro nach Excel exportieren
noctis79 am 09.01.2012 um 14:52 Uhr (0)
Jupp,die Möglichkeit gibts.Greift allerdings schon bei Bauteilen...D.h. beim Speichern von Bauteilen wird der "Display- Name" schon aktualisert und dementsprechend im Bauteil sowie der Baugruppe angezeigt...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Stückliste per Makro nach Excel exportieren
noctis79 am 10.10.2011 um 20:07 Uhr (0)
Da wünsch ich Dir viel Spaß...Wo bekommst Du die Revision her?Aus den iProperties?Mein Lösungsansatz wäre hier folgender:Prüfen ob xls- File existiert.Wenn ja, export als template.xlsÖffnen der template.xls, kopieren des sheets mit der Revision und das Ganze in die Original- Datei kopieren...Wird ein Spaß!
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Stückliste per Makro nach Excel exportieren
noctis79 am 10.10.2011 um 12:49 Uhr (0)
Dann scheinen die Herren beim 2012ér IV was geändert zu haben....Geh mal in die Programmierungshilfe(Im Inventor auf das ?, Weitere Ressourcen, Programmierungshilfe)und gib dort unter suchenpartslist.export ein.Dort sollte dann ein Titel mit PartsList.Export Method auftauchen...Kopier das bitte mal und schick´s mir durch...[Diese Nachricht wurde von noctis79 am 10. Okt. 2011 editiert.]
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Stückliste per Makro nach Excel exportieren
noctis79 am 12.10.2011 um 07:42 Uhr (0)
Schon getestet?Beim 2011ér überschreibt er die kpl. Datei...Code:Dim oPropRev As PropertySetDim iRev As PropertySet oPropRev = odoc.PropertySets.item("Inventor Summary Information")For Each iRev In oPropRev If iRev.DisplayName = "Revisionsnummer" Then If iRev.Expression = "" Then oName = "0" Else oName = iRev.Expression End If End IfNextIch geh mal davon aus Du meinst Revisionsnummer?!?Die Zeile oName = .... löschen und den Code dafür einfügen.[Diese Nachricht wurde von noctis79 am 12. O ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Stückliste per Makro nach Excel exportieren
noctis79 am 09.10.2011 um 20:08 Uhr (0)
Geb ich Dir Recht!Dies passiert wenn keine Stückliste auf der Zeichnung vorhanden ist.Weiterer Fehler:Schau Dir mal die Zeile an:Code:oXLSFileName = "D:TestordnerStücklisten" & oFileNameHier hast Du eine kleinen Fehler drin.Richtig ist:Code:oXLSFileName = "D:TestordnerStücklisten" & oFileNameP.s.Zeilen die mit beginnen brauchst Du nicht zu ändern.Diese enthalten nur Kommentare.[Diese Nachricht wurde von noctis79 am 09. Okt. 2011 editiert.][Diese Nachricht wurde von noctis79 am 09. Okt. 2011 editiert.]
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Stückliste per Makro nach Excel exportieren
noctis79 am 10.10.2011 um 18:20 Uhr (0)
Füg mal bitte vor dem Fehler das noch ein:Code:Dim objFSO As FileSystemObjectSet objFSO = New FileSystemObjectIf Not objFSO.FileExists(oTemplate) Then MsgBox "Template- Datei wurde nicht gefunden!", vbCritical + vbOKOnly, "Template" Exit SubEnd Ifund erstell einen Verweis (wie oben schon beschrieben) auf das Microsoft Scripting Runtime...Hab so eine Ahnung....Sollte der Fehler wieder auftauchen dann schau Dir nochmal die Zeile mitoTemplate = ".....xls" an.Bei Deinem post ist hinter dem xls noch ein L ...
|
| In das Form Inventor VBA wechseln |
