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
|