pdf-Datei mit Exceldaten befüllen
Anne
ich versuche anhand eines Makros aus dem Netz aus einer Excel-Datei heraus ein pdf-Dokument mit den Daten der Excel-Datei zu befüllen.
Leider funktioniert das hier nicht:
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Declare Function GetDesktopWindow Lib "user32" () As Long
Public Sub XMLoeffnen()
Dim strDateiname As String
Dim MSXML As New MSXML2.DOMDocument
Dim bXMLok As Boolean
Dim xNode As MSXML2.IXMLDOMNode
strDateiname = "J:\Betrieb\Datei.xfdf"
bXMLok = MSXML.Load(strDateiname)
If bXMLok = False Then
MsgBox "Die Datei " & strDateiname & "wurde nicht als korrektes XML Dokument eingelesen"
For Each xNode In MSXML.selectSingleNode("xfdf/fields").childNodes
If xNode.Attributes.getNamedItem("name").Text = "Firma" Then
xNode.selectSingleNode("value").Text = "Test"
End If
Next xNode
MSXML.Save strDateiname
End If
Call ShellExecute(GetDesktopWindow(), "Open", strDateiname, "", "", 1)
End Sub
Bei Ausführen des Makros erscheint die Fehlermeldung:
Das Formular konnte nicht gefunden werden, da den XFA-Daten eine Referenz zum PDF-Dokument fehlt. Wenn die Daten nach dem Senden aus einem PDF-Formular zurückgeschickt werden, fehlt wahrscheinlich "'FPF" am Ende der URL.
Was mache ich bzw. was ist falsch?
Vielen Dank für Eure Hilfe
Anne