Skip to main content

AccessTr.neT


Etiketler
Yazar: akd - Cevaplar: 6 - İzleme: 4067
kurun efektif alış ve satışı
Merhaba arkadaşlar,
aşağıdaki kur alış koduna dolar effektif alış ve effektif satışı nasıl ekleyebilirim.?

[vb]Sub GünlükKurlar()
Dim strPathB As String
Dim IEb As Object
Dim tempB As Variant

strPathB = "http://www.tcmb.gov.tr/kurlar/today.html"

Set IEb = CreateObject("InternetExplorer.Application")
With IEb
.Navigate strPathB
Do Until IEb.ReadyState = 4: DoEvents: Loop

temp = IEb.Document.All.Item.innerHTML
End With
Me.txtGünlükDolarAlış = Val(Replace(Mid(temp, InSt
Task