VBNET 2nci defa butona basışımda hata veriyor.

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Merhaba.
Aşağıdaki kodlarda ilk butona bastığımda çalışıyor.
2nci defa basınca hata veriyor.
Nasıl yapmalıyım?
Hata veren satırı kırmızı ile boyadım.
Rich (BB code):
Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim IE As Object, t As Object, j As Byte
        IE = CreateObject("InternetExplorer.Application")
        For j = 0 To 2
            DataGridView1.Item(j, 0).Value = ""
        Next
        'IE.visible = True
        IE.Navigate("https://www.haremaltin.com/")
        Do While Not IE.readyState = 4
            My.Application.DoEvents()
        Loop
        Do While IE.busy : My.Application.DoEvents() : Loop
        t = IE.Document.GetElementbyId("table1").all(0)
        For j = 0 To t.Rows(1).Cells.Length - 1
            DataGridView1.Item(j, 0).Value = t.Rows(1).Cells(j).innertext
        Next
        t = Nothing
        IE.Quit
        IE = Nothing
        MsgBox("bitti")
    End Sub
End Class
 

Zeki Gürsoy

Uzman
Uzman
Katılım
31 Aralık 2005
Mesajlar
4,225
Excel Vers. ve Dili
Office 2019 (64 bit) - Türkçe
Pek emin değilim ama, IE nesnesinin Release edilmemesinden olabilir. WebBrowser kullanmayı deneseniz...?
 

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Pek emin değilim ama, IE nesnesinin Release edilmemesinden olabilir. WebBrowser kullanmayı deneseniz...?
Teşekkür ederim,hocam.
Web browser kullanırsam verileri oradan datagridviewe verileri alabilirmiyim?
 

Zeki Gürsoy

Uzman
Uzman
Katılım
31 Aralık 2005
Mesajlar
4,225
Excel Vers. ve Dili
Office 2019 (64 bit) - Türkçe
Sayfa düzgün yükleniyorsa elbette...
 

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Teşekkür ederim hocam.
Örnek kod verebilirmisin?
 
Üst