Hallo zusammen,
Ich habe folgenden VBA-Code:
Sub LiveTimingScraper()
''-------------Initialize IE and copy results table------------------------------------------------------
Application.Calculation = xlManual
Application.ScreenUpdating = False
Set objIE = CreateObject("InternetExplorer.Application")
'Set objIE = New InternetExplorer
'objIE.Top = 500
'objIE.Left = 0
'objIE.Width = 1400
'objIE.Height = 600
objIE.Visible = False
'objIE.Visible = True
objIE.Navigate ("https://livetiming.getraceresults.com/demo#screen-results")
'objIE.Navigate ("https://livetiming.getraceresults.com/24hseries#screen-results")
Dim RArray(1 To 100, 1 To 30) As Variant
Do
Loop Until objIE.readystate = 4
'Application.Wait (Now + TimeValue("0:00:05"))
rg = objIE.document.getElementsByClassName("resultsGrid")
Bei der Zeile "Loop Until objIE.readystate = 4" bekomme ich den Laufzeitfehler... bei meinen Kollegen funktioniert der Code einwandfrei. Ich glaube, es liegt an der Excel-Version (meine Version: Microsoft® Excel® für Microsoft 365 MSO (Version 2211 Build 16.0.15831.20098) 32 Bit).
Kann mir jemand helfen??? Ich bin nicht allzu bewandert mit Excel-VBA.
Besten Dank.
Gruss Steini
|