Werte in externes Programm übertragen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub test1() PID = Val(InputBox("PID eingeben:", "Eingabe notwendig", 9999)) If PID = 0 Or PID = 9999 Then Exit Sub XL = ThisWorkbook.Name WRD = PID For I = 1 To 20 AppActivate XL Cells(I, 1).Select SendKeys "(^C)", True AppActivate PID SendKeys "(^V)", True Next End Sub

Sub test1() Set wshshell = CreateObject("WScript.Shell") PID = Val(InputBox("PID eingeben:", "Eingabe notwendig", 9999)) If PID = 0 Or PID > 9998 Then Exit Sub XL = ThisWorkbook.Name WRD = PID For I = 1 To 20 AppActivate XL W = CStr(Cells(I, 1).Value) AppActivate PID wshshell.SendKeys W, True wshshell.SendKeys "{ENTER}" Next End Sub

Hi Frank,
ja, das heisst es. Allerdings mit einer Einschränkung: Die Quelltabelle, also die, von der ich kopiere, habe ich mit meinem Excel-Programm geöffnet.
Auf die Zieltabelle komme ich so:
Eine bestimmte Seite auf der Konzern-Homepage öffnen, einloggen, auf einen bestimmten Button klicken.
Nun geht nach einer Wartezeit von ewigen 30 Sekunden eine Excel-Tabelle auf, in die ich in bestimmte Zellen händisch Werte eintragen soll. Diese Zellen liegen leider nicht genau untereinander, sondern auf der Seite verstreut. Die anderen Zellen sind gesperrt.
Dieses Programm ist offensichtlich nicht mein Excel-Programm, weil es im Task-Manager als eigene exe steht, alles Internet gesteuert.
Aus einer Ergebniszelle kann ich dann das Ergebnis ablesen. In dieser Zelle steht die Formel:
"=ERGEBNIS"
Die Berechnung selbst erfolgt im Verborgenen, die Module im VBA-Editor sind leer, Formeln sind keine zu finden. Die Berechnung bleibt also ein Geheimnis des Erstellers. Macht aber nichts.
Nach Ermittlung des Ergebnisses speichere ich dort die Tabelle, damit ich sie dort wieder öffnen kann. Aber nicht auf meiner Festplatte. Das wird verhindert. Ich komme sogar in den VBA-Editor. Was ich da hinein schreibe, kann ich zwar in der Sitzung ausführen, der Code wird dort aber nicht gespeichert.
So weit, so gut. Die haben meine Eingabewerte, und ich das Ergebnis.
Nur die Eingabe, die will ich automatisieren, weil ich die 30 Eingabewerte bereits vorbereitet in meiner Excel-Tabelle habe und nicht einzeln händisch rein klopfen will.
Und darauf konzentriert sich meine frage hier.
wie gesagt: Auf mein händisches Enter und Tab reagiert das Programm, aber auf Deine Sendkey-Methode geht Enter und Tab nicht, lediglich die direkte Eingabe in eine Zelle mit dem Senden von Strg-V.
Uff.

MeinWB = "Name_meiner_XL.xlsx" ZielWB ="Name_der_Mappe_auf_Server.xlsx" ZielTab ="BlattName_in_Zieltabelle" for i = 1 to 20 Zielzeile = i + Offset Workbooks(ZielWB).Sheets(ZielTab).cells(ZielZeile, ZielSpalte) = Workbooks(MeinWB).Sheets(" _ Tabelle 1").cells(i, 1) next

Sub test() Dim w, ws Set ws = CreateObject("wscript.shell") AppActivate ThisWorkbook.Name w = Cells(2, 1).Value AppActivate 4516 Application.Wait (Now + TimeValue("0:00:03")) ws.SendKeys w, True Application.Wait (Now + TimeValue("0:00:03")) ws.SendKeys "{ENTER}" End Sub

Hallo Frank,
"Ich habe den Thread nochmal offen gestellt."
Danke. Hab das gar nicht beachtet.
Jetzt wundert mich nur, ob ich dieses Thema weiter führen kann. Denn im Forum finde ich es nicht mehr, und der Bookmark, den ich mir für dieses Thema gesetzt habe, führt zu einer nicht editierbaren herber-Seite, die alle Beiträge zu diesem Thema anzeigt.
Der einzige Zugang zum Antwortformular, der mir bleibt, ist lediglich über den Link im Benachrichtigungsmail. Nicht ganz durchsichtig, das Ganze.
Nun mal zu Deinem ersten Absatz:
Ja, DOWN und andere habe ich probiert, funktioniert nicht. Auch nicht, wenn ich den VBA-Editor dieser komischen Excel-Version (die übrigens ein englisches Menü hat) öffne und dort was mit sendkeys schreiben lassen will. Selbes Ergebnis: Die Buchstaben werden gesendet und auch abgebildet, alle folgenden Befehle, wie zB ws.SendKeys "{DOWN}", True zeigen keine Wirkung.
Andererseits, wenn ich das Ganze auf ein Word-Dokument loslasse, um zu sehen, ob und wie sendkeys überhaupt arbeitet, da wird alles ohne Probleme wunschgemäß ausgeführt.
Zusammenfassend kann man sagen: Bestimmte Anwendungen führen keine Sendkey-Befehle aus, nur Buchstabeneingaben.
Zu Deinem zweiten Absatz:
"In der Zielmappe stehen die Zellen genauso untereinander, wie in Deiner eigenen?"
Nein, diese Zellen liegen leider nicht genau untereinander, sondern auf der Seite verstreut. Die anderen Zellen sind gesperrt. (siehe 02.02.2015 20:18:08)
Das bedeutet, auch wenn ich die Anordnung auf meiner Quelltabelle nachbilde, kann ich nicht das Ganze als Block "in einem Rutsch" rüber kopieren, weil damit auch versuche, in die dazwischenliegenden Zellen zu kopieren, und die sind gesperrt.
Also, ich habe auch schon daran gedacht.
Danke für Dein Interesse und Deine Hilfe.
LG,
Barbara

Beliebteste Forumthreads (12 Monate)

Werte in externes Programm übertragen

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Werte in externes Programm übertragen

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread