AccessTr.neT

sn hayri16, ekteki örneği deneyebilir misin?

Sayın sledgeab;
Ellerinize sağlık. Çok teşekkür ediyorum. Evet çok iyi çalışıyor. Şimdi kodları inceleyip anlamam lazım. Çünkü bu siteyle bayağı haşır neşir olacağız mesleğimiz gereği. Tekrar teşekkür ediyor saygılar sunuyorum.

kodun bu

Private Sub Komut1_Click()
Dim a As Integer
Dim ekle, ekle1, ekle2, ekle3, ekle4, ekle5, ekle6, ekle7, ekle8 As String
recliste.RowSource = ""
For a = 0 To 2
ekle = WebBrowser1.Document.all.tags("table").Item(1).Rows(a).Cells(1).innerText
ekle1 = WebBrowser1.Document.all.tags("table").Item(1).Rows(a).Cells(2).innerText
ekle2 = WebBrowser1.Document.all.tags("table").Item(1).Rows(a).Cells(3).innerText
ekle3 = WebBrowser1.Document.all.tags("table").Item(1).Rows(a).Cells(4).innerText
ekle4 = WebBrowser1.Document.all.tags("table").Item(1).Rows(a).Cells(5).innerText
ekle5 = WebBrowser1.Document.all.tags("table").Item(1).Rows(a).Cells(6).innerText
ekle6 = WebBrowser1.Document.all.tags("table").Item(1).Rows(a).Cells(7).innerText
recliste.AddItem ekle & ";" & ekle1 & ";" & ekle2 & ";" & ekle3 & ";" & ekle4 & ";" & ekle5 & ";" & ekle6 & ";" & ekle7
Next
End Sub

---

sayın sledgeab kusura bakma senin örneği görmemiştim

Size de teşekkür ederim Sayın esrefigit;
Kodunuz benim yapmaya çalıştığım gibi listeye ekliyor. Sayın sledgeab'ın ki direkt tabloya kaydediyor. Her ikinize de tekrar teşekkürlerimi sunuyorum. Saygılarımla..

benim bir sorum olacak bunun devamı olarak, eğer sayfanın altında 1 / 2 / 3 / 4 / ... gibi sayfa sayıları olsaydı bunları almak için nasıl bir kod gerekirdi???

Sayın tamyoltornistan;
Eczacı mısınız? Çünkü ben de aynı konuda çalışma yapıyorum o nedenle sordum.