dış veri alma hakkında

[hurkanpisirici]

problemimi dosyamda anlattım.anlaşılabilir bişey zaten a1 hücresine www.tcmb.gov.tr adresindeki günllük kur rakamının gelmesini sitiyorum denedim ama olmadı.

 

[hurkanpisirici]

ustalar için basit bi soru bu

 

[hurkanpisirici]

gerçekten bu kadar zormuuu?

 

[Zeki Gürsoy]

Burada bir örnek var. Kendinize uyarlayabilirsiniz.

T.C.M.B. Günlük Döviz Bilgilerini Sorgulama

 

[hurkanpisirici]

sayın anemos ilginize teşekkür ederim bu nu incelemiştim ben daha basit birşey istiyorum yalnız en azından kodsuz.

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

Sub dovizal()
Dim hucre As Range
[a:c].ClearContents
    With ActiveSheet.QueryTables.Add(Connection:="URL;http://www.tcmb.gov.tr/yeni/tablolar.php", Destination:=[a1])
        .WebFormatting = xlWebFormattingNone
        .WebTables = "4"
        .Refresh BackgroundQuery:=False
    End With
    For Each hucre In [b3:c4]
    hucre = hucre / 10000
    Next
    [b3:c4].NumberFormat = "General"
End Sub

 

[hurkanpisirici]

harikasınız.bunu ekseliin dış veri al özelliğinde yapmaya çalıştım ama olmadı

 

[Levent Menteşoğlu]

harikasınız.bunu ekseliin dış veri al özelliğinde yapmaya çalıştım ama olmadı

Bende aynı özelliği kullanarak veriyi aldım. Bu kodlarda aynı esnada yapılan makro kaydet ile elde edilmiştir.

 

[hurkanpisirici]

hımm şimdi anladım o özelliği kullandığımız anda bu kodlar oluşuyor teşekkürler.