Private Sub WebBrowser1_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As Long)
On Error Resume Next
Call WebVeri
End Sub
ayrıca komut butonu ekleyip tıklandığı olayına WebBrowser1.Document.Forms(1).Item(4).Value = "xxxxxxxx- İSMAİL TÜRKKOL"
WebBrowser1.Document.Links.Item(41).OnClick
kodunu ekleyin. Bu şekilde butonu tıkladığınızda verileri tabloya aktarır.
Sonuç hakkında bilgi veriniz.