Habe eine code die mir nach einer Abfrage folgende Informationen aus einer Website heraus holt:
IstWerte:
Ich würde den Code gerne umbauen sodass er aber wie bei meinen SollWerten erkennbar aus Spalte A:A die Felder abfragt und in Spalten C,D,E,usw das Ergebnis reinschreibt
Weiters soll er mir oben in den Zeilen 1 & 2 darüber schreiben um welchen Anbieter & welches Produkt es sich handelt.
SollWerte:
Folgenden Code verwende ich dafür im Moment:
Set doc = IE.document.GetElementsByTagName("table")
Dim rng As Range
Dim tbl As Object
Dim rw As Object
Dim cl As Object
Dim tabno As Long
Dim nextrow As Long
Dim i As Long
Dim xl As String
Dim y As Integer
Set ws = Sheets("detail")
For Each tbl In doc
tabno = tabno + 1
nextrow = nextrow + 1
Set rng = ws.Range("B" & nextrow)
rng.Offset(, -1) = "Table " & tabno
For Each rw In tbl.Rows
For Each cl In rw.Cells
rng.Value = cl.innertext
Set rng = rng.Offset(, 1)
i = i + 1
Next cl
nextrow = nextrow + 1
Set rng = rng.Offset(1, -i)
i = 0
Next rw
Next tbl
Hoffe auf eure Hilfe!
Lg Martin