DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
boyle bir cozum olablirmi?turkanet' Alıntı:linke baktım ve oldu ama benim istediğim; tüm kurları değil sadece sterlin'i alması. onu nasıl yapabilirim?
Sub veri_al()
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://www.koc.net/finans/serbestdoviz.jsp", Destination:=Range("A8"))
.Name = "serbestdoviz"
.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 = "2"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
Rows("9:18").Delete Shift:=xlUp
Rows("10:17").Delete Shift:=xlUp
Range("A8").Select
End Sub
Sub veri_al()
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://www.koc.net/finans/serbestdoviz.jsp", Destination:=Range("A8"))
.Name = "serbestdoviz"
.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 = "2"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
[b]Rows("11:27").Delete Shift:=xlUp[/b]
Range("A8").Select
End Sub