Hallo liebe Leser,
ich habe ein Makro gefunden,das mir vom Ansatz her hilft.
Code:
Sub adsf()
Dim Internet As Object
Set Internet = CreateObject("InternetExplorer.Application")
Internet.Navigate [a1]
Do While Not Internet.ReadyState = 4
DoEvents
Loop
Internet.Visible = True
Internet.execwb 17, 0
Internet.execwb 12, 0
Internet.execwb 18, 0
Do While Not Internet.ReadyState = 4
DoEvents
Loop
Internet.Quit
Set Internet = Nothing
Tabelle3.Paste
End Sub
Wenn ich das Makro mit der von mir gewünschten Internet-Adresse
(steht in A1 auf dem 1.Tabellenblatt) ausführe,
wird mir der Inhalt der Webseite in mein 3.Tabellenblatt geschrieben.
Soweit so gut.
Nun mein Problem dabei:
In Wirklichkeit habe ich nicht nur die eine Webseite abzufragen,sondern ca.300.
Die Seiten sind alle "fast" gleich aufgebaut (mal ein paar Zeilen mehr od. weniger),
der Inhalt erstreckt sich jeweils über den Zellbereich A1:C~450.
Ich benötige eigentlich nur den Inhalt von 3 Zellen:
steht mein Suchwort(auf allen Seiten gleich) z.B.in A158,dann benötige ich B161,B162,B163 ;
steht mein Suchwort(auf allen Seiten gleich) z.B.in A167,dann benötige ich B170,B171,B172 ;
also immer 3 Zeilen weiter in Spalte B.
Alles andere interessiert mich nicht.
Die Webadressen sind alle gleich bis auf den hinteren Teil(Text1-Text300):
http://www.###########.de/#########/######,###############/######,##/####,#########/####,#########/#########,Text1/####,##/
http://www.###########.de/#########/######,###############/######,##/####,#########/####,#########/#########,Text2/####,##/
http://www.###########.de/#########/######,###############/######,##/####,#########/####,#########/#########,Text3/####,##/
usw.
http://www.###########.de/#########/######,###############/######,##/####,#########/####,#########/#########,Text300/####,##/
(Könnten ja alle auf dem 1.Tabellenblatt in den Zellen A1-A300 stehen)
Meine Vorstellung ist die,daß mir per Makro der Inhalt aller ca.300 Seiten (vorzugsweise nur die jeweils 3 benötigten Zellen)
automatisch in einem Rutsch abgefragt und eingelesen wird.Dabei wäre es mir egal ob dies auf einem oder auf mehreren Tabellenblättern geschieht.
(Das was ich benötige würde ich mir dann zur Weiterverarbeitung anschließend herausfiltern)
Ist mein Vorhaben grundsätzlich zu realisieren?
Wenn ja,geht es mit dem o.g. Code,indem man ihn entsprechend ergänzt oder abändert?
Hat jemand vielleicht eine bessere Idee wie man es machen kann?
Mein momentanes Problem ist,daß ich von VBA so gut wie keine Ahnung habe,also bitte für Doofe erklären.
Besten Dank im voraus
Gruß
Jürgen |