Daten mit VBA exportieren...

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Uwe,
das Befüllen von PDF-Formularen aus VBA ist grundsätzlich möglich, allerdings benötigst Du dafür den Adobe Acrobat (also nicht nur den Adobe Reader). Ist dieser auf dem PC installiert, kannst Du einen Verweis auf die "Adobe Acrobat x.0 Type Library" (x steht für die versionsnummer) und "AFormAut 1.0 Type Library" setzen. Über diese kannst Du PDF-Datei in Zugriff nehmen und die Felder auslesen / verändern, z.B. wie unten dargestellt. Die Routine zeigt eine Dateiauswahl-Dialog für eine PDF-Datei, öffnet diese und - wie bei einen Serienbrief - füllt / druckt das Formular Satz für Satz aus einem Datenbereich.


Sub werte_aus_acrobat_auslesen()
'Beispiel für Zugriff auf Acrobat-Felder
Dim DateiDialog As FileDialog
Dim Antwort As Boolean
Dim AnzDatensaetze As Long
Dim n As Long
Dim Fld As AFORMAUTLib.Field
Dim Flds As AFORMAUTLib.Fields
Dim acroexchavdoc As Variant
Set DateiDialog = Application.FileDialog(msoFileDialogFilePicker)
DateiDialog.Filters.Add "PDF-Dateien", "*.pdf", 1
Antwort = DateiDialog.Show
If Antwort Then
Dateiname = DateiDialog.SelectedItems(1)
Set acroexchapp = CreateObject("Acroexch.app")
acroexchapp.CloseAllDocs
Set acroexchavdoc = CreateObject("Acroexch.avdoc")
bOK = acroexchavdoc.Open(Dateiname, Dateiname)
If (bOK) Then
Set aformaut = CreateObject("AFormAut.App")
Set Flds = aformaut.Fields
End If
For n = 1 To 2 'AnzDatensaetze - 1
Flds("LegalEntityName1.0").Value = Sheets(1).Range("a1").Offset(n, 2).Value
Flds("LegalEntityName1.1").Value = Sheets(1).Range("a1").Offset(n, 3).Value
Flds("LegalEntityName1.3").Value = Sheets(1).Range("a1").Offset(n, 4).Value
Flds("IndParticipantName.0").Value = Sheets(1).Range("a1").Offset(n, 2).Value
Flds("IndParticipantName.1").Value = Sheets(1).Range("a1").Offset(n, 3).Value
acroexchavdoc.PrintPagesSilent 0, 2, 3, False, True
Next
End If
End Sub

Mein Suche nach Open Source / Freeware-Modulen zum Zugriff auf PDF-Formulare ist leider erfolglos verlaufen - vielleicht hat dafür noch jemand einen Tipp.
Gruß, Jürgen

Hallo Uwe,
unter PDF-Formulare habe ich PDF-Dateien verstanden, die schon für eine elektronische Befüllung vorbereitet sind, d.h. in denen man z.B. per Adobe Acrobat bereits Felder angelegt hat, die man mit dem Adobe Reader ausfüllen könnte. Die so angelegten Felder tragen bereits Namen, über die man sie ansprechen kann (siehe mein Beispielcode). Ohne die Acrobat-Module (oder entsprechende anderer Hersteller) wirst Du die PDF-Dateien aber nicht (oder nicht ohne Neuprogrammierung der Module...) so in den Zugriff nehmen können, dass Du die Inhalte als ansprechbare Objekte erhältst.
Für einen Spezialfall habe ich schon mal einen alternativen Weg über Word eingeschlagen: die PDF-Seiten als PNG-Datei exportiert (per Adobe Acrobat oder die Kombination GhostView + Ghostscript, VBA + GhostScript geht übrigens auch), diese als Hintergrundbilder in ein Word-Dokument gepackt, Tabellen davorgelegt, um besser positionieren zu können. Nun entweder per Serienbrief-Funktionalität die Felder aus der Excel-Datei geholt oder, da das in meinem Fall nicht ging, per VBA die Daten in in Lesezeichen übertragen. Den Aufwand betreibt man aber nicht für ein Formular, das man zweimal im Jahr benutzt.
Ach ja, das PDF-Format sieht auch eine Befüllung von Formularen aus Text-Dateien vor (Stichwort: .fdf-Dateien). Meine Versuche mit Demoversionen einschlägiger Tools verliefen jedoch wenig ermutigend (vielleicht war ich aber auch nicht hartnäckig genug).
Gruß, Jürgen

Beliebteste Forumthreads (12 Monate)

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread