Avrupa Merkez Bankasi Kurlari

[mustafaine1]

http://www.ecb.int/stats/exchange/eurofxref/html/index.en.html

http://www.ecb.europa.eu/stats/eurofxref/eurofxref-daily.xml

arkadaslar bu sayfadaki kurlari otomatik excel almanin yolu varmidir acaba?

 

[Ömer]

Merhaba,

Eki inceleyiniz..

.

 

[mustafaine1]

mukemmel gorunuyor omer eline saglik hemen incelemeye geciyorum..

 

[mustafaine1]

baska bi sayfadan kurlar sayfasina link verdigimizde kodda sorun oluyo butonu baska sayfadan calistirsak ve kurlar sayfasindan verileri linklesek kodlamayi nasil edit etmemiz gerekir

 

[Ömer]

baska bi sayfadan kurlar sayfasina link verdigimizde kodda sorun oluyo butonu baska sayfadan calistirsak ve kurlar sayfasindan verileri linklesek kodlamayi nasil edit etmemiz gerekir

Sub Al()
Application.ScreenUpdating = False
Set S1 = Sheets("verial")
Set S2 = Sheets("kurlar")
   
   URL1 = "URL;http://www.ecb.int/stats/exchange/eurofxref/html/index.en.html"
    
    With S1.QueryTables.Add(Connection:=URL1, Destination:=S1.Range("A1"))
        
        .Name = "index.en"
        .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:=False
    End With
Dim x As Long

S1.Range("A125:A157").Copy S2.Range("J2")
For x = 2 To 34
S2.Cells(x, "a") = Split(S2.Cells(x, "j"), "=")(0) & "Eur"
S2.Cells(x, "b") = Split(S2.Cells(x, "j"), " ")(3)
S2.Cells(x, "c") = Split(S2.Cells(x, "j"), " ")(4)
Next
S2.Range("J1:J65536").ClearContents
Application.ScreenUpdating = True
    
End Sub

.

 

[mustafaine1]

split`ten sonraki cell`lere koymamisim s2 atamalarini o yuzden calistiramamisim eline saglik tekrar kolay gelsin..