Internetliste auslesen

Forumthread: Internetliste auslesen

24.10.2013 19:49:54

Tom

Hallo,
ich bin am verzweifeln.
Würde gerne diese Liste
http://www.swr.de/swr1/bw/musik/hitparade/titelausspielung/-/id=10469438/s8r3nf/index.html
automatisch (derzeit 44 Seiten) auslesen lassen.
Hatte so etwas schon mal gesehen, aber ich kann es nicht mehr finden.
Hat jemand nen Vorschlag? Manuell ist es echt mühsam ...
Danke vorab
Gruß
TOM

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Internetliste auslesen

25.10.2013 10:49:33

ChrisL
AW: Internetliste auslesen

25.10.2013 16:00:01

Tom
AW: Internetliste auslesen

27.10.2013 09:12:36

ChrisL
AW: Internetliste auslesen

27.10.2013 20:41:13

Tom

AW: Internetliste auslesen

25.10.2013 10:49:33

ChrisL

Hi Tom
Probier mal...
Sub Makro1()
Dim i As Byte
For i = 1 To 49
Call WAbfrage(i, Range("A65536").End(xlUp).Offset(3, 0))
Next i
End Sub

Private Sub WAbfrage(ipage As Byte, rng)
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://vote.swr.de/swr/voting/abstimmung/ergebnis/t444448-0?page=" & ipage, Destination _
:=rng)
.Name = "t444448-0_1"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = "10,14,18,22,26,30,34,38,42,46,50,54,58,62,66,70,74,78,82,86"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
End Sub

cu
Chris

AW: Internetliste auslesen

25.10.2013 16:00:01

Tom

Hi Chris,
danke mal für Deine Mühe. Da ich aber mit Makros nicht so fit bin: Wo kommt was hin?
Tabelle1 das mit Private Sub ?
Modul1 = Makro1?
Gruß
Tom

AW: Internetliste auslesen

27.10.2013 09:12:36

ChrisL

Hi Tom
Alt + F11, Menü Einfügen, Standardmodul, Code reinkopieren, abspielen.
For i = 1 To 49
bedeutet Seite 1 bis 49 durchlaufen. Vielleicht erstmal For i = 1 To 3 weil dauert ziemlich lang.
cu
Chris

AW: Internetliste auslesen

27.10.2013 20:41:13

Tom

Super Vielen Dank. Klappt wunderbar!
Guten Wochenstart!

Beliebteste Forumthreads (12 Monate)

Forumthread: Internetliste auslesen

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread