Hi zusammen,
nachdem ich nun wirklich schon etliche Seiten über Goggle durchsucht habe, aber einfach nichts gefunden habe, ist mir eingefallen das ich ja hier angemeldet bin und es hier mal versuchen könnte.
Ich schilder mein Vorhaben und gleichzeitige Problem mal.
Unter Excel 2019 kann man nicht wie gewohnt einfach eine Webafrage einbauen, der Vorgang hat sich extrem geändert (Super Query) und genau da fängt mein Problem an. Unsere Firma ist so gesichert, dass es nie zu möglich ist die Abfrage zu finalisieren. Irgendwann während dem Ablauf komme ich zu einem Punkt wo Excel Anmeldedaten haben will, die uns nicht zur Verfügung stehen etc.
Dann bin ich darauf gekommen, dass es ja auch möglich ist dies durch eine Abfrage über ein Makro zu umgehen. Bis zu einem gewissen Punkt klappt das Makro auch, was ich im Netz gefunden habe. Aber auch nur bis zu einem gewissen Punkt.
1 Makro habe ich gefunden was zwar funktioniert, dieses zieht mir aber einfach die komplette Seite runter inklusive Schaltflächen und Verlinkungen.
Ihr kennt doch das übliche Browser Fenster, das bei Excel 2016 immer direkt beim Erstellen einer Abfrage kam, wo man sich durch das Klicken der Vierecke vor jedem Abschnitt direkt aussuchen kann was man haben möchte. Dazu kommt es aber bei diesem Makro gar nicht erst, weil er nach der Abfrage direkt das Browser Fenster schließt und die Abfrage dann in Excel exportiert. Ich habe also keine Chance da irgendwie einzugreifen oder mir etwas auszusuchen.
Hier 1x das Makro:
Sub Test1()
Dim Internet As Object
Set Internet = CreateObject("InternetExplorer.Application")
Internet.Navigate "Hier wird die gewünschte Seite eingetragen"
Do While Not Internet.ReadyState = 4
DoEvents
Loop
Internet.Visible = True
Internet.execwb 17, 0
Internet.execwb 12, 0
Internet.execwb 18, 0
Do While Not Internet.ReadyState = 4
DoEvents
Loop
Internet.Quit
Set Internet = Nothing
Tabelle5.Paste
End Sub
Das andere Makro was ich gefuinden habe öffnet mir zwar das eben erwähnte Browser Fenster, jedoch dann stoppt es und ich habe aber auch keine Felder zum Aussuchen der Daten.
Hier das zweite Makro:
Sub Aktienkurs()
Dim appIE As Object
Dim ticker As String
Dim myValue As String
ticker = Range("A1")
Set appIE = CreateObject("internetexplorer.application")
appIE.Top = 0
appIE.Left = 0
appIE.Width = 800
appIE.Height = 600
appIE.Visible = True
With appIE
.Navigate "Hier wird die gewünschte Seite eingetragen"
.Visible = True
End With
Do While appIE.Busy
DoEvents
Loop
Set allRowOfData = appIE.document.getElementsByClassName("Ta(end) Fw(b) Lh(14px)")
End Sub
Die Set allRowOfData Zeile müsste ich in der Klammer noch anpassen, was mich aber auch zu keinem wirklichen Ergebnis führt.
Könnte mir bitte einer von euch ein Makro schreiben was mir eventuell die alte Auswahl der Bereiche zeigt oder etwas ähnliches?
Ich sitze nun schon mehrere Stunden daran, bin halt auch kein Makro King, aber es wäre wirklich wichtig eine Alternative zu haben, da mit unserem System hier absolut kein Super Query nutzbar ist.
Vielen Dank
MfG Stefan
|