---

Hallo zusammen,

ich komme hier leider nicht ganz weiter. Ich möchte das das Makro mir unter Einhalt einer vordefinierten Bezeichnung eine pdf erstellt. Hier soll aber auch ein bestimmter Pfad als Vorauswahl dienen. Bezeichnung spuckt er korrekt aus, den Pfad aber nicht. Außerdem kommt die Meldung "Falscher Parameter". Vielleicht kann mir jemand weiter helfen 

Public Sub TestFileDialog()

Dim oDoc As Document
    Set oDoc = ThisApplication.ActiveDocument

    'Eigenschaften definieren
    Dim customPropSet As PropertySet
    Set customPropSet = oDoc.PropertySets.Item("Inventor User Defined Properties")
    Dim customPropItemCode1 As Property
    Set customPropItemCode1 = customPropSet.Item("Title")
    Dim customPropItemCode2 As Property
    Set customPropItemCode2 = customPropSet.Item("Revision")
    Dim Titel
    Titel = customPropItemCode1.Value
    Dim Revi
    Revi= customPropItemCode2.Value
   
    ' Create a new FileDialog object.
    Dim oFileDlg As FileDialog
    Call ThisApplication.CreateFileDialog(oFileDlg)
   
    oFileDlg.FileName = Titel & "_" & Revi
    ' Define the filter to select part and assembly files or any file.
    oFileDlg.Filter = "Inventor Files (*.pdf"
   
       

    ' Define the part and assembly files filter to be the default filter.
    oFileDlg.FilterIndex = 1

    ' Set the title for the dialog.
    oFileDlg.DialogTitle = "Speichern der Datei"

    ' Set the initial directory that will be displayed in the dialog.
    oFileDlg.InitialDirectory = "C:\Users\XX"

    ' Set the flag so an error will be raised if the user clicks the Cancel button.
    oFileDlg.CancelError = True

    ' Show the open dialog.  The same procedure is also used for the Save dialog.
    ' The commented code can be used for the Save dialog.
    On Error Resume Next
    'oFileDlg.ShowOpen
    oFileDlg.ShowSave
   

    ' If an error was raised, the user clicked cancel, otherwise display the filename.
    If Err Then
        MsgBox "Speichern des Dokumentes abgebrochen"
    ElseIf oFileDlg.FileName <> "" Then
        MsgBox "File " & oFileDlg.FileName & " was selected."
    End If
End Sub

Vielen Dank! 

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

---

Starbuzz.PNG

Hallo

So mal auf die Schnelle:
- In der Zeile oFileDlg.Filter fehlt am Ende eine Klammer
- In der Zeile oFileDlg.InitialDirectory verweist ud auf den user XX, ich nehme mal an, den gibts nicht? Also gibts auch das Verzeichnis XX nicht? 

In welcher Zeile kommt den die Fehlermeldung?

Gruss

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

---

Moin

Da fehlt nicht nur eine Klammer. Die Zeile sollte lauten:

Code:

---

oFileDlg.Filter = "PDF Files (*.pdf)|*.pdf"

---

Dann erscheint auch der Dateityp korrekt im Namensfeld. 

------------------
MfG
Ralf

RKW Solutions GmbH
www.RKW-Solutions.com

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

---

Vielen Dank euch beiden! Die Fehlermeldung ist weg. Trotzdem ploppt nicht der vorausgewählte Speicherordner auf sondern immer wieder derselbe - egal welchen ich auch vordefiniere  
Klappt es denn bei euch? Ich habe mit "XX" den User gecancelt  

edit*
Also selbst wenn ich im Pfad den Download Ordner vordefiniere , wird beim Ausführen des Makros nicht der Ordner angezeigt. Nutze ich
FileDlg.ShowOpen

Dann zeigt er den vordefinierten Ordner an.
Bei
oFileDlg.ShowSave
jedoch nicht

[Diese Nachricht wurde von Starbuzz am 07. Jul. 2023 editiert.]

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

---

Wenn ich in der Zeile mit dem .FileName den Pfad mit angebe und InitialDirectory weg lasse, dann klappt es bei mir.

Code:

---

oFileDlg.FileName = "C:\temp\" & Titel & "_" & Revi

---

Aus der Hilfe zum FileDialog.InitialDirectory Property

Zitat:

---

The initial directory displayed in the file dialog. This can also be set with the filename property.

---

Warum das nun so ist (und bei .ShowOpen anders), keine Ahnung

------------------
Gruß KraBBy

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

---

Wow super 
Es hat geklappt!
Vielen Dank! 

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