VBA IE Popup öffnen und Bild kopieren

Christian · 2017-07-25T14:03:28+00:00

Hallo, ich benötige etwas Hilfe für einen Code. https://wertpapiere.ing-diba.de/DE/Showpage.aspx?pageID=25&ISIN=DE0008404005& Dort das Popup "Chartbild anzeigen" öffnen und den Chart kopieren und in B1 einfügen. Der Link steht in A1 und soll dann mit einer Schleife nacheinander abgearbeitet werden. Ich kriege halt nur das Popup nicht geöffnet. :( Vielen Dank im Voraus.

Hallo Christian,
dazu musst Du die JavaScript Funktion aufrufen, die hinter dem Link zu Chartbild anzeigen liegt. Das geht so:


Sub JS_Funktion_aufrufen()
Dim browser As Object
Dim url as string
url = "https://wertpapiere.ing-diba.de/DE/Showpage.aspx?pageID=25&ISIN=DE0008404005&"
Set browser = CreateObject("internetexplorer.application")
browser.Visible = True
browser.Navigate url
Do Until browser.ReadyState = 4: DoEvents: Loop
'Aufruf einer JS Funktion nach dem Muster:
'Call browser.document.parentWindow.execScript("FUNKTIONSNAME(PARAMETER)", "JavaScript")
Call browser.document.parentWindow.execScript("__doPostBack('ctl00$WebPartManager$ _
wp43346709$wp44614289$ChartImagePopupLink$Control$dialogLink_showChartImagePopup','')", "JavaScript")
End Sub

Anmerkung:
Die Zeile Call browser.document.parentWindow.execScript("__doPostBack('ctl00...)", "JavaScript") darf nicht an der Stelle getrennt werden, wie hier abgebildet, sondern muss in einer Zeile stehen. Wenn Du das kopierst, lösche einfach den unterstrich un die Leerzeichen, damit der Funktionsparameter 'ctl00$WebPartManager$wp43346709$wp44614289$ChartImagePopupLink$Control$dialogLink_showChartImagePopup' wieder ganz ist.
Viele Grüße,
Zwenn

Hi Christian,
kein Problem, dass Du im Stress warst. Kenne ich selbst. Ich wollte nur wissen, ob Du das Problem vielleicht schon gelöst hast, bevor ich mir weitere Arbeit mache :-)
Wie groß ein Bild bei Dir ist, damit Du es grade noch erkennst weiß ich nicht ;-) Ich versuche mal was einzubauen, wo Du dann einfach selbst die maximale Kantenlänge über eine Konstante bestimmen kannst. Die Kantenlänge selbst ist kein Problem. Ich überlege nur noch, wie man die Zellen automatisch mit skaliert. Sonst macht das keinen Sinn. Außer Du kannst mir direkt sagen, wie breit oder wie hoch ein Chart in Pixeln aufs Bild bezogen sein soll. Dann spare ich mir die automatische Zellskalierung und setze die Zellgrößen fix.
Wenn die Bilder neu geladen werden, müssen sie auf jeden Fall vorher gelöscht werden. Sonst würde man bei jeder Aktualisierung ein weiteres Bild auf die vorher geladenen schieben und Deine Datei würde immer größer werden.
Was Du mit Die Punkte in die die Bilder kopiert werden sind dabei immer gleich. meinst weiß ich nicht. Ich denke Bild 1 soll in Zelle B2. Also gehe ich davon aus, dass Bild 2 in B3 angezeigt werden soll, usw.
Ob Du die Liste umsortieren willst erkenne ich aus Deiner Antwort auch nicht richtig. Vielleicht ist es für das Verständnis meiner Frage danach wichtig zu wissen, dass eine Mitsortierung von Grafiken in Zellen nur mit einem kleinen Trick möglich ist. Sofern MS das nicht inzwischen geändert hat.
Runtergeladen werden die Bilder auf jeden Fall, denn sie kommen ja aus dem Internet ;-) Es gibt jedoch die beiden Möglichkeiten sie entweder auf der Festplatte zu speichern und von dort aus in die Excel Tabelle zu holen oder sie direkt in die Excel Tabelle zu laden. Ich ziehe das direkte Laden in die Tabelle in Deinem Fall vor.
Ich habe mit der Umsetzung dieses Projektes zwar schon angefangen, werde aber aus persönlichen Gründen am Wochenende wahrscheinlich nicht dazu kommen es fertig zu stellen (Besuch hat sich angekündigt). In diesem Zusammenhang mal die Frage ... Hast Du schon einen eigenen Versuch gestartet? Dann wäre es gut, wenn Du Deine Arbeitsmappe hier hochladen würdest, damit ich mindestens auf Deinem Tabellenlayout aufsetzen kann.
Viele Grüße,
Zwenn

VBA IE Popup öffnen und Bild kopieren

Forumthread: VBA IE Popup öffnen und Bild kopieren

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

VBA IE Popup öffnen und Bild kopieren

Forumthread: VBA IE Popup öffnen und Bild kopieren

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread