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
meşhur çin atasözü "ACCESS İLE YAPABİLECEKLERİNİZ HAYAL EDEBİLECEKLERİNİZ İLE SINIRLIDIR" siz ne kadar hayal edebiliyorsunuz
Son Düzenleme: 09/03/2010, 10:39, Düzenleyen: esrefigit.