Hi,

I try to make a web request with following code:

With ActiveSheet.QueryTables.Add(Connection:= _

"URL;http://www.kicker.de/fussball/bundesliga/vereine/spielersteckbrief/object/" + idnr + "/saison/2007-08" _
, Destination:=Range("A1"))
.Name = "2007-08"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = "4"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With

The strange thing is that this code works poperly for around 30 queries.
Then it throws an exception (Run-time error '1004'). When I restart my makro
from the very beginning it throws this exception right at the first query,
althought it worked before. This also appears when I close Excel and start it
again.

Sometimes I can step over .Refresh BackgroundQuery:=False in Debug-Mode and
I get the web request.

The URL is defenetly there and accessible.

Does anyone have a solution for this? For any help I would be very thankful.

Thilo