HILFE QUERY TABLE bekomme LAUFZEITFEHLER 1004
18.04.2007 09:23:00
alcatraz
Ich habe vor eine Webafragee zu straten und die Daten in eine Excel Tabelle zu übertragen.
Leider bekomme ich hierbei die Fehlermeldung 1004 Laufzeitfehler.
Wäre super lieb,wenn mir geholfen wird. Danke
Hier mein Code:
Sub WebQuery()
'Hier muss die Webadresse eingetragen werden
Dim LinkAdresse As Variant
LinkAdresse = InputBox("Adresse ", "Linkadresse...")
'If Len(CStr(LinkAdresse)) > 2 Then
' End If
With ActiveSheet.QueryTables.Add(Connection:="Url;" & LinkAdresse, Destination:=Range("A1" _
))
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=True
End With
End Sub