Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
840to844
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
840to844
840to844
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

HELP!!! Problem beim Übertragen von Excel in PDF

HELP!!! Problem beim Übertragen von Excel in PDF
31.01.2007 14:53:30
Excel
Moin,
Habe folgendes Problem please HELP!!!
Habe VBA-Code zum Datenübertragen von Excel in PDF Formular (unten)
Alles prima und funktioniert aber sobald ich in die Zelle eine Zahl oder
eine Formel eintrage kommt Laufzeitfehler "5"
Kann man das irgendwie korrigieren?
Vielen dank im voraus!!!!!!!

Sub Makro1()
Dim pdfPath 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
Set fieldObj = jsObj.getField("Name")
' ... und wert setzen
fieldObj.Value = Worksheets("tabelle1").Range("A2").Value
' aufräumen
Set pdDoc = Nothing
Set avDoc = Nothing
Set acroApp = Nothing
End If
End Sub

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: HELP!!! Problem beim Übertragen von Excel in PDF
03.02.2007 15:03:08
Excel
Hi,
ungetestet:
fieldObj.Value = Worksheets("tabelle1").Range("A2").Text
mfg Kurt
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige