Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

Excel VBA an PDF Formular anpassen

Frage Entwicklung VB for Applications

Mitglied: Detel1

Detel1 (Level 1) - Jetzt verbinden

25.02.2015 um 01:46 Uhr, 803 Aufrufe, 3 Kommentare

Hallo!
Ich habe ein PDF Formular das aus Excel VBA beschrieben wird, per email versandt und per outlook zurueck kommt und wieder mit VBA ausgelesen wird.
Dieses Formular war eine Seite lang. Jetzt habe ich ein neues Formular das 3 Seiten lang ist.
Ich habe versucht das PDF Formular anzupassen. Dies funktioniert nicht. VBA kann das auf der ersten Seite liegende Feld "Serial_Number" nicht finden und gibt eine Fehlermeldung aus.
Seit zwei Tagen versuche ich verschiedene Optionen. Ohne Erfolg.
Das Original PDF Formular war in Englisch. Das Neue nun in Deutsch. Habe Begriffe ausgetauscht die im Original Formular standen, z.Bsp. "Formular" durch "topmostSubform" " Seite" durch "Page" ersetzt doch ich muss irgend etwas uebersehen. Mit Logik ist dem Problem nicht bei zu kommen. Meine VBA Kentnisse sind auf Anfaenger Niveau.
Kann mir jemand helfen die Anpassung vorzunehmen?

Hier sind die zwei PDF Dateien:
[URL=http://www.file-upload.net/download-10342406/NEUcontract_form_live.pdf. ...]NEUcontract_form_live.pdf[/URL]
[URL=http://www.file-upload.net/download-10342405/ORIGINALcontract_form_live ...]ORIGINALcontract_form_live.pdf[/URL]

und hier der komplette VBA Code:
[URL=http://www.file-upload.net/download-10342419/VBA_Formular_Kundendaten.t ...]VBA_Formular_Kundendaten.txt[/URL]


und hier ist der VBA Code:
'Fill the form fields.
objJSO.getField("topmostSubform.Page1[0].Serial_Number[0]").Value = strSerial
objJSO.getField("topmostSubform[0].Page1[0].Call_Sign[0]").Value = strCallSign
If Err.Number <> 0 Then
'Close the form without saving the changes.
objAcroAVDoc.Close True
'Close the Acrobat application.
objAcroApp.Exit
'Inform the user about the error.
MsgBox "The field """ & "Serial Number" & """ could not be found!", _
vbCritical, "Field error"
GoTo ErrFound

Vielen Dank im Voraus

Detlef Heun
Mitglied: colinardo
LÖSUNG 25.02.2015, aktualisiert um 14:31 Uhr
Hallo Detlef, Willkommen auf Administrator.de!
Nach einem Test solltest du das Feld hiermit ansprechen können (es fehlte nur der Index für die Form)
objJSO.getField("topmostSubform[0].Page1[0].Serial_Number[0]").Value = strSerial
Grüße Uwe
Bitte warten ..
Mitglied: Detel1
25.02.2015 um 13:14 Uhr
Vielen Dank Uwe!
Es hat funktioniert.
Ich dachte mir schon das es nur ein kleiner Fehler war, aber gewusst wo.
Viele Gruesse
Detlef
Bitte warten ..
Mitglied: colinardo
LÖSUNG 25.02.2015, aktualisiert um 14:32 Uhr
Keine Ursache.
Wenns das dann war, den Beitrag bitte noch auf gelöst setzen. Merci.

Grüße Uwe
Bitte warten ..
Neuester Wissensbeitrag
Humor (lol)

Linkliste für Adventskalender

(3)

Information von nikoatit zum Thema Humor (lol) ...

Ähnliche Inhalte
Microsoft Office
gelöst CSV-Datei mit einem VBA Makro in Excel einlesen und leicht anpassen (5)

Frage von JoSiBa zum Thema Microsoft Office ...

VB for Applications
gelöst Excel VBA Eine oder mehrere Zellen Verschieben (2)

Frage von batchnewbie zum Thema VB for Applications ...

Microsoft Office
Excel VBA: Tranferieren von Werten aus Quelldatei in die Masterdatei mit SVERWEIS (3)

Frage von peter.schroeder zum Thema Microsoft Office ...

Heiß diskutierte Inhalte
Windows Server
DHCP Server switchen (25)

Frage von M.Marz zum Thema Windows Server ...

SAN, NAS, DAS
gelöst HP-Proliant Microserver Betriebssystem (14)

Frage von Yannosch zum Thema SAN, NAS, DAS ...

Grafikkarten & Monitore
Win 10 Grafikkarte Crash von Software? (13)

Frage von Marabunta zum Thema Grafikkarten & Monitore ...

Windows 7
Verteillösung für IT-Raum benötigt (12)

Frage von TheM-Man zum Thema Windows 7 ...