Webabfrage und laufzeitfehler 1004
26.01.2009 17:26:00
MBorn
ich bitte um Eure Hilfe. Ich bekomme bei einer (einfachen) Webabfrage dauernd, aber in
unregelmäßigen Abständen, die Fehlermeldung "laufzeitfehler 1004 - auf die Datei konnte
nicht zugegriffen werden".
Doch die Datei ist vorhanden und wird auch gefunden, wenn in Debug-Mode das Skript mit
F5 wieder gestartet wird. Dann läuft es eine Weile und bringt später wieder dieselbe Fehlermeldung.
Manchmal läuft es auch sehr lange gut. Ich kann mir das nicht erklären. Bitte um Eure Hilfe.
Gruß und Dank,
Born
Hier ist das Skript:
Sub webabfrage()
Dim QT As QueryTable
Dim WebName As String
WebName = "italien"
For JahrWeb = 2000 To 2009
For SpTg = 1 To 30
'URL als Variable
MyStr = WebName & "/" & JahrWeb & "/" & SpTg
ConnectString = "URL;http://www.fussballdaten.de/"
& MyStr
MsgBox ConnectString
' Alle alten Querys löschen
For Each QT In ActiveSheet.QueryTables
QT.Delete
Next QT
' Neue Webabfrage
Set QT = ActiveSheet.QueryTables.Add(Connection:=ConnectString, Destination:=Range("A1") _
)
With QT
.Name = Jahr
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlOverwriteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
Next SpTg
Next JahrWeb
End Sub