---

Guten Tag alle miteinander,

nach mehrstündigem Suchen habe ich leider nichts gefunden und benötige deshalb eure Hilfe 

Wie kann ich in Solidworks VBA ein Speichern Unter Fenster öffnen lassen und den gefwählten Pfad samt Dateiname als String zurückgeben lassen?

Danke im voraus für jede Art von Hilfe 

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

---

Hallo,
typische Routine am Anfang eines Makros könnte so aussehen.

Code:

---

Dim swApp          As SldWorks.SldWorks
Dim swModel        As SldWorks.ModelDoc2
Dim longstatus      As Long
Dim longwarnings    As Long
Dim Filename        As String
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc

If swApp.ActiveDoc.GetPathName = "" Then
    swModel.Save3 swSaveAsOptions_Copy, longstatus, longwarnings
    End
End If

Filename = swModel.GetPathName

---

Andere Speichervarianten habe ich hier beschrieben.

http://ww3.cad.de/foren/ubb/Forum2/HTML/028920.shtml#000001

Grüße, Andi

------------------
Hast du kein Problem?
Such dir eins. ( Und löse es )

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

---

Hallo Steven

Falls es dir nur um das Speichern geht und den Pfad nicht weiter benötigst kannst du das mit dem SWX-Speicherndialog machen.

Code:

---

Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2

Sub main()

    Set swApp = Application.SldWorks
    Set swModel = swApp.ActiveDoc
    swModel.Extension.RunCommand swCommands_SaveAs, Empty

End Sub

---

Wenn du aber den Pfad weiter benötigst, muss du den Dialog mit der Winwos-Api aufrufen.
Wie das geht, findest du zum Beispiel hier -> https://forum.solidworks.com/thread/68795

Gruss Andreas

------------------
21 ist nur die halbe Antwort.

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

---

hey,

konnte es endlich probieren, funktioniert super, vielen Dank 

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

---

funktioniert beides so wie ich es brauche, danke euch 

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