macro..run-time error 424 Object required Hatası

[mahmutcandan]

Merhaba ekteki sayfa dün de çalışıyordu ama bugün birden run-time error 424 Object required Hatası aldım neden olabilir acaba?

 

[hasankardas]

Merhaba veri aldığınız site de problem var... https://sun.portburda.com/widget_w_300.php

 

[mahmutcandan]

Hocam siteyi https://expressdoviz.com/ değiştirebilir miyiz..burdan veri
çeksin

 

[hasankardas]

Hocam siteyi https://expressdoviz.com/ değiştirebilir miyiz..burdan veri
çeksin

Site değiştirilir ama bu defa kod yapısı değişir.. @Haluk üstat yazmış kodu.

Sub getData()
    ' Haluk - 15/08/2023

    Dim objHTTP As Object, strURL As String
    Dim HTML As Object, tables As Object
    Dim i As Long, j As Long
    Dim myTable As Object
 
    Range("A3:C7").ClearContents
    Set objHTTP = CreateObject("MSXML2.XMLHTTP")
    strURL = "https://expressdoviz.com/"
    objHTTP.Open "GET", strURL, False
    objHTTP.send
    Set HTML = CreateObject("HTMLFILE")
    HTML.body.innerHTML = objHTTP.responseText
    Set tables = HTML.getElementsByTagName("table")
    Set myTable = tables(0)
    For i = 0 To WorksheetFunction.Min(4, myTable.Rows.Length - 1)
        For j = 0 To WorksheetFunction.Min(2, myTable.Rows(i).Cells.Length - 1)
            Cells(i + 3, j + 1).Value = Trim(myTable.Rows(i).Cells(j).innerText)
        Next j
    Next i
End Sub

 

[mahmutcandan]

Hocam çok saolun teşekkürler..yalnız size zahmet SON GÜNCELLEME bilgilerini de alabilir mi

 

[halit3]

bunu ekleyiniz

MsgBox HTML.getElementsByTagName("div")(0).getElementsByTagName("span")(0).innerText

 

[hasankardas]

Sub getData()
    ' Haluk - 15/08/2023
    
    Dim objHTTP As Object, strURL As String
    Dim HTML As Object, tables As Object
    Dim i As Long, j As Long
    Dim myTable As Object
 
    Range("A3:c10").ClearContents
    Set objHTTP = CreateObject("MSXML2.XMLHTTP")
    strURL = "https://expressdoviz.com/"
    objHTTP.Open "GET", strURL, False
    objHTTP.send
    Set HTML = CreateObject("HTMLFILE")
    HTML.body.innerHTML = objHTTP.responseText
    Set tables = HTML.getElementsByTagName("table")
    Set myTable = tables(0)
    For i = 0 To WorksheetFunction.Min(4, myTable.Rows.Length - 1)
        For j = 0 To WorksheetFunction.Min(2, myTable.Rows(i).Cells.Length - 1)
            Cells(i + 3, j + 1).Value = Trim(myTable.Rows(i).Cells(j).innerText)
        Next j
    Next i
    Range("B8").Value = HTML.getElementsByTagName("div")(0).getElementsByTagName("span")(0).innerText
End Sub

 

[mahmutcandan]

teşekkürler hocam.elinize sağlık