bu makrodaki sıkıntı nedir acaba

[ali14]

sayın forum üyesi arkadaşla merhaba daha önceden veri alabildiğim siteden şimdi veri çekemiyorum
site adı: https://tr.investing.com/currencies/usd-try-historical-data
aşağıdaki kodun neresini düzeltirsem gene eskisi gibi çalışır makrom şimdiden teşekkürler..






Sub VERİ_AL()
Dim SAYFA As Worksheet, X As Long, URL_LİNK As String

Application.ScreenUpdating = False

For Each SAYFA In Worksheets
If SAYFA.Name <> "ANA_SAYFA" Then
Application.DisplayAlerts = False
SAYFA.Delete
Application.DisplayAlerts = True
End If
Next

For X = 1 To Sheets("ANA_SAYFA").Range("A65536").End(3).Row
URL_LİNK = Sheets("ANA_SAYFA").Cells(X, 1)

ActiveWorkbook.Worksheets.Add , After:=Sheets(Worksheets.Count)

ActiveSheet.Name = "ANALİZ_" & X

With ActiveSheet.QueryTables.Add(Connection:="URL;" & URL_LİNK, Destination:=Range("A1"))
.Name = "ANALİZ_" & X
.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 = "1;2;3;4,5,6,7"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = True
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With

Next

Sheets("ANA_SAYFA").Select

Application.ScreenUpdating = True

MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[ali14]

Güzel en azından konuyu görüntüleyen arkadaş sayısı çok.İnşallah bir bilen yardımcı olacaktır...Lonu günceldir arkadaşlar çözüme muhtaç.(((

 

[ali14]

help heleelppp

Arkadaşlar lütfen konu güncel yardımlarınızı bekliyorum..