Webabfrage will nicht in neue Zeile
14.09.2007 13:36:46
Ben
irgendwie versteh ich das nicht , ich möchte mehrere Seiten abfragen und diese untereinander in mein worksheet einfügen. Blöderweise wandert aber alles immer nach rechts. Kann mir jnd helfen ? (Achtung, die Schriftfarbe ist durch den Import weiß)
Sub Aufruf()
Dim tbl As QueryTable
Dim sSearch As String
Dim k As Single
For k = 1 To 4
sSearch = "http://www. _
igeo.pt/produtos/geodesia/vg/rgn/ficha.asp?num="
& k
Set tbl = ActiveSheet.QueryTables.Add( _
Connection:="URL;" & sSearch, _
Destination:=Range("A1"))
With tbl
.FieldNames = False
.RefreshOnFileOpen = False
.Refresh BackgroundQuery:=False
End With
Next k
End Sub
Anzeige