Werte Internettabelle in Arbeittsblatt

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Robert,
hier ein Beispiel, wie Du eine Tabelle (hier nur als Werte) aus einer Tabelle aus einer Web-Site holen kannst.

Option COMPARE TEXT

Sub LadeIETabelle(rZiel As Range, sUrl As String, Optional TabNr As Integer)

'Tabelle aus einer WEB-Anwendung kopieren (KHV Okt 2018)

 Dim oIE As Object, sarr() As String

 Dim iZeile As Long, iSpalte As Long, iAnzZl As Long, iAnzSp As Long

 Set oIE = CreateObject("InternetExplorer.application")

 oIE.Navigate2 sUrl                                       'Zur Url surfen

 oIE.Visible = False

 While Not oIE.readyState = 4: DoEvents: Wend             'Warten bis Seite geladen ist

 With oIE.document.all.tags("table")(TabNr)               '4.Tabelle ansprechen

  iAnzZl = .Rows.Length

  iAnzSp = .Rows(0).Cells.Length

  ReDim sarr(iAnzZl, iAnzSp)

  For iZeile = 0 To iAnzZl - 1

   For iSpalte = 0 To iAnzSp - 1

     sarr(iZeile, iSpalte) = .Rows(iZeile).Cells(iSpalte).innerText

   Next iSpalte

  Next iZeile

 End With

 If iAnzZl &GT; 0 And iAnzSp &GT; 0 Then _

 rZiel.Resize(iAnzZl, iAnzSp).value = sarr()

 oIE.Quit

 Set oIE = Nothing

End Sub

Sub Test()

 With ThisWorkbook.Sheets("Web")    'Zielblatt

  .Select

  .Cells.Clear                      'Vorher löschen

  LadeIETabelle .Range("$A$1"), "http://www.kalenderpedia.de/ferien/ferien-2018.html", 4

 End With

End Sub

viele Grüße
Karl-Heinz

Hallo Robert,
hier ein Beispiel, wie Du eine Tabelle (hier nur als Werte) aus einer Tabelle aus einer Web-Site holen kannst.

Option COMPARE TEXT

Sub LadeIETabelle(rZiel As Range, sUrl As String, Optional TabNr As Integer)

'Tabelle aus einer WEB-Anwendung kopieren (KHV Okt 2018)

 Dim oIE As Object, sarr() As String

 Dim iZeile As Long, iSpalte As Long, iAnzZl As Long, iAnzSp As Long

 Set oIE = CreateObject("InternetExplorer.application")

 oIE.Navigate2 sUrl                                       'Zur Url surfen

 oIE.Visible = False

 While Not oIE.readyState = 4: DoEvents: Wend             'Warten bis Seite geladen ist

 With oIE.document.all.tags("table")(TabNr)               '4.Tabelle ansprechen

  iAnzZl = .Rows.Length

  iAnzSp = .Rows(0).Cells.Length

  ReDim sarr(iAnzZl, iAnzSp)

  For iZeile = 0 To iAnzZl - 1

   For iSpalte = 0 To iAnzSp - 1

     sarr(iZeile, iSpalte) = .Rows(iZeile).Cells(iSpalte).innerText

   Next iSpalte

  Next iZeile

 End With

 If iAnzZl &GT; 0 And iAnzSp &GT; 0 Then _

 rZiel.Resize(iAnzZl, iAnzSp).value = sarr()

 oIE.Quit

 Set oIE = Nothing

End Sub

Sub Test()

 With ThisWorkbook.Sheets("Web")    'Zielblatt

  .Select

  .Cells.Clear                      'Vorher löschen

  LadeIETabelle .Range("$A$1"), "http://www.kalenderpedia.de/ferien/ferien-2018.html", 4

 End With

End Sub

viele Grüße
Karl-Heinz

Beliebteste Forumthreads (12 Monate)

Werte Internettabelle in Arbeittsblatt

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread