Datenverbindung aus Excel Tabelle in PDF vorlage einbinden

[pexcom]

Hallo,

ich stehe nunmehr vor einem kleinen oder großen Problem.

Ich möchte gerne aus einer vorhandenen Excel Tabelle die Spalte "A1" mittels Datenverbindung in ein vorhandenes PDF File in einem Textfeld "Feld1" anzeigen lassen.

Dieses funktioniert auch soweit ganz gut, mittels Datenverbindung. Nur einen Haken hat das ganze unswar, wenn ich nun in der Excel Datei den Wert der Spalte "A1" als beispiel

Wert Spalte A1 = "Hund" verändere in den Wert "Katze" und die Excel speicher und anschließend die PDF Datei öffne verändert sich nicht der Wert "Hund" auf "Katze".
Erst wenn ich im Adobe Lifecycle die Datenverbindung aktualisiere, verändert sich der Wert. Allerdings ist dies für mich unpraktisch da nicht jeder Adobe LCD auf seinem PC installiert hat, geschweige denn, diesen bedienen kann.

Ich habe nun auch versucht den Weg umgekehrt zu bewerkstelligen mittels Excel Makro allerdings bislang ohne Erfolg, habe zwar einen Code im Netz gefunden leider auch nach anpaßung des Scripts nicht umsetzbar. Den Excel Code habe ich mal am Textende beigefügt, vielleicht brauch Ihn ja jemand oder kann mir dahingehend weiterhelfen.

Als Anhang mal ein Beispiel wie ich es vor habe im Excel und PDF.




 

Excel Code

<BEGIN>

Private Sub CommandButton1_Click()
Call Makro1
End Sub


Sub Makro1()
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:\testdatei.pdf"
Set acroApp = CreateObject("AcroExch.App")
Set avDoc = CreateObject("AcroExch.avDoc")
acroApp.Show
' 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("Nachname") '!!!! Hier entsteht der Fehler!!!!!!
' ... und wert setzen
TestVal = Worksheets("Tabelle1").Range("A2").Value
fieldObj.Value = TestVal
' aufräumen
Set fieldObj = Nothing
Set pdDoc = Nothing
End If
Set avDoc = Nothing
Set acroApp = Nothing
End Sub

<END>

 

 

[pexcom]

Als Anhang beide Dateien.

 

Excel und PDF.

 

Gruß

Klaus