---

Hallo!

wir würden gerne für Alt-Daten das Gewicht im ERP aktualisieren (wurde früher oft nicht eingetragen)

Im Vault gibt's für die Alt-Daten noch keinen Gewichtsinformation.

Wie kann man aus einem lokalem Ordner mit ipt und iam, eine Liste mit Modellname und dem jeweiligem Gewicht herausfahren?

Hat dazu jemand eine Idee?

------------------
Gruß Markus

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

---

Hallo Markus,

ich würde eine IAM erstellen.
- Alle gewünschten Dateien aus dem Explorer in die IAM ziehen
- vielleicht vorsichtshalber Verwalten - neu erstellen und Masse aktualisieren
- Stückliste der IAM öffnen, Masse und Dateiname einblenden
- Nach Excel exportieren

------------------
Gruß Roland

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

---

Hallo

Falls du mit VBA was anfangen kannst, ich habe hier mal ein Makro geschrieben, welches das Gewicht in eine Excel exportiert.

Code:

---

Public Sub Gew_abrufen()
    Dim AppXLS As Excel.Application
    Dim wb As Excel.Workbook
    Dim Ws As Excel.WorkSheet
    Dim oDoc As Document
    Dim Btnr As String
    Dim Rev As String
    Dim ArtikelNr As String
    Dim Titel As String
    Dim Masse As String
    Set AppXLS = CreateObject("Excel.Application")
    Set wb = AppXLS.Workbooks.Add
    Set Ws = wb.Worksheets.Item(1)
    'Überschriften in Excel-Tabelle setzen
    Ws.Range("A1").Value = "Bauteil-Nr"
    Ws.Range("B1").Value = "Revision"
    Ws.Range("C1").Value = "Artikel-Nr"
    Ws.Range("D1").Value = "Beschreibung"
    Ws.Range("E1").Value = "Gewicht"
    Ws.Range("A1:E1").Font.Underline = xlUnderlineStyleSingle
    Ws.Range("A1:E1").Font.Bold = True
    Ws.Range("A:E").HorizontalAlignment = xlCenter
    Ws.Range("A1").ColumnWidth = 15
    Ws.Range("B1:C1").ColumnWidth = 10
    Ws.Range("D1").ColumnWidth = 30
    Ws.Range("E1").ColumnWidth = 10
    With Ws.PageSetup
        .CenterHeader = ThisApplication.ActiveDocument.DisplayName
        .LeftFooter = "Seite &P von &N"
        .RightFooter = Now()
    End With
    i = 2
   
    Set oDoc = ThisApplication.ActiveDocument
    'wenn kein Zusammenbau, Sub verlassen
    If oDoc.DocumentType = kAssemblyDocumentObject Then GoTo Zusammenbau
    If oDoc.DocumentType = kPartDocumentObject Then GoTo Einzelteil
    'MsgBox "Dieser Befehl kann nur aus einem I-Assembly oder I-Part ausgeführt werden!!", vbExclamation, "@Copyright by Urs Meier"
    Exit Sub
Zusammenbau:
    If Not oDoc.ComponentDefinition.IsiAssemblyFactory Then
        MsgBox "Dieser Befehl kann nur aus einem I-Assembly oder I-Part ausgeführt werden!!", vbExclamation, "@Copyright by Urs Meier"
        Exit Sub
    End If
    For Each row In oDoc.ComponentDefinition.iAssemblyFactory.TableRows
        oDoc.ComponentDefinition.iAssemblyFactory.DefaultRow = row
        'oDoc.Update
        i = i + 1
        Ws.Range("A" & i).Value = oDoc.PropertySets("Design Tracking Properties").Item("Part Number").Value
        Ws.Range("B" & i).Value = oDoc.PropertySets("Inventor Summary Information").Item("Revision Number").Value
        Ws.Range("C" & i).Value = oDoc.PropertySets("Inventor User Defined Properties").Item("Artikelnr.").Value
        Ws.Range("D" & i).Value = oDoc.PropertySets("Inventor Summary Information").Item("Title").Value
        Ws.Range("E" & i).Value = Format(ThisApplication.ActiveDocument.ComponentDefinition.MassProperties.Mass, "###.###" & " Kg")
    Next
    'Debug.Print Prompt
    AppXLS.Visible = True
   
    Exit Sub
Einzelteil:
    If Not oDoc.ComponentDefinition.IsiPartFactory Then
        MsgBox "Dieser Befehl kann nur aus einem I-Assembly oder I-Part ausgeführt werden!!", vbExclamation, "@Copyright by Urs Meier"
        Exit Sub
    End If
    For Each row In oDoc.ComponentDefinition.iPartFactory.TableRows
        oDoc.ComponentDefinition.iPartFactory.DefaultRow = row
        'oDoc.Update
        i = i + 1
        Ws.Range("A" & i).Value = oDoc.PropertySets("Design Tracking Properties").Item("Part Number").Value
        Ws.Range("B" & i).Value = oDoc.PropertySets("Inventor Summary Information").Item("Revision Number").Value
        Ws.Range("C" & i).Value = oDoc.PropertySets("Inventor User Defined Properties").Item("Artikelnr.").Value
        Ws.Range("D" & i).Value = oDoc.PropertySets("Inventor Summary Information").Item("Title").Value
        Ws.Range("E" & i).Value = Format(ThisApplication.ActiveDocument.ComponentDefinition.MassProperties.Mass, "###.###" & " Kg")
    Next
    'Debug.Print Prompt
    AppXLS.Visible = True
    Exit Sub
End Sub

---

Die benutzerdefinierten iPorperties ArtikelNr musst du wahrscheinlich auskommentieren

Gruss

[Diese Nachricht wurde von Meierjo am 10. Feb. 2020 editiert.]

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