Daten von der svg-Website mit Excel vba importieren

755
Nuno Coelho

Hallo an alle, die versuchen, eine Tabelle von einer Website zu importieren, die ich für SVG halte.

Die Tabelle, die ich importieren möchte, ist http://clubelo.com/2018-02-11/Ergebnisse

Alles, was ich habe, ist ein grundlegender Code, um Text von einer normalen Website zu importieren. Ich bin für VBA sehr neu.

Kann mir jemand mit einem VBA-Skript helfen, diese Daten nach Excel zu importieren.

0
Gehen Sie zu [http://api.clubelo.com/2018-02-11] (http://api.clubelo.com/2018-02-11) und Sie können die Daten im Format ** csv ** abrufen. bereit zum Import in Excel. jcbermu vor 6 Jahren 0
Es tut uns leid. Die Daten in der API sind unterschiedlich. Es ist das Ranking, nicht die Ergebnisse. jcbermu vor 6 Jahren 0
Wenn Sie das tun, werden Sie feststellen, dass Sie die Tabelle nicht importieren. Ich habe das getan. Sie importieren nur die linke Spalte der Site. Nuno Coelho vor 6 Jahren 0
Ja, du hast Recht. Es tut uns leid. Mein Fehler. jcbermu vor 6 Jahren 0
Kein Problem. Ich bin verrückt nach dieser Sit, e weil ich nicht verstehen kann, wie man diese Tabelle importiert ... Nuno Coelho vor 6 Jahren 0

1 Antwort auf die Frage

0
Rajesh S

Dieser Code importiert Table aus dem Weblink.

 Sub Import_SVGTabledata()  Dim url As String, links_count As Integer Dim i As Integer, j As Integer, row As Integer Dim XMLHTTP As Object, html As Object Dim tr_coll As Object, tr As Object Dim td_coll As Object, td As Object  links_count = 1 For i = 0 To links_count  url = "Type Your Link Here" & i & ".html"  Set XMLHTTP = CreateObject("MSXML2.XMLHTTP") XMLHTTP.Open "GET", url, False XMLHTTP.send  Set html = CreateObject("htmlfile") html.body.innerHTML = XMLHTTP.ResponseText  Set tbl = html.getelementsbytagname("Table")  Set tr_coll = tbl(0).getelementsbytagname("TR")  For Each tr In tr_coll j = 1 Set td_col = tr.getelementsbytagname("TD")  For Each td In td_col Cells(row + 1, j).Value = td.innerText j = j + 1 Next row = row + 1 Next Next  MsgBox "Done" End Sub

Hinweis: Sie können den LINK COUNT durch Ihren Wert ersetzen und für die URL den Link eingeben, den Sie verwenden möchten.

Ich hoffe, das hilft Ihnen, da es sich um einen getesteten Code handelt.

Es funktioniert nicht für diese Seite, aber trotzdem danke. :) Nuno Coelho vor 6 Jahren 0
Schön, von Ihnen zu hören, @NunoCoelho, welche Seite Sie benutzt haben! Rajesh S vor 6 Jahren 0

Verwandte Probleme