Webseite importieren
04.11.2005 16:11:23
Peter
ich habe ein Problem beim Importieren einer Webseite und hoffe, daß Ihr eine gute Idee zur Lösung dieses Problemes habt ...
Zum Abfragen von Webinformationen nutze ich schon seit längerem die folgende Funktion:
Function WebAufruf(wName$, TB As Worksheet)
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;" & wName, _
Destination:=Range("A1"))
.FieldNames = False
.RefreshStyle = xlInsertDeleteCells
.RowNumbers = False
.FillAdjacentFormulas = False
.RefreshOnFileOpen = False
.HasAutoFormat = True
.BackgroundQuery = True
.TablesOnlyFromHTML = True
.Refresh BackgroundQuery:=False
.SavePassword = False
.SaveData = True
End With
End Function
Bislang hat das auch immer funktioniert.
Bei einer neuen Webseite haut mir Excel mit den Worten "Ungültige Webabfrage" auf die Finger ...
Die angegebene URL sieht so aus :
http://www.Hugo.de/modules.php?name=Hugo1&Von=100&Bereich=^[Ss]
Habt Ihr eine Ahnung warum das schiefgeht ... und wenn ja wie könnte es denn klappen ?
Vielen Dank schon jetzt für Eure Hilfe und viele Grüße
Peter