Web ten veri alma problemi

[akmes]

Merhaba;

Aşağıdaki kola ilgili web sitesinden veri alıyorum,bugün almaya kalktığımda,Run-time error '1004' hatası veriyor. Debug tuşuna bastığımda ilgili kod sayfasında altta kırmızı olarak belirttiğim (Refresh BackgroundQuery:=False) bu satırı koyulaştırıyor.Sorun ne olabilir sizden yardımınızı rica ediyorum.

Sub verilerial_1()
Cells.ClearContents
hafta = Val(InputBox("haftayı giriniz"))
Select Case Len(hafta)
Case 2
hafta = "0" & hafta
yil = 11
Case 3
hafta = hafta
yil = 11
End Select
deger = yil & hafta

With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://www.tahminkolik.com/IddaaProgram.aspx?week=" & deger & "", Destination:=Range("$A$2"))
.Name = "IddaaProgram.aspx?week=" & deger & ""
.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
End Sub

 

[YUSUF44]

Kodlamadan anlamam ama o satır ya True olur ya da False, true olarak denediniz mi? Sanıyorum arkaplanda sorguyu yenileme komutu oluyor.