Ich habe eine umfangreiche Exceltabelle mit Verknüpfungen in verschiedene PDF-Dateien.
Diese wollte ich nun etwas abändern, jedoch gibt es immer eine Fehlermeldung,
obwohl ich nur die grundlegenden Änderungen wie PDF-Name und Feldname geändert habe.
Folgende Zeile will er mir nicht erkennen, bzw. gibt es als Fehler aus.
fieldObj.Value = Worksheets("Dateneingabe").Range("C16").Value
Kann ich da was tun?
Hier der gesamte Code.
Sub Netto()
Dim pdfPath As String
Dim TestVal As String
'Dim pdDoc As Acrobat.CAcroPDDoc
'Dim avDoc As Acrobat.CAcroAVDoc
'Dim acroApp As Acrobat.CAcroApp
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 = "C:\berechnung.pdf"
Set acroApp = CreateObject("AcroExch.App")
Set avDoc = CreateObject("AcroExch.avDoc")
acroApp.Show
' doc öffnen
If avDoc.Open(pdfPath, "Nettolohnberechnung") Then
Set pdDoc = avDoc.GetPDDoc()
Set jsObj = pdDoc.GetJSObject()
' Zugriff auf das Feld
Set fieldObj = jsObj.getField("brutto")
' ... und wert setzen
fieldObj.Value = Worksheets("Dateneingabe").Range("C16").Value
' aufräumen
Set fieldObj = Nothing
Set pdDoc = Nothing
End If
Set avDoc = Nothing
Set acroApp = Nothing
End Sub
Vielen Dank für Eure evtl. Hilfe
Grüße
John