Thema Datum  Von Nutzer Rating
Antwort
Rot VBA PDF speichern funktioniert nicht
05.05.2021 19:41:37 Dirk
*****
Solved
06.05.2021 10:08:17 Dirk
Solved
25.06.2021 20:57:35 Peter
NotSolved
28.06.2021 07:01:41 Peter
NotSolved

Ansicht des Beitrags:
Von:
Dirk
Datum:
05.05.2021 19:41:37
Views:
343
Rating: Antwort:
 Nein
Thema:
VBA PDF speichern funktioniert nicht
Hallo liebes Forum,

ich möchte Daten aus meiner Excel-Liste in ein PDF Dokument übernehmen und es dann unter einem neuen Namen speichern. Dazu habe ich mir hier im Forum schon einiges durchgelesen bzw. einiges an Codeschnipseln geklaut ;-)

Wenn ich mein Skript in einzelschritten durchgehe, funktioniert es auch so weit. Das PDF Wird geöffnet, und der Wert wird an der richtigen stelle eingetragen (kann man ja sehen). Allerdings wird das PDF Dokument nicht gespeichert. Weder mit dem orignalnamen (was ja auch nicht sein sollte), noch mit dem neuen.

Hier mal mein Code den ich ausprobiert habe:

Sub PDF_Formular()
   Dim Datei, Pfad, Name, CustName As String

    'PDF öffnen und füllen
    Set AcroApp = CreateObject("AcroExch.App")
    Set AvDoc = CreateObject("AcroExch.AVDoc")

    'PDF öffnen
    Datei = "D:/Test/Test.pdf" 
    Pfad = "D:/Test/neu/" 
                                                                                                               
    If AvDoc.Open(Datei, Name) Then
    AcroApp.Show
    Set PDDoc = AvDoc.GetPDDoc()
    Set jso = PDDoc.GetJSObject
                                                                                                               
 If ActiveSheet.Range("B2").Value = "j" Then   
    jso.getField("CustomerName").Value = ActiveSheet.Range("A2").Value  
    CustName = ActiveSheet.Range("A2").Value
    Name = CustName & ".pdf"

    'Save changes to the PDF document
    PDDoc.Save PDSaveLinearized, Pfad & Name
 End If

                                                                                                              
                                                                                                               
'Alles schließen und leeren
                                                                                                              
 PDDoc.Close
 AvDoc.Close (True)
 AcroApp.Hide
 AcroApp.Exit
 Set AcroApp = Nothing
 Set AvDoc = Nothing
 Set PDDoc = Nothing
 Set jso = Nothing
Else
 MsgBox "Dokument nicht gefunden!"
 Set AcroApp = Nothing
 Set AvDoc = Nothing
 Set PDDoc = Nothing
 Set jso = Nothing
End If
                                                                                                               
End Sub

 

Statt "PDDoc.Save PDSaveLinearized, Pfad & Name" habe ich es auch mit "PDSaveFull" ausprobiert, allerdings mit dem gleichen Ergebnis.

Ich habe den Adobe DC und Excel 2013

Irgendwer eine Idee?

Danke schon mal :-)


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot VBA PDF speichern funktioniert nicht
05.05.2021 19:41:37 Dirk
*****
Solved
06.05.2021 10:08:17 Dirk
Solved
25.06.2021 20:57:35 Peter
NotSolved
28.06.2021 07:01:41 Peter
NotSolved