---

Hallo!
Tut mir jetzt schon fast leid, das ich euch schon wieder mit der Stückliste nerven muss 
Möchte gern die Daten aus der Stückliste in eine externe Excel-Datei eintragen.Komm aber nicht an die Stückliste ran(bin kein VBA-Profi).

Code:

---

   
    Dim swApp As Object
    Dim swModel As ModelDoc2
    Dim swDraw As DrawingDoc
    Dim swSheet As Sheet
    Dim swView As view
    Dim swActiveView As view
    Dim BomTable As BomTable
   
    Set swApp = Application.SldWorks
    Set swModel = swApp.ActiveDoc
    Set swDraw = swModel
    Set swSheet = swDraw.GetCurrentSheet
    Set swActiveView = swDraw.ActiveDrawingView
    Set swView = swDraw.GetFirstView
    Set BomTable = swView.GetBomTable()

    MsgBox BomTable.GetRowCount()

---

Jetzt bekomm ich in der letzten Zeile immer den Fehler "Objektvariable oder With-Blockvariable nicht festgelegt"
Was mach ich denn falsch?

MfG
Stephan

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

---

Schau doch mal in der API-Hilfe nach: 

Remarks

This method only returns the visible rows in the BOM table.

Before you use any of the BomTable methods, activate the BOM Table using BomTable::Attach. After you finish getting BOM data, use BomTable: etach to deactivate the table.

This method returns 0 if the BOM is obscured, which may occur when debugging a macro. This is a quirk in Microsoft Excel, which is used by SolidWorks for the BOM functionality

Zunächst mußt Du BomTable::Attach aufrufen um Zugriff auf die Tabelle zu erlangen.

Gruß,
Markus

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

---

Hallo Stephan,

wenn es sich bei der Stückliste um eine SWX-Stückliste handelt (und nicht um eine Excel-Stüli) dann suche doch nach dem BOM-Feature und werte darüber aus.
So habe ich das gemacht:

Code:

---

    Dim swApp As Object
    Dim swModel As ModelDoc2
    Dim swDraw As DrawingDoc
   
    Set swApp = Application.SldWorks
    Set swModel = swApp.ActiveDoc
    Set swDraw = swModel
   
Dim swFeat As SldWorks.Feature
Dim swBomFeat As SldWorks.BomFeature
Dim vTableArr As Variant
Dim swTable As SldWorks.TableAnnotation
   
Set swFeat = swDraw.FirstFeature
Do While Not swFeat Is Nothing
    If "BomFeat" = swFeat.GetTypeName Then
        Set swBomFeat = swFeat.GetSpecificFeature2
        vTableArr = swBomFeat.GetTableAnnotations
        Set swTable = vTableArr(0)
'----zeilenweises Auslesen der swTable------------------------------
        For ZReihe = 1 To swTable.RowCount - 1
            For ZSpalte = 0 To swTable.ColumnCount - 1
MsgBox "Spalte: " & swTable.GetColumnTitle(ZSpalte) & _
" / " & "Zeile: " & ZReihe & _
" / " & "Inhalt: " & swTable.Text(ZReihe, ZSpalte)
            Next ZSpalte
If ZReihe = 2 Then Exit For '<--- nur wegen der vielen MsgBoxen..:-)
        Next ZReihe
'------------------------------------------------------------------
    End If
    Set swFeat = swFeat.GetNextFeature
Loop

---

Viele Grüsse
Andreas.....  

[Diese Nachricht wurde von ABarth am 28. Feb. 2006 editiert.]

[Diese Nachricht wurde von ABarth am 28. Feb. 2006 editiert.]

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

---

Danke für die 2 Antworten. Leider ist es eine Excel-Stückliste.

@mkkk: Es kommt leider immer noch der gleiche Fehler.

Hat denn das noch niemand gemacht?

Gruß
Stephan

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

---

Zitat:

---

Original erstellt von Stephan86:
... Leider ist es eine Excel-Stückliste.

---

in diesem Fall solltest du mal hier http://ww3.cad.de/foren/ubb/Forum2/HTML/007188.shtml
nachlesen, vielleicht hilft dir das weiter ...

------------------
mfg uc

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