Avrupa Merkez Bankasi ECB Kurlarini Almak

Avrupa Merkez Bankasi ( European Central Bank) gunluk kurlarini alabilmek icin gerekli bir makroyu sizler ile paylasmak istedik. Islem esnasinda ECB`nin gubluk kurlar sayfasini bir sayfamiza alip oradaki belirli verileri baska bir sayfada temize cekmek kaydi ile basit bir islem yaparak kurlari aciga cikartiyoruz.

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("C31:C63").Copy s2.Range("J2")
Application.ScreenUpdating = True
End Sub

Avrupa merkez Bankasi ECB Kurlarini Almak

Yazar: mmustafaaslan

2004 yilindan itibaren ozel bir sirketin finans departmaninda calismaktadir. Kendini excel, visual basic kullaniminda gelistirmis olan yazarimiz; Meslegi geregi SAP konusunda ileri derecede bilgilidir.

“Avrupa Merkez Bankasi ECB Kurlarini Almak” için 1 yorum

Bir Cevap Yazın

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir


5 + 9 =