Set IE = CreateObject("Int.Application") yerine WebBrowser ı kullanmak istiyorum.

[Kemal Demir]

Set IE = CreateObject("Int.Application") yerine WebBrowser ı kullanmak istiyorum.

Arkadaslar herkese iyi calismalar,

URL = alan

[b]Aşagıdaki Set Tanımı ile yeni sayfa açmak yerine userform kullanarak berlirlernen adresten veriyi nasıl alabilirim[/b]
Set IE = CreateObject("InternetExplorer.Application")

[b]Aşagıdaki 2 satırda ne gibi değişiklik yapmam gerekecek,ie yi nasıl  webbrowser'a eşitleyebilirim.[/b]
WebBrowser1.Navigate2 (alan) 'CreateObject("InternetExplorer.Application")
    With IE
        .Navigate URL
        .Visible = True
        Do Until IE.ReadyState = 4: DoEvents: Loop
        With .document.all
        End With
     IE.document.Title = "Sayfa " & x
        Set HTML_Body = IE.document.getElementsByTagName("Body").Item(0)
        Set HTML_Tables = HTML_Body.getElementsByTagName("Table")
        Set MyTable = HTML_Tables(3)
    For x = 1 To 100
    son = [a65536].End(3).Row + 2
    Range("a" & son) = MyTable.Rows(x).Cells(0).innerText
    Range("b" & son) = MyTable.Rows(x).Cells(1).innerText
    Range("c" & son) = MyTable.Rows(x).Cells(2).innerText
 Next

Bu konuda yardımcı olabilirmisiniz arkadaslar.İyi Calismalar.

 

[Mahmut Kök]

Sayın hocam, Set ie=... tanımlamasını iptal edip, ie geçen diğer yerleri de WebBrowser1 olarak değiştirmeyi deneyebilirsiniz. (Emin değilim)

 

[Kemal Demir]

Mesleki,

Teşekkurler bende denemiştim. ama .Navigate2 leri bıraktıgım için olmamıstım.
.Navigate2 leri silince istediğim oldu.

Teşekkurler oneriniz için.