Thema Datum  Von Nutzer Rating
Antwort
Rot Laufzeitfehler '-2147417848 (80010108)'
 03.01.2023 21:28:25 Steini
NotSolved
04.01.2023 00:22:16 Gast7777
Solved

Ansicht des Beitrags:
Von:
Steini		 Datum:
03.01.2023 21:28:25		 Views:
686		 Rating:
     
Antwort:
  Ja
Thema:
Laufzeitfehler '-2147417848 (80010108)'

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

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Laufzeitfehler '-2147417848 (80010108)'
 03.01.2023 21:28:25 Steini
NotSolved
04.01.2023 00:22:16 Gast7777
Solved