---

Hallo,

wie ich eine Stückliste aus meiner *.idw per Macro nach Excel exportieren kann weiß ich.
Jedoch suche ich einen Lösungsansatz, eine andere (in den Stilen definierte) Stückliste, welche sich allerdings nicht auf dem Zeichnungsblatt befindet, zu exportieren.

In den Stil-Einstellungen habe ich zwei Stücklisten definiert. Eine benutze ich, um diese auf dem Zeichnungsblatt zu legen, und die andere (andere Spalten), um diese zu exportieren.

Derzeit wechsle ich erst den Stil der dargestellten Stückliste, exportiere diese, und wechsle anschliessend wieder zurück... (nerv)

Kann ich beim Export den zu verwendenden Stil angeben??

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

---

Hallo...

ich habe mir nun selber ein wenig helfen können, und bin somit in der Lage, den Export der zweiten Stückliste zu ermöglichen.
Hierzu prüfe ich als erstes, ob eine Stückliste vorhanden ist.

Wenn nein: platziere ich diese auf das Blatt

andernfalls, oder anschließend platziere ich meine zu exportierende Stückliste außerhalb des Blattes. Diese lässt sich dann exportieren und anschließend löschen. - fertig.

Nun habe ich jedoch noch ein kleines Problem:

in einer Spalte ("Baugruppe") soll der Wert aus "iProperty(SUBJECT)" der Assembly übernommen werden (in jeder Stücklistenzeile), und mit exportiert werden.
Es hat mal funktioniert, aber mit einer anderen Art und Weise, wie die Excel-Tabelle befüllt wurde. (Als Anmerkung im CODE)

CODE:
---------------------
Set partlist = oDoc.ActiveSheet.PartsLists.Item(2)
oExl.Workbooks.Open (oXLSFileName)

'Expand legacy parts list to all levels
Dim counter As Integer
Dim k As Long
counter = 1
While counter < partlist.PartsListRows.Count
    For k = counter To partlist.PartsListRows.Count
        Dim orow As PartsListRow
        Set orow = partlist.PartsListRows.Item(k)
        counter = k
        While orow.Expandable And Not (orow.Expanded)
            orow.Expanded = True
            counter = counter + 1
        Wend
    Next k
Wend
orow.Expanded = False

'Dim l As Integer
'Dim i2 As Integer
'Dim j As Integer
'For l = 1 To partlist.PartsListColumns.Count
'    i2 = 3
'    For j = 1 To partlist.PartsListRows.Count
'        oWorkSheet.Cells(j + 3, l).Value = partlist.PartsListRows(j).Item(l).Value
'        oWorkSheet.Cells(j + 3, 10).Value = iSubjectProp.Value
'    Next j
'Next l

Set oWorkSheet = Nothing
Set oWorkbook = Nothing
Set oExcel = Nothing

Call partlist.Delete

oExl.Quit
-------------------

Vielleicht kann mir hierbei jemand helfen??

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

---

Ich habe mein Problem nun doch selber erfolgreich lösen können...

Wie? => siehe nächsten Beitrag "Excel-Zellen als Hyperlink exportiern"

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