Tab in Firefox auch wieder schliessen

Sub TestOpenUrl() intResult = OpenUrl("https://www.onvista.de/aktien/handelsplaetze/Aixtron-Aktie-DE000A0WMPJ6", True) Application.Wait Now + TimeSerial(0, 0, 3) Application.SendKeys "^a" Application.Wait Now + TimeSerial(0, 0, 3) Application.SendKeys "^c" Application.Wait Now + TimeSerial(0, 0, 3) Worksheets("Tabelle1").Select Range("A1").Select ActiveSheet.PasteSpecial Format:="Text", Link:=False, DisplayAsIcon:=False End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Richard,
mit dem Aufruf eines Browsers über die Shell und dann mit SendKeys zu arbeiten ist ... ohne Deine Bemühungen schmälern zu wollen ... ungeschickt. Wenn Du mit einem Browser arbeiten willst (schonmal gut, dass Du es nicht mit dem IE versuchst, denn der ist ausgemustert), dann verwende SeleniumBasic.
Schaue in die akzeptierte Antwort von Yasser Khalil, um einen Einstieg zu bekommen. Achte darauf, ggf. die aktuellsten Versionen zu verwenden. SeleniumBasic selbst wird nicht mehr gepflegt, funktioniert mit aktuellen Browsern und den zugehörigen WebDrivern aber nach wie vor. Verwende Chrome oder Edge, FireFox wird seit längerem nicht mehr unterstützt, soweit ich weiß:
https://stackoverflow.com/questions/57216623/using-google-chrome-in-selenium-vba-installation-steps
Allerdings kann onvista auch über xhr abgerufen werden, was um einiges schneller geht, da nur die HTML Seite abgerufen wird. Keine StyleSheets, Grafiken, usw. und keine Browseraufrufe. Um am Ende an die gewünschten Daten zu kommen, ist der Aufwand dann gleich.
Hier ein kurzer Code, wie die Tabelle mit den Werten (ich denke um die geht es Dir), mittels xhr runtergeladen werden kann:


Sub getOnvista()
Dim doc As Object
Dim url As String
url = "https://www.onvista.de/aktien/handelsplaetze/Aixtron-Aktie-DE000A0WMPJ6"
Set doc = CreateObject("htmlFile")
With CreateObject("MSXML2.ServerXMLHTTP.6.0")
.Open "GET", url, False
.setRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 10.0; Win64; x64; rv:91.0) Gecko/20100101 Firefox/91.0"
.Send
If .Status = 200 Then
doc.body.innerHTML = .responseText
MsgBox doc.getElementsByClassName("grid")(3).innertext
Else
MsgBox "Page not loaded. HTTP status " & .Status
End If
End With
End Sub

Dass das nicht intuitiv zu verstehen ist, ist mir klar. Aber vertiefe Dein Wissen nicht in Shell und SendKeys.
Viele Grüße,
Zwenn

Function OpenUrl(sURL As String, InFireFox As Boolean) As Integer If InFireFox Then OpenUrl = Shell("C:\Programme\Mozilla Firefox\firefox.exe " & sURL) End If End Function Sub TestOpenUrl() intResult = OpenUrl("https://www.onvista.de/aktien/handelsplaetze/Aixtron-Aktie-DE000A0WMPJ6", True) Application.Wait Now + TimeSerial(0, 0, 3) Application.SendKeys "^a" Application.Wait Now + TimeSerial(0, 0, 3) Application.SendKeys "^c" Application.Wait Now + TimeSerial(0, 0, 3) Worksheets("Tabelle1").Select Range("A1").Select ActiveSheet.PasteSpecial Format:="Text", Link:=False, DisplayAsIcon:=False 'Application.Wait Now + TimeSerial(0, 0, 3) Application.SendKeys "^{F4}", True End Sub

Sub OnVistaHolen() Application.ScreenUpdating = False Application.CutCopyMode = False With Sheets("Tabelle1").QueryTables.Add(Connection:= _ "URL;https://www.onvista.de/aktien/handelsplaetze/Aixtron-Aktie-DE000A0WMPJ6" _ , Destination:=Range("$A$1")) .WebSelectionType = xlEntirePage .WebFormatting = xlWebFormattingNone .Refresh BackgroundQuery:=False End With Application.ScreenUpdating = True End Sub

Sub AixtronKurse() intResult = OpenUrl("https://www.onvista.de/aktien/handelsplaetze/Aixtron-Aktie-DE000A0WMPJ6", True) Application.Wait Now + TimeSerial(0, 0, 3) Application.SendKeys "^a" Application.Wait Now + TimeSerial(0, 0, 3) Application.SendKeys "^c" Application.Wait Now + TimeSerial(0, 0, 3) Application.SendKeys "^{F4}", True Worksheets("Tabelle1").Select Range("A1").Select ActiveSheet.PasteSpecial Format:="Text", Link:=False, DisplayAsIcon:=False End Sub

Beliebteste Forumthreads (12 Monate)

Tab in Firefox auch wieder schliessen

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

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread