contact@exceltr.com

ExcelTR - Microsoft Excel Eğitim Sitesi

Görsel Video Microsoft Excel Eğitim Sitesi
26 Ara 2011

Avrupa Merkez Bankasi ECB Kurlarini Almak

//
Yorumlar1
/

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

1 Yanıt

Cevap bırakın


4 + 3 =