---

Hallo!

Ich habe da gerade ein Problem...(wer meine anderen Beiträge gelesen hat, weiß auch genau welches  )

Ich möchte mit Hilfe eines Macros die Tabelle aus einer Baugruppe oder einem Teil speichern.

Ich konnte schon erfolgreich etwas in der SWX Hilfe finden:

Code:

---

'-----------------------------------

'

' Preconditions: Document that has a design table is open

'

' Postcoditions: Design table is saved as a Microsoft

'                Excel file named DesignTable.xls

'

'------------------------------------

Option Explicit

Dim swApp As SldWorks.SldWorks

Sub main()

    Dim swModel        As SldWorks.ModelDoc2

    Dim swDesignTable  As SldWorks.DesignTable

    Dim strFileName    As String

    Dim bValue          As Boolean

   

    Set swApp = Application.SldWorks

    Set swModel = swApp.ActiveDoc

   

    Set swDesignTable = swModel.GetDesignTable

   

    swDesignTable.Attach

   

    bValue = swDesignTable.SaveAsExcelFile(swApp.GetCurrentMacroPathFolder & "\DesignTable.xls")

   

    ' Do not detach if table is not active

    If (Not (swDesignTable.IsActive = False)) Then

        swDesignTable.Detach

    End If

End Sub

---

Nun möchte ich gerne, das der Dateiname nicht immer DesignTable.xls ist, sondern der dateiname von der Teiledatei (ob nun die alte Endung mit dranbleibt oder nicht ist mir egal) eingefügt wird.

Leider habe ich noch viel zu wenig Ahnung von der Macroprogrammierung. Kann mir da jemand hefen?

Gruß

Mixie

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

---

Hallo Mixie,

dieser Snippet zeigt dir wie du in der SolidWorks-VBA einen Dokumentnamen ermittelst und in seine Bestandteile zerlegen kannst.

------------------
Mfg Daniel

www.MySldWorks.de - SolidWorks API Snippets

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

---

Hallo!

Danke für den Link. Habe es direkt umgesetzt. Einfach alles kopieren.

Ich habe nur die Zeile

Code:

---

sPdfPfad = sDirectory & "\" & sFilenameWithoutExtension & ".pdf"

---

in

Code:

---

sxlsxPfad = sDirectory & "\" & sFilenameWithoutExtension & ".xlsx"

---

geändert.

Vielen Dank für die schnelle Hilfe!!

gruß

Mixie

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