yukarıdaki konu hapeloğlunda çalışıyor imecede HTLM kaynak kodlarından dolayı çalışmıyor bunu nasıl duzeteceğimi bilmiyorum.
Sub Test()
' Haluk - 10/05/2022
Dim objHTTP As Object, strURL As String
Dim HTML As Object, Tables As Object, Table As Object
Dim x As Integer, i As Long, iRow As Long
Range("A1:B" & Rows.Count).ClearContents
Range("A1:B1") = Array("Ürün", "Fiyat")
Set objHTTP = CreateObject("MSXML2.XMLHTTP")
strURL = "
https://www.imecemarket.com/meyve-sebze"
objHTTP.Open "GET", strURL, False
objHTTP.send
Set HTML = CreateObject("HTMLFILE")
HTML.body.innerHTML = objHTTP.responseText
Set Divs = HTML.getElementsByTagName("div")
For x = 0 To Divs.Length - 1
If Divs(x).classname = "productName detailUrl" Then
iRow = iRow + 1
Cells(iRow + 1, 1) = Divs(x).getElementsByTagName("a")(0).innerText
End If
If Divs(x).classname = "productPrice " Then
Cells(iRow + 1, 2) = Replace(Divs(x).ChildNodes(0).innerText, " TL KDV Dahil", "") + 0
Cells(iRow + 1, 2).NumberFormat = "#,##0.00"
End If
Next
End Sub