Thema Datum  Von Nutzer Rating
Antwort
Rot Automatisches Datenauslesen aus mehreren Webseiten
13.10.2020 15:45:51 SW
NotSolved
13.10.2020 15:47:35 Gast57345
NotSolved
13.10.2020 16:01:54 Gast6494
NotSolved
13.10.2020 16:33:58 Gast33190
NotSolved
13.10.2020 17:28:52 Gast90095
NotSolved
13.10.2020 20:57:09 Trägheit
Solved
14.10.2020 12:52:15 SW
NotSolved
14.10.2020 15:33:52 Trägheit
Solved
15.10.2020 19:26:13 SW
NotSolved

Ansicht des Beitrags:
Von:
SW
Datum:
13.10.2020 15:45:51
Views:
75
Rating: Antwort:
  Ja
Thema:
Automatisches Datenauslesen aus mehreren Webseiten

Guten Tag Zusammen.

Mein Rechner hat folgende Leistungen.

Officel Version: Excel 2019

OS : Windows 10

CPU: AMD Ryzen 3900x

Arbeitsspeicher: DDR4 80 GB

GPU: Radeon RX 580

Ich habe hier eine Excel Datei mit VBA erstellt, jedoch klappt es oft nicht. Zwar möchte ich die Fussball Spielergebnisse von mehreren Spieltagen automatisch aufrufen und in ein Blatt einfügen.

Als Beispiel:

Ziel: die Spielergebnisse von der dritten Bundesliga in 2016-2017 aufrufen und ins Blatt „Daten" einfügen

URL befindet sich in A1 im Blatt „Adresse" (die URL ist dynamisch)

i = die Anzahl der Spieltage

Eingefügt sollte es mit einer leeren Zelle hintereinander ins Blatt „Daten" werden.

z.B. es gibt 10 Spiele an einem Spieltag

die Daten vom ersten Spieltag wird ins Blatt „Daten" A1:F10

die vom zweiten Spieltag wird in A11:F22 eingefügt

Option Explicit

Sub Ergebnisse()
    
    Dim qt As QueryTable
    Dim URL As String
    Dim i As Byte


        For i = 1 To 10
    
        URL = Adresse.Range("A2").Value & i & "/"
                
                
                'je nach Liga Gesamtspielanzahl/Spieltag abändern
                Set qt = Daten.QueryTables.Add( _
                Connection:="URL;" & URL, _
                Destination:=Cells(i * 11, 1))
    
                'Informationen, wie wir die Tabelle auslesen möchten
                With qt
                    .RefreshOnFileOpen = True
                    .Name = "Ergebnis"
                    .WebFormatting = xlWebFormattingNone
                    'Hier ändern, ob wir die ganzen von der Seite oder nur definierten
                    .WebSelectionType = xlSpecifiedTables
                    'Sollte mehrere Seiten ausgelesen werden, "1,2"
                    .WebTables = 2
            
                    .Refresh
        
                End With
        
        Next i
    Rows("1:9").Select
    Selection.Delete Shift:=xlUp

End Sub

 

So sieht es aus. Eigentlich sollten alle Spielergebnisse vom 1. Spieltag bis 38. Spieltag aufgerufen und automatisch in das Blatt übertragen werden. Jedoch klappt es selten.

Ich bin VBA Anfänger und versuche mich selbst einzulernen, aber ich habe bisher keine richtige Lösung gefunden.

Eurem Lösungsvorschlag werde ich echt dankbar.

Ich wünsche euch eine schöne Zeit.

 

SW

 

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • 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
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot Automatisches Datenauslesen aus mehreren Webseiten
13.10.2020 15:45:51 SW
NotSolved
13.10.2020 15:47:35 Gast57345
NotSolved
13.10.2020 16:01:54 Gast6494
NotSolved
13.10.2020 16:33:58 Gast33190
NotSolved
13.10.2020 17:28:52 Gast90095
NotSolved
13.10.2020 20:57:09 Trägheit
Solved
14.10.2020 12:52:15 SW
NotSolved
14.10.2020 15:33:52 Trägheit
Solved
15.10.2020 19:26:13 SW
NotSolved