Hallo!
Ich müsste von einer Website mehere Seiten in ein Excel Sheet kopieren. Würde das gerne automatisch mit einer Schleife machen. Es wird allerdings immer nur die erste Seite kopiert. Kann mir jemand helfen wie man auf andere Seiten zugreifen kann?
Dim intz As Integer
For intz = 2 To 10 Step 1
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://firmen.wko.at/Web/Ergebnis.aspx?StandortID=0&Branche=24453& _
BranchenName=Friseure&CategoryID=0&Page= " & intz&,_
Destination:=Range("A65536").End(xlUp).Offset(1, 0))
............................
End With
Next intz
End Sub
lg erwin
|