---

Hallo Zusammen,

kennt jemand ein Makro, das aus einer .slddrw die dort eingefügte Solidworkstückliste in eine Exceldatei schreibt und diese Datei in einem vorgegeben Pfad ablegt?

Gruß Leo

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

---

Hallo Leo,

ich habe es jetzt nicht getestet, aber Deine Anforderung hört sich so an als ob Du mit einer Makroaufzeichnung fast Deine komplette Lösung erhälst. Hast Du das schon probiert? Eventuell reicht Dir danach eine sehr einfache Anpassung für vollen Erfolg.

gruß Heiko

------------------
Umstieg auf 64bit OS, was meint ihr?
Plauderthread
Umfrage

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

---

Hallo Heiko,

ich bin in der Sache ein Anfänger. Ich habe es mit der Aufnahme des Makros probiert, aber es klappte nicht.

Ich muss die Stüli in der Zeichnung markieren und mit rechtsklick dann über "speichern unter" die Aktion ausführen. Ich glaube das Markieren und rechtskick klappt da nicht, keine Ahnung...

Gruß Leo

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

---

Hallo Leo,

ja hast recht, das Aufzeichnen nimmt leider nur das markieren der Tabelle auf. Ein fertiges Makro dafür kenne ich leider nicht.

gruß Heiko

------------------
Umstieg auf 64bit OS, was meint ihr?
Plauderthread
Umfrage

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

---

Hallo Leo,

Zitat:

---

Original erstellt von gronbi:
Hallo Zusammen,

kennt jemand ein Makro, das aus einer .slddrw die dort eingefügte Solidworkstückliste in eine Exceldatei schreibt und diese Datei in einem vorgegeben Pfad ablegt?

Gruß Leo

---

wie wäre es denn, wenn du das Pferd andersherum aufzäumst??? Mit dem
Makro #5 von Andreas Müller unter http://solidworks.cad.de/mm_boerse.htm
kannst du aus einer BG die gewünschten Werte in Excel einlesen...

------------------
==========
Gruß
Andreas
==========

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

---

Hallo und einen schönen start in den Tag Leo

In der Zeichnung (Ableitung) die Stüli markieren.
Rechte Maus Taste uaf das Tabellenkreuz oben links an der Tabelle
Speichern unter =>Excel Tabelle.

Ansonsten wie beschrieben, das aus der Baugruppe heraus.

Gruß
ThoMay

------------------
Hast du Fragen?
Brauchst du 
Schaut mal nach im Bereich
Alle Foren => Wissenstransfer.
oder
Konstrukteure Online hier bei CAD.de
Richtig fragen - Nettiquette - alte Suchfuntion - Systeminfo - Unities - CAD Freeware - Forenübersicht - 3D Modelle - SolidWorks Videos

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

---

Moin zusammen!
Ich habe das mal gemacht: Man öffnet Excel und hat in SWX eine Zeichnung offen. Excel holt sich die Stückliste in ein Array und schreibt diesen dann in eine Tabelle. Dieses Makro war die Grundlage für unsere Stücklistenkopplung für PSI.

Code:

---

Option Explicit
Const swDocDRAWING = 3
Sub main()
    Dim swApp                  As Object
    Dim swModel                As Object
    Dim swDraw                  As Object
    Dim swView                  As Object
    Dim swTable                As Object
    Dim swFeat                  As Object
    Dim swBomFeat              As Object
    Dim bRet                    As Boolean
    Dim swAnn                  As Object
    Dim nNumCol                As Long
    Dim nNumRow                As Long
    Dim sRowStr                As String
    Dim sTitStr                As String
    Dim i                      As Long
    Dim j                      As Long
    Dim intOutHandle            As Integer
    Dim strOneLine              As String
    Dim SWXBom()                As String
    Dim sZelle                  As String
    Dim ArtikelSpalte          As Integer
    Dim Mass1Spalte            As Integer
    Dim PosSpalte              As Integer
    Dim MengenSpalte            As Integer
    Dim xlApp                  As Object
   
    Set swApp = CreateObject("SldWorks.Application")
    Set swModel = swApp.ActiveDoc
   
    If swModel Is Nothing Then
        MsgBox "Keine Dokumentnte geöffnet."
        End
    End If

    If swModel.GetType <> swDocDRAWING Then
        MsgBox "Das Dokument ist keine Zeichnung."
        End
    End If
   
    Set swDraw = swModel

    Set swView = swDraw.GetFirstView
    Set swTable = swView.GetFirstTableAnnotation
   
     
    If swTable Is Nothing Then
      MsgBox "Die Zeichnung enthält keine Stückliste"
      End
    End If
   
    Do While swTable.Type <> 2
      Set swTable = swTable.GetNext
      If swTable Is Nothing Then
        MsgBox "Die Zeichnung enthält keine Stückliste"
        End
      End If
    Loop
   
    ' Debug.Print swTable.Type
   
    nNumCol = swTable.ColumnCount
    nNumRow = swTable.RowCount
         
    ' Stüli auslesen
    For j = 0 To nNumCol - 1
      sTitStr = Trim(swTable.GetColumnCustomProperty(j))
      If sTitStr = "A-Nr." Then
          ArtikelSpalte = j
          'Debug.Print sTitStr
      ElseIf sTitStr = "LÄNGE" Or sTitStr = "SWRohrLänge" Then
          Mass1Spalte = j
          'Debug.Print sTitStr
      End If
          'Debug.Print sTitStr
      sTitStr = Trim(swTable.Text(0, j))
      If sTitStr = "Pos-Nr." Then
          PosSpalte = j
          'Debug.Print sTitStr
      ElseIf sTitStr = "Menge" Then
          MengenSpalte = j
          'Debug.Print sTitStr
      End If
      'Debug.Print sTitStr
    Next j
    ReDim SWXBom(nNumRow, 4)
    For i = 1 To nNumRow - 1
      SWXBom(i, 1) = swTable.Text(i, PosSpalte)
      'Debug.Print SWXBom(i, 1)
      SWXBom(i, 2) = swTable.Text(i, ArtikelSpalte)
      'Debug.Print SWXBom(i, 2)
      SWXBom(i, 3) = swTable.Text(i, MengenSpalte)
      'Debug.Print SWXBom(i, 3)
      If swTable.Text(i, Mass1Spalte) <> "" Then
        SWXBom(i, 4) = swTable.Text(i, Mass1Spalte)
        If Right(SWXBom(i, 4), 2) = "mm" Then SWXBom(i, 4) = Left(SWXBom(i, 4), Len(SWXBom(i, 4)) - 2)
        'Debug.Print SWXBom(i, 4)
      End If
    Next i
    Set swApp = Nothing
    Set swModel = Nothing
    Set swDraw = Nothing
    Set swView = Nothing
    Set swTable = Nothing
   
    Set xlApp = CreateObject("Excel.Application")
    For i = 1 To nNumRow - 1
      For j = 1 To 4
        Debug.Print SWXBom(i, j)
        Cells(i, j).Value = SWXBom(i, j)
      Next j
    Next i
    Set xlApp = Nothing
End Sub

---

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

---

bom2csv.zip

Hi,

anbei ein von mir modifiziertes Makro welches die Stüli in eine CSV-Datei überführt. Gedacht als Kopplung für unser PPS.

cheers Christian

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

---

Hallo zusammen

Ich bin neu hier im Forum und auch noch ein ziemlicher Anfänger was Makros anbelangt.
Auf der Suche nach einer Lösung um die SolidWorks Stüli in eine formatierte Excel Tabelle einzulesen bin ich auf auf den Code von riesi gestossen.
Ich konnte Ihn soweit anpassen dass ich die komplette Stüli in Excel einlesen kann.
Das einzige Problem dass ich jetzt noch habe ist, dass die Stüli direkt in der ersten Zeile eingefügt wird.
Da ich einen definierten Blattkopf habe möchte ich dass die Stüli erst ab der dritten oder vierten Zeile eingefügt wird. Evtl. kann mir jemand bei diesem Befehl weiterhelfen.

Sub main()
    Dim swApp                  As Object
    Dim swModel                As Object
    Dim swDraw                  As Object
    Dim swView                  As Object
    Dim swTable                As Object
    Dim swFeat                  As Object
    Dim swBomFeat              As Object
    Dim bRet                    As Boolean
    Dim swAnn                  As Object
    Dim nNumCol                As Long
    Dim nNumRow                As Long
    Dim sRowStr                As String
    Dim sTitStr                As String
    Dim a                      As Long
    Dim j                      As Long
    Dim b                      As Long
    Dim intOutHandle            As Integer
    Dim strOneLine              As String
    Dim SWXBom()                As String
    Dim sZelle                  As String
    Dim Benennung              As Integer
    Dim Mass1Spalte            As Integer
    Dim PosSpalte              As Integer
    Dim MengenSpalte            As Integer
    Dim Zeichnungsnummer        As Integer
    Dim Hersteller              As Integer
    Dim HerstellerSachnummer    As Integer
    Dim ErsatzVerschleiss      As Integer
    Dim NormTyp                As Integer
    Dim Material                As Integer
    Dim Lieferant              As Integer
    Dim Kosten                  As Integer
    Dim xlApp                  As Object
 
    Set swApp = CreateObject("SldWorks.Application")
    Set swModel = swApp.ActiveDoc
 
    If swModel Is Nothing Then
        MsgBox "Keine Dokumentnte geöffnet."
        End
    End If

    If swModel.GetType <> swDocDRAWING Then
        MsgBox "Das Dokument ist keine Zeichnung."
        End
    End If
 
    Set swDraw = swModel

    Set swView = swDraw.GetFirstView
    Set swTable = swView.GetFirstTableAnnotation
 
   
    If swTable Is Nothing Then
      MsgBox "Die Zeichnung enthält keine Stückliste"
      End
    End If
 
    Do While swTable.Type <> 2
      Set swTable = swTable.GetNext
      If swTable Is Nothing Then
        MsgBox "Die Zeichnung enthält keine Stückliste"
        End
      End If
    Loop
 
    ' Debug.Print swTable.Type
 
    nNumCol = swTable.ColumnCount
    nNumRow = swTable.RowCount
       
    ' Stüli auslesen
    For j = 0 To nNumCol - 1
      sTitStr = Trim(swTable.GetColumnCustomProperty(j))
      If sTitStr = "Benennung" Then
          Benennung = j
          'Debug.Print sTitStr
      ElseIf sTitStr = "Zeichnungsnummer" Then
          Zeichnungsnummer = j
          'Debug.Print sTitStr
      ElseIf sTitStr = "Lieferant" Then
          Lieferant = j
          'Debug.Print sTitStr
      ElseIf sTitStr = "Norm-Typ" Then
          NormTyp = j
          'Debug.Print sTitStr
      ElseIf sTitStr = "Material" Then
          Material = j
          'Debug.Print sTitStr
      ElseIf sTitStr = "Hersteller" Then
          Hersteller = j
          'Debug.Print sTitStr
      ElseIf sTitStr = "Hersteller Sachnummer" Then
          HerstellerSachnummer = j
          'Debug.Print sTitStr
      ElseIf sTitStr = "E/V" Then
          ErsatzVerschleiss = j
          'Debug.Print sTitStr
      ElseIf sTitStr = "Kosten" Then
          Kosten = j
          'Debug.Print sTitStr
      End If
          'Debug.Print sTitStr
      sTitStr = Trim(swTable.Text(0, j))
      If sTitStr = "Pos." Then
          PosSpalte = j
          'Debug.Print sTitStr
      ElseIf sTitStr = "Menge" Then
          MengenSpalte = j
          'Debug.Print sTitStr
      End If
      'Debug.Print sTitStr
    Next j
    ReDim SWXBom(nNumRow, 11)
    For a = 0 To nNumRow - 0
      SWXBom(a, 1) = swTable.Text(a, PosSpalte)
      'Debug.Print SWXBom(i, 1)
      SWXBom(a, 2) = swTable.Text(a, MengenSpalte)
      'Debug.Print SWXBom(i, 2)
      SWXBom(a, 3) = swTable.Text(a, Benennung)
      'Debug.Print SWXBom(i, 3)
      SWXBom(a, 4) = swTable.Text(a, Zeichnungsnummer)
      'Debug.Print SWXBom(i, 4)
      SWXBom(a, 5) = swTable.Text(a, HerstellerSachnummer)
      'Debug.Print SWXBom(i, 5)
      SWXBom(a, 6) = swTable.Text(a, ErsatzVerschleiss)
      'Debug.Print SWXBom(i, 6)
      SWXBom(a, 7) = swTable.Text(a, NormTyp)
      'Debug.Print SWXBom(i, 7)
      SWXBom(a, 8) = swTable.Text(a, Material)
      'Debug.Print SWXBom(i, 8)
      SWXBom(a, 9) = swTable.Text(a, Hersteller)
      'Debug.Print SWXBom(i, 9)
      SWXBom(a, 10) = swTable.Text(a, Lieferant)
      'Debug.Print SWXBom(i, 10)

      If swTable.Text(a, Kosten) <> "" Then
        SWXBom(a, 11) = swTable.Text(a, Kosten)
        If Right(SWXBom(a, 11), 2) = "Kosten" Then SWXBom(a, 2) = Left(SWXBom(a, 11), Len(SWXBom(a, 11)) - 2)
        'Debug.Print SWXBom(i, 4)
      End If
    Next a
    Set swApp = Nothing
    Set swModel = Nothing
    Set swDraw = Nothing
    Set swView = Nothing
    Set swTable = Nothing
   
   
    Set xlApp = CreateObject("Excel.Application")
   
    For a = 1 To nNumRow - 2
      For j = 1 To 11
       
        Debug.Print SWXBom(a, j)
        Cells(a, j).Value = SWXBom(a, j)
      Next j
    Next a
   
    Set xlApp = Nothing
End Sub

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

---

Hallo Cuprar,

Doppel-Postings sind allgemein in Foren nicht gern gesehen! Deine Frage wird nicht schneller beantwortet, nur weil du sie öfter stellst.

cheers Christian

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

---

Hallo Cuprar,

du musst in der Ausgabeschleife, wo du die SWX-Tabelle an Excel übergibst,
den Zeilenzähler um deine drei oder vier Zeilen erhöhen.

Code:

---

    For a = 1 To nNumRow - 2
      For j = 1 To 11
     
        Debug.Print SWXBom(a, j)
        Cells(a+3, j).Value = SWXBom(a, j)
      Next j
    Next a

---

------------------
==========
Gruß
Andreas
==========

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

---

Gibt es so ein Makro auch für die Zuschnittsliste?

------------------
Gruß Stefan

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

---

Stueckliste_in_CSV_Schreiben.swp.txt

Hallo Zusammen,
anbei ein Makro welches wir verwenden um die Solid Stückliste in eine CSV Datei zu schreiben.
Im Makro muss nur der Speicherpfad angepasst werden.
Gruß
Stefan

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

---

Danke, werde ich mir mal ansehen.

Habe in der Zwischenzeit auch noch ein Beispiel gefunden:
http://help.solidworks.com/2013/English/api/sldworksapi/get_solid_bodies_from_cut-list_folders_and_get_custom_properties_example_vb.htm

------------------
Gruß Stefan

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

---

Hallo Stefan,

danke, dass du das Makro zur Verfügung stellst - funktioniert super - hast du vielleicht auch eine Ahnung wie man anstatt .csv das Ganze als xls bzw. xlsx exportieren kann bzw. in das Makro ein einen weiteren Schritt einbaut der die exportierte CSV- Datei gleich weiter verarbeitet in das XLS-Format?
Reihenfolge: .sldbomtbt zu .csv danach .xls)

Gruß René

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

---

Hallo René,
das habe ich leider auch noch nicht hin bekommen die Solidworks Stückliste direkt in Excel zu exportieren, deswegen haben wir den Schritt über die CSV Datei. Bei uns ist die Vorgehensweise so, beim Freigeben der Zeichnung durch das PDM System wird die Stückliste in eine CSV Datei geschrieben und auf einem Netzwerkpfad abgelegt. Für die Arbeitsvorbereitung haben wir uns dann in Excel ein Makro geschrieben welches die CSV Datei in Excel einliest. Damit sind wir gut zufrieden und es klappt auch hervorragend.

Gruß Stefan

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

---

Hallo Leute!

wie ihr ja wisst, habe ich keine Ahnung vom Programmieren,

trotzdem konnte ich ausden oben geposteten Macros mir eins für unsere Stückliste zusammenschustern.
Ich habe nur noch einen Fehler darin,
ich komme nicht auf dei Variable für die Stückzahlen,
vermutlich liegt es daran, das vor meiner Zeit mit englischen Vorlagen begonnen wurde.
"Menge" funktioniert nicht und ich komm nicht drauf, welche Variable es sonst ist...

ahh so nah am Zeil und das ohne Kenntnisse  

edit:
mein Dank an das support Team von DPS!
Die haben mein Missverständnis aufgelöst,
einfach die Bezeichnung in der Spaltenüberschrift verwenden und es geht, ich Idiot habe die interne Bezeichnung von SWX dahinter vermutet und natürlich immer was falsches raus bekommen 
edit ende

Dake für eure Hilfe!
Martin

------------------
bin derzeit leider nicht unter Skype erreichbar  

[Diese Nachricht wurde von dopplerm am 11. Aug. 2014 editiert.]

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

---

Hallo,

ich weiß dieser Betrag ist schon etwas älter, aber ich habe ein kleines Problem welches genau zu diesem Thema passt.
Ich habe es soweit geschafft, dass alle Inhalte der Stückliste exportiert werden.

Nur Positionsnummer und Menge werden nicht richtig angezeigt.
Ich gehe mal davon aus, dass das an 'GetColumnCustomProperty' liegen könnte!?

Kann mir hier bitte jemand weiterhelfen.

LG Gleichi

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

---

Hallo Gleichi,
hast du meinen vorigen Beitrag gelesen,
vielleicht löst das dein Problem.

oder was wird angezeigt?
kommt kein Eintrag
kommen falsche Werte?

lg Martin

------------------
ich spiel noch immer gern mit Bauklötzen, nur sind sie jetzt teurer 

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

---

Stuckliste.jpg

Hallo Martin,

danke für deine Rückmeldung.
Es werden nur Daten abgerufen welche in den benutzerdefinierten Eigenschaften stehen.
Jedoch keine SWX-Standardwerte Wie eben Menege und Positionsnummer.

Wenn kein Wert gefunden wird, wird der Wert 1-x fortlaufend eingetragen. Schicke gleich noch Screenshots

Sub main()
    Dim swApp                  As Object
    Dim swModel                As Object
    Dim swDraw                  As Object
    Dim swView                  As Object
    Dim swTable                As Object
    Dim swFeat                  As Object
    Dim swBomFeat              As Object
    Dim bRet                    As Boolean
    Dim swAnn                  As Object
    Dim nNumCol                As Long
    Dim nNumRow                As Long
    Dim sRowStr                As String
    Dim sTitStr                As String
    Dim a                      As Long
    Dim j                      As Long
    Dim b                      As Long
    Dim intOutHandle            As Integer
    Dim strOneLine              As String
    Dim SWXBom()                As String
    Dim sZelle                  As String
    Dim spalteA                 As Integer
    Dim spalteB                 As Integer
    Dim spalteC                 As Integer
    Dim spalteD                 As Integer
    Dim spalteE                 As Integer
    Dim spalteF                 As Integer
    Dim spalteG                 As Integer
    Dim spalteH                 As Integer
    Dim spalteI                 As Integer
    Dim spalteJ                 As Integer
    Dim spalteK                 As Integer
    Dim spalteL                 As Integer
    Dim spalteM                 As Integer
    Dim spalteN                 As Integer
    Dim spalteO                 As Integer
    Dim strPathExcel1           As String
    Dim xlApp                  As Object
 
    Set swApp = CreateObject("SldWorks.Application")
    Set swModel = swApp.ActiveDoc
 
    If swModel Is Nothing Then
        MsgBox "Keine Dokumentnte geöffnet."
        End
    End If

    If swModel.GetType <> swDocDRAWING Then
        MsgBox "Das Dokument ist keine Zeichnung."
        End
    End If
 
    Set swDraw = swModel

    Set swView = swDraw.GetFirstView
    Set swTable = swView.GetFirstTableAnnotation
 
   
    If swTable Is Nothing Then
      MsgBox "Die Zeichnung enthält keine Stückliste"
      End
    End If
 
    Do While swTable.Type <> 2
      Set swTable = swTable.GetNext
      If swTable Is Nothing Then
        MsgBox "Die Zeichnung enthält keine Stückliste"
        End
      End If
    Loop
 
    ' Debug.Print swTable.Type
 
    nNumCol = swTable.ColumnCount
    nNumRow = swTable.RowCount
       
    ' Stüli auslesen
    For j = 0 To nNumCol - 1
      sTitStr = Trim(swTable.GetColumnCustomProperty(j))
      If sTitStr = "POS-NR." Then
          spalteA = j
          'Debug.Print sTitStr
      ElseIf sTitStr = "STÜCK" Then
          spalteB = j
          'Debug.Print sTitStr
      ElseIf sTitStr = "Benennung" Then
          spalteC = j
          'Debug.Print sTitStr
      ElseIf sTitStr = "SW-Dateiname" Then
          spalteD = j
          'Debug.Print sTitStr
      ElseIf sTitStr = "Änderungsindex" Then
          spalteE = j
          'Debug.Print sTitStr
      ElseIf sTitStr = "Oberflächenbehandlung" Then
          spalteF = j
          'Debug.Print sTitStr
      ElseIf sTitStr = "Fertigunstyp" Then
          spalteG = j
          'Debug.Print sTitStr
      ElseIf sTitStr = "Wärmebehandlung" Then
          spalteH = j
          'Debug.Print sTitStr
      ElseIf sTitStr = "Verschleiß" Then
          spalteI = j
          'Debug.Print sTitStr
      ElseIf sTitStr = "Material" Then
          spalteJ = j
          'Debug.Print sTitStr
      ElseIf sTitStr = "Bezeichnung" Then
          spalteK = j
          'Debug.Print sTitStr
      ElseIf sTitStr = "Artikelnummer" Then
          spalteL = j
          'Debug.Print sTitStr
      ElseIf sTitStr = "Lieferant" Then
          spalteM = j
          'Debug.Print sTitStr
      ElseIf sTitStr = "Fläche" Then
          spalteN = j
          'Debug.Print sTitSt
      ElseIf sTitStr = "Abmessung" Then
          spalteO = j
          'Debug.Print sTitStr
      End If
      'Debug.Print sTitStr
    Next j
   
   
    ReDim SWXBom(nNumRow, 16)
    For a = 0 To nNumRow - 0
    SWXBom(a, 1) = swTable.Text(a, spalteA)
      'Debug.Print SWXBom(i, 1)
    SWXBom(a, 2) = swTable.Text(a, spalteB)
      'Debug.Print SWXBom(i, 2)
    SWXBom(a, 3) = swTable.Text(a, spalteC)
      'Debug.Print SWXBom(i, 3)
    SWXBom(a, 4) = swTable.Text(a, spalteD)
      'Debug.Print SWXBom(i, 4)
    SWXBom(a, 5) = swTable.Text(a, spalteE)
      'Debug.Print SWXBom(i, 5)
    SWXBom(a, 6) = swTable.Text(a, spalteF)
      'Debug.Print SWXBom(i, 6)
    SWXBom(a, 7) = swTable.Text(a, spalteG)
      'Debug.Print SWXBom(i, 7)
    SWXBom(a, 8) = swTable.Text(a, spalteH)
      'Debug.Print SWXBom(i, 8)
    SWXBom(a, 9) = swTable.Text(a, spalteI)
      'Debug.Print SWXBom(i, 9)
    SWXBom(a, 10) = swTable.Text(a, spalteJ)
      'Debug.Print SWXBom(i, 10)
    SWXBom(a, 11) = swTable.Text(a, spalteK)
      'Debug.Print SWXBom(i, 11)
    SWXBom(a, 12) = swTable.Text(a, spalteL)
      'Debug.Print SWXBom(i, 12)
    SWXBom(a, 13) = swTable.Text(a, spalteM)
      'Debug.Print SWXBom(i, 13)
    SWXBom(a, 14) = swTable.Text(a, spalteN)
      'Debug.Print SWXBom(i, 14)
    SWXBom(a, 15) = swTable.Text(a, spalteO)
      'Debug.Print SWXBom(i, 15)
    Next a
   
   
    Set swApp = Nothing
    Set swModel = Nothing
    Set swDraw = Nothing
    Set swView = Nothing
    Set swTable = Nothing
   
   
    Set xlApp = CreateObject("Excel.Sheet")
    xlApp.Application.Visible = True
   
    For a = 1 To nNumRow - 2
      For j = 1 To 15
       
        Debug.Print SWXBom(a, j)
        xlApp.Application.Cells(a, j).Value = SWXBom(a, j)
      Next j
    Next a

Set xlApp = Nothing

   
End Sub

[Diese Nachricht wurde von gleichi86 am 20. Dez. 2018 editiert.]

Anbei ein Screenshot der Excel Datei. Die ersten beiden Spalten werden nicht abgerufen (1 Pos.Nr 2 Menge)

[Diese Nachricht wurde von gleichi86 am 21. Dez. 2018 editiert.]

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

---

Hallo gleichi86,

Ich habe den Code für mich angepasst, das funktioniert auch super, jedoch verschwindet die Excel Datei nach dem ausführen.
wie machst du das? speicherst du die irgendwo?

Grüße CADUserMFP

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

---

StuecklisteinEXCELSchreiben.swp.txt

Hallo Zusammen,
anbei ein erweitertes Makro welches wir verwenden um die Solid Stückliste in eine CSV Datei zu schreiben und dann nach Excel zu überführen.
Im Makro muss nur der Speicherpfad angepasst werden. Das Makro ist an unsre Bedürfnisse angepasst, lässt sich aber erweitern. Wichtig ist das unter Verweisen die Microsoft EXCEL 14.0 Object Libaray ( oder höher ) aktiviert ist.
Gruß
Stefan

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

---

ACHTUNG! Sie antworten auf einen Beitrag der älter als 1 Jahr ist!
Entschuldigung, dass ich dieses alte Thema nochmal ausbuddeln muss.

Hallo zusammen,

wir würden dieses Makro quasi genau so auch gerne verwenden.
Der einzige Unterschied ist, dass wir am Ende der SW Stückliste eine ausgeblendete Spalte haben, welche mit ausgelesen werden soll.
Ich habe schon versucht das Makro so zu modifizieren, dass bevor das auslesen beginnt alle Spalten eingeblendet werden. Das hat aber leider nicht funktioniert.
Habe auch leider keine VBA Erfahrung.

Ist das möglich?

Danke schonmal vorab.

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

---

Hallo,

nicht direkt hilfe zu deiner Frage.

Wir nehmen das Tool SWXHelper, der kann das.
https://swxtools.de/downloads/

Mit BOM-2-Excel kannst du Stücklisten exportieren.

------------------
Form follows f*cking function.

[Diese Nachricht wurde von jimi1st am 10. Apr. 2024 editiert.]

[Diese Nachricht wurde von jimi1st am 10. Apr. 2024 editiert.]

[Diese Nachricht wurde von jimi1st am 10. Apr. 2024 editiert.]

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

---

Danke, aber kommt leider nicht in Frage.
Das Makro muss im Anschluss noch erweitert werden, wenn der Export ausgeblendeter Spalten funktioniert.

[Diese Nachricht wurde von Rene.O. am 10. Apr. 2024 editiert.]

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

---

Hallo Rene,

ersetzte mal die ColumnCount Property (ITableAnnotation) durch die TotalColumnCount Property (ITableAnnotation) um alle Spalten auch die ausgeblendeten für die Schleife zu erfassen und dann noch die veraltete .text Property (ITableAnnotation) durch die neuere .text2 Property (ITableAnnotation) mit der entsprechenden Zusatzvariablen "True" in der Schleife ersetzten um auch die ausgeblendete Zellen auszulesen.

PS:Grundlage war das letzte Macro von Stefan, falls du noch andere Anpassungen gemacht hast könnten diese natürlich auch noch irgendwie quer schießen, mit den oberen Anpassungen werden die Zellen auch nicht extra eingeblendet.

Gruß
Bernd

------------------
--- Man muß nicht alles wissen, man muß nur wissen wo es steht ---

Staatlich anerkannte Deutschniete  

[Diese Nachricht wurde von bk.sc am 12. Apr. 2024 editiert.]

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

---

Hallo Bernd,

genau das habe ich gesucht!
Vielen Dank

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