Durch SendKeys Daten von Excel in PDF
04.03.2016 11:36:20
Excel
ich versuche für die Arbeit aktuell ein kleines VBA "Kunststück" zu vollführen. Die Idee ist es, Daten aus einem Excel Sheet in eine PDF Datei (Vorlage) zu übertragen. in der PDF (Die mit Adobe Reader geöffnet wird) hat vorgefertigte Felder, in welche ich die Daten eintragen kann.
Da ich mir leider nicht besser zu helfen wusste bzw. weiß verwende ich dafür aktuell SendKeys Befehle. (Siehe Sub unten) Das ist zwar keine elegante Lösung aber sie Funktioniert. Solange ich das ganze auf meinem eigenen Rechner ausführe.
Ein VBA Fehler wird nicht ausgelöst, das Problem ist folgendes:
Sobald ich an einen Anderen Rechner gehe, entsteht das Problem, dass für alle Felder, in die etwas eingefügt werden soll der "letzte" einzufügende Wert des Gesamten Konstrukts eingefügt wird.
Konkret: Im Code Ausschnitt soll zunächst Cells (3, 3) eingefügt werden, dann an der nächsten Stelle Cells (15, 2). Der Wert von (15, 2) wird jedoch überall eingefügt. Das Problem zieht sich immer weiter. Würde ich also 10 weitere Werte übertragen wollten, dann wird der letzte Wert Cells (X, X) der 10 Wert, in jedes PDF Feld eingefügt.
Das Problem konnte ich weder über "Variablen", also Set XX as Range und dann immer eine neue Range festlegen und dann wieder mit Set XX Nothing löschen, lösen. Noch über verschiedene Subs, die mit Call Befehlen hintereinander ausgeführt werden.
Ein Experiment mit "Haltecodes", die für 3 Sekunden Verzögerung gesorgt haben haben mir dabei auch nicht geholfen. Bzw. in Einzelfällen ja, das kann jedoch keine Gesamtlösung herbeiführen.
Ein "Strg+C" SendKey für das Kopieren der Werte funktioniert leider auch nicht.
Also für jede Hilfe, Tipp, Anregung oder Lösung bin ich sehr dankbar.
Habe schon jedes mir bekannt Forum sowie Google durchsucht und habe keine Lösung finden können.
Sollte euch für den Übertrag eine elegantere Lösung einfallen, so bin ich auch hier ganz Ohr.
Vielen dank bereits jetzt :)
Freue mich auf jede Antwort
Bisheriger Sub Code: (Nur ein ausschnitt. Er Funktioniert so, würde sich aber endlos weiter _
Schreiben lassen, es wird auch kein Fehler ausgelöst, am Ende wird noch das Dokument (auch über _
SendKeys gespeichert) das soll aber keine Rolle spielen)
Option Explicit
Dim adobeAPP As String
Dim adobePDF As String
Dim dokname As String
Dim sheetname As String
Sub Test1()
'Variablen Setzten
adobePDF = "Beispieldatei.pdf"
adobeAPP = adobePDF & " - Adobe Reader"
dokname = ActiveWorkbook.Name
sheetname = ActiveSheet.Name
'Makro beginnt
'Öffne PDF
ActiveWorkbook.FollowHyperlink "C:\Beispielpfad\" & adobePDF
Windows(dokname).Activate
Sheets(sheetname).Select
Cells(3, 3).Copy '