İyi çalışmalar arkadaşlar.
Ekteki örneğimde webbrowserde ki
Html tablodan normalde veri alabiliyorum ancak ; alcacağım alanların bu sefer pasif olduğundan alamıyorum.
Yardımlarınız için Teşekkürler.
Eklediğiniz örnekte veri alımı ile ilgili kod yok. Hangi kod ile veri alıyorsanız örneğinize ekleyiniz.
Private Sub Komut3_Click()
On Error Resume Next
For X = 0 To 10
nesneadi = "dgListem_txtY1_0" & X
Me.Liste1.AddItem (WebBrowser9.Document.getElementByID(nesneadi).innerText + "test")
Next X
End Sub
Merhaba, koda on error resume next kodu ile başlarsanız hataları göremezsiniz.
additem ile liste kutusuna veri aktaracaksanız liste kutusunun Satır Kaynak Türü "Deger Listesi" olması gerekli.
Birleştirme işleminde + işleci vbada kullanılmaz,
Web sayfasındaki input etiketinin id değeri "dgListem_txtY1_0",
Kod:
nesneadi = "dgListem_txtY1_0" & X
kodu çalışmaz,
Kod:
nesneadi = "dgListem_txtY1_" & X
olmalı ki dgListem_txtY1_0, dgListem_txtY1_1, dgListem_txtY1_2 şeklinde devam ederek veri alsın.
WebBrowser0.Document.getElementByID(nesneadi).innertext kodunu inputta çalıştıramazsın, kod WebBrowser0.Document.getElementByID(nesneadi).Value şeklinde olmalı.
Kod:
For X = 0 To 10
nesneadi = "dgListem_txtY1_" & X
Me.Liste1.AddItem (WebBrowser0.Document.getElementByID(nesneadi).Value)
Next X
(03/07/2019, 09:13)ozanakkaya yazdı: Merhaba, koda on error resume next kodu ile başlarsanız hataları göremezsiniz.
additem ile liste kutusuna veri aktaracaksanız liste kutusunun Satır Kaynak Türü "Deger Listesi" olması gerekli.
Birleştirme işleminde + işleci vbada kullanılmaz,
Web sayfasındaki input etiketinin id değeri "dgListem_txtY1_0",
nesneadi = "dgListem_txtY1_0" & X kodu çalışmaz, nesneadi = "dgListem_txtY1_" & X olmalı ki dgListem_txtY1_0, dgListem_txtY1_1, dgListem_txtY1_2 şeklinde devam ederek veri alsın.
WebBrowser0.Document.getElementByID(nesneadi).innertext kodunu inputta çalıştıramazsın, kod WebBrowser0.Document.getElementByID(nesneadi).Value şeklinde olmalı.
Kod:
For X = 0 To 10
nesneadi = "dgListem_txtY1_" & X
Me.Liste1.AddItem (WebBrowser0.Document.getElementByID(nesneadi).Value)
Next X
Teşekkürler value yapınca oldu.