AccessTr.neT

sayınsledgeab;
yeni konu açıyorum.
aşağıdkai linkte konunun öncesi var.
https://accesstr.net/konu-web-uzerinden-...0#pid47510


Private Sub WebBrowser1_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As Long)
On Error Resume Next
Dim IE As Object
Set IE = Me.WebBrowser1
Me.Metin29 = IE.Document.All.tags("table").Item(9).Rows(0).Cells(1).innerText
Me.Metin31 = IE.Document.All.tags("table").Item(9).Rows(1).Cells(1).innerText
Me.Metin33 = IE.Document.All.tags("table").Item(9).Rows(2).Cells(1).innerText
Me.Metin35 = IE.Document.All.tags("table").Item(9).Rows(3).Cells(1).innerText
WebBrowser3.Navigate2 "http://iski.gov.tr/Web/Swfs/BarajDolu_Oran.swf"
Call ResimGetir
End Sub


buradaki Item rows cells kısımlarını nerden buldunuz. kaynak kodlara bakıyorum bulamadım.

web sayfasından veri çektiğimiz alan aşağıdaki resimdeki gibi tablo şeklinde.
Resme row ve cell değerlerini gösterdim.
item değerini bulmak için sayfa kaynağını aç, yukarıdan aşağıya kaçıncı "<table" olduğunu say.

ilgilendiğiniz için teşekkür ederim. uğraşıp sonuç almaya çalışacağım.

ben hala sizin iyiliğiniz için ısrar etmek zorundayım. Uzak duruun

uzak durun deme sebebiniz nedir?

sayın sledgeab;

peki kendi formumuzdan bir checbox ve komut tuşuyla sogulatmayı nasıl yaparız, internetten otomatik bir şekilde..


diyelim bu sayfatan,
http://www.diyanet.gov.tr/turkish/dy/Diy...ri-80.aspx


örnek dosya ektedir..
tek satırlık bilgi alsakta olur
öğrenmemiz açısından..

teşekkür ederim bilgi ve paylaşımınızdan dolayı..