PDF und Excel
17.12.2018 14:37:00
Thomas
Ich komme nicht mehr weiter und stehe vor einem Problem. Mittels beiliegendem Code ist es mir mö _
glich die Einträge aus Excel in ein PDF Formular über zu geben was auch einwandfrei _
funktioniert. Nun soll aber das PDF mit dem Namen aus der Zelle B1 beschriftet werden und _
gespeichert werden gemäss Pfad in Zelle B2. Hier komme ich nicht mehr weiter. Kann mir hier _ jemand weiter helfen?
Sub Makro1()
Dim pdfPath As String
Dim TestVal As String
Dim pdDoc As Object
Dim avDoc As Object
'Dim acroApp As Object
Dim jsObj As Object
Dim fieldObj As Object
' hier liegt die Test Datei
pdfPath = "D:\Test\Titel.pdf"
'Set acroApp = CreateObject("AcroExch.App") ' gelöscht vorerst evtl wieder aktiv schalten bei _
_
_
_
_
_
problemen
Set avDoc = CreateObject("AcroExch.avDoc")
'acroApp.Show ' gelöscht vorerst evtl wieder aktiv schalten bei problemen
' doc öffnen
If avDoc.Open(pdfPath, "Form1") Then
Set pdDoc = avDoc.GetPDDoc()
Set jsObj = pdDoc.GetJSObject() ' Zugriff auf das Feld
'On Error Resume Next
Set fieldObj = jsObj.getField("Firma") ' ... und wert setzen
TestVal = Worksheets("4-Übersicht").Range("J9").Value
fieldObj.Value = TestVal ' aufräumen
Set fieldObj = jsObj.getField("Nummer") ' ... und wert setzen
TestVal = Worksheets("4-Übersicht").Range("K9").Value
fieldObj.Value = TestVal
Set fieldObj = jsObj.getField("Verteiler") ' ... und wert setzen
TestVal = Worksheets("4-Übersicht").Range("L9").Value
fieldObj.Value = TestVal
Set fieldObj = jsObj.getField("Strasse") ' ... und wert setzen
TestVal = Worksheets("4-Übersicht").Range("N9").Value
fieldObj.Value = TestVal
Set fieldObj = jsObj.getField("Ortschaft") ' ... und wert setzen
TestVal = Worksheets("4-Übersicht").Range("O9").Value
fieldObj.Value = TestVal
Set fieldObj = Nothing
Set pdDoc = Nothing
End If
Set avDoc = Nothing
'Set acroApp = Nothing
End Sub