Merhaba, iş ile ilgili data kontrolü yaptım bir site var buraya veri gönderme - arama butonuna tıklama ve veri çekme şeklinde işlem yapmam gerekiyor. Aşağıdaki kodu yazdım çalıştırmak için butona bastığımda hata veriyor hatada (Dim doc As HTMLDocument) alanını gösteriyor. Desteğinizi rica ederim.

    Dim IE As Object
    Dim doc As HTMLDocument
    Dim sURL As String
    Dim lastRowS As Long, lastRowT As Long, lastRowU As Long

    sURL = "örnek"

    Set IE = CreateObject("InternetExplorer.Application")
    With IE
        .Visible = True
        .navigate sURL
        Do While .Busy Or .readyState <> 4
            DoEvents
        Loop
        Set doc = .document
    End With

    doc.getElementById("ctl00_cphDetail_txtPlaka").Value = ThisWorkbook.Sheets("Örnek").Range("V1").Value
    doc.getElementById("ctl00_cphDetail_btnAracBul").Click

    Do While IE.Busy Or IE.readyState <> 4
        DoEvents
    Loop

    lastRowS = ThisWorkbook.Sheets("Örnek").Cells(Rows.Count, "S").End(xlUp).Row + 1
    ThisWorkbook.Sheets("Örnek").Cells(lastRowS, "S").Value = doc.getElementById("ctl00_cphDetail_txtTescilTarihi").Value

    lastRowT = ThisWorkbook.Sheets("Örnek").Cells(Rows.Count, "T").End(xlUp).Row + 1
    ThisWorkbook.Sheets("Örnek").Cells(lastRowT, "T").Value = doc.getElementById("ctl00_cphDetail_txtAracTipi").Value

    lastRowU = ThisWorkbook.Sheets("Örnek").Cells(Rows.Count, "U").End(xlUp).Row + 1
    ThisWorkbook.Sheets("Örnek").Cells(lastRowU, "U").Value = doc.getElementById("ctl00_cphDetail_txtLastikEbadi").Value

    IE.Quit
    Set IE = Nothing