Web adresinden labele veri al

[işsiz123]

http://www.verginet.net/dtt/1/Damga-Vergisi-Oranlari.aspx Adresindeki "Binde 9.48" olan veriyi label1 "0.00948" olarak almak

 

[PLİNT]

Merhaba
Örnek dosya eklermisiniz? http://s3.dosya.tc/

 

[Murat OSMA]

Bu kodları kullanabilirsiniz.

[FONT="Trebuchet MS"][SIZE="2"]Sub Emre()
    Set http = CreateObject("msxml2.xmlhttp")
    Set doc = CreateObject("htmlfile")
    http.Open "get", "http://www.verginet.net/dtt/1/Damga-Vergisi-Oranlari.aspx", False
    http.send
    doc.write http.responsetext
    http.abort
    Label1.Caption = Mid(doc.All.Item(734).innertext, 8, 4) / 1000
    doc.Close
End Sub[/SIZE][/FONT]