"ungültige Webabfrage"
20.07.2004 13:14:01
Florian Rottke
Ich bin im Moment kurz vorm Aufgeben.
Die Problematik:
Ich möchte per Webabfrage von mehreren verschiedenen Seiten Inhalte einfügen. Das ganze soll dynamisch (mehr oder weniger) laufen.
Allerdings bekomme ich grundsätzlich die Fehlermeldung "ungültige Webabfrage".
Was genau will mir XL damit sagen?
Mein Code:
Sub drawMap()
Dim map_cells, map_rows
Dim qtQtrResults(55)
Dim coords(2) As Integer
map_cells = 1
map_rows = 5
coords(1) = 75
coords(0) = 138
For i = 1 To map_cells
For j = 1 To map_rows
Row = Trim(Str(coords(0) + (i - 1) * 5))
Cell = Trim(Str(coords(1) + (i - 1) * 5))
url = "www.bliblablubb.de/index.php?cell=" + Cell + "&row=" + Row
Set qtQtrResults(i * 10 + j) = Sheets("Karte").QueryTables _
.Add(Connection:="URL;" + url, _
Destination:=Sheets("Karte").Cells(1 + (j - 1) * 25, 1 + (i - 1) * 5))
With qtQtrResults(i * 10 + j)
.WebFormatting = xlAll
.WebSelectionType = xlSpecifiedTables
.WebTables = "3"
.EnableRefresh = False
End With
Next
Next
End Sub
Was mache ich verkehrt und wie kann man das hinbekommen?