---

Hallo, mit meiner Beispiel Makro speichere ich die Zeichnung bisher in ein bestimmtes Verzeichniss (C:\Test) als pdf ab.

Code:

---

Dim swApp          As SldWorks.SldWorks
Dim swModel        As SldWorks.ModelDoc2
Dim swDraw          As SldWorks.DrawingDoc
Dim swCustProp      As CustomPropertyManager
Dim valOut          As String
Dim resolvedValOut  As String
Dim Filepath        As String
Dim FileName        As String

Sub main()

Set swApp = Application.SldWorks
Set swDraw = swApp.ActiveDoc

' Check to see if a drawing is loaded.

If (swDraw Is Nothing) Or (swDraw.GetType <> swDocDRAWING) Then

swApp.SendMsgToUser ("To be used for drawings only, Open a drawing first and then TRY!")

' If no model currently loaded, then exit
Exit Sub

End If

Set swView = swDraw.GetFirstView
Set swView = swView.GetNextView
Set swModel = swView.ReferencedDocument
Set Sheet = swApp.ActiveDoc.GetCurrentSheet

Set swCustProp = swModel.Extension.CustomPropertyManager("")

swCustProp.Get2 "PD-Nr.", valOut, resolvedValOut 'Change the custom property name here

Filepath = "C:\Test" ' Change File Path here
Filepath = Filepath + "\"

FileName = Left(swDraw.GetTitle, Len(swDraw.GetTitle) - 9)

swDraw.SaveAs (Filepath + FileName + resolvedValOut + ".pdf") 'Change the custom property text here

End Sub

---

In den Test Ordner habe ich folgende 3 Unter Ordner angelegt

01_Bestellung_Blech_Nr_0015600156

02_Bestellung_Rohr_Nr_00159

03_Bestellung_Stange_Nr_00186

Ziel soll es sein die pdf in einem Ordner abzuspeichern, die ständig umbenannt wird, nur die Nummer wird geändert (01_Bestellung_Blech_Nr_XXXXX)

Wie kann ich in VBA Makro sagen er soll die pdf in 01_Bestellung_Blech_Nr_ abspeichern egal welche Nr dahinten dran steht?

mit * funktionierts leider nicht

Code:

---

Filepath = "C:\Test\01_Bestellung_Blech_Nr_*" ' Change File Path here
Filepath = Filepath + "\"

---

was mache ich da falsch? 

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

---

ich glaub, du solltest mit dir den Pfad vervollständigen und dann weitermachen.
Syntax passt nicht aber ungefähr so:
filepath = dir (c:\...*)
dann noch "\" und den Dateinamen dranbasteln ...

Gruß, Christian

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

---

Hallo Christian,

den Dateinamen dran bastteln ist nicht mein Problem.
Ich will in unvollständigen Pfad abspeichern, somit müsste man jedes mal in Makro die Nr. ändern.

Vorgegeben ist nur ein Teil dieser Pfad C:\Test\01_Bestellung_Blech_Nr_

Mit dir () funktioniert nicht.

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

---

nach vba-hilfe würde ich meinen:
Filepath = Dir("C:\Test\01_Bestellung_Blech_Nr_*")
sollte den Pfad liefern ...
evtl muss noch dran, dass es ein Verzeichnis ist ...
probier doch mal
Filepath = Dir("C:\Test\01_Bestellung_Blech_Nr_*", vbDirectory)

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

---

Hi Gemeinde!
Für mich riecht das nach einer sogenannten Erstbefüllung mit Laufwerk, Pfad und Dateiname, die individuell erweitert werden kann.
Dann schlage ich vor, geh so vor wie im Makro (bei Makromania) EXPORT_AS von Thomas Weith
Pathnamebox mit Erstbefüllung
Filenamebox mit Erstbefüllung
in einer Abfrage, die kann man dann individuell erweitern und ist flexibel in Pfad und Filenamen.
Good Luck, H.

------------------
Hartmut

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

---

@Christian_W
habs probiert, da passiert leider da nicht..

@HartmutT
ich kann den Makro nicht finden, was du mir vorschlägst,
wichtig ist es sollte aus jedem Fall kompatibel mit SW2016 sein

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

---

also bei mir geht
Filepath = Dir("C:\Test\01_*", vbDirectory) + "\"
debug.print Filepath

wenn das Verzeichnis schon da ist ...

Gruß, Christian

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

---

Sorry, Kleinigkeit übersehen.

Dir liefert nur den Unterverzeichnisnamen zurück, nicht den kompletten Pfad.
d.h. den musst du jedesmal noch zusammensetzen.

also müsste gehen:
vorpfad = "C:\Test\"
filepath = vorpfad + dir(vorpfad + "01*", vbDirectory) + "\"

Gruß, Christian

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

---

Klasse es geht! THX Christian!!!

Was ich jetzt noch festgestellt habe, er überschreibt die vorhandene pdf/dxf einfach. Kann VBA mir keine Rückmeldung geben falsch die pdf doch schon gibt (abbrechen ja/nein)? 

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

---

Hallo,

verwendest du in der SaveAs Method (IModelDocExtension) die Option swSaveAsOptions_Silent? Weil diese Unterdrückt meines Wissens u.a. diese Meldung, evtl. hier mal die Option swSaveAsOptions_Copy probieren.

Alternativ könntest du auch vorher einfach überprüfen ob die Datei vorhanden ist bevor du das Speichern durchführst.

Gruß
Bernd

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

Staatlich anerkannte Deutschniete 

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

---

Zitat:

---

Kann VBA mir keine Rückmeldung geben falsch die pdf doch schon gibt (abbrechen ja/nein)?

---

entweder über die Optionen - siehe Bernds antwort
oder wieder mit "dir" ungefähr so
if not dir(fullpdfpathandfilename) = "" then
  umbenennen als backup irgendwie mit Index oder so ...
endif
saveas ...

Gruß, Christian

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

---

Naja..
ich überprüfe vorher einfach nochmal nach ob die Dateien vorhanden sind.
Problem meine Codes werden einfach zu lang und unübersichtlich, das möchte ich verhindern... da VBA noch eine neue Welt für mich ist.

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