I am trying to scrap product titles and prices from the website to copy in column A&B of sheet(1). The code was originally developed for Amazon. Any help to update it to get it. The result will be like image below. Thank you !
Code
Public Sub Dara_Product()
'VBE>Tools>References> Microsoft HTML Object Library
Dim html As MSHTML.HTMLDocument
Set html = New MSHTML.HTMLDocument
With CreateObject("MSXML2.XMLHTTP")
' change the url for the page of amazon from where to copy data
.Open "GET", "https://www.daraz.lk/catalog/?from=input&q=sarees&ppath=31186:3287", False .setRequestHeader "User-Agent", "Mozilla/5.0" .send html.body.innerHTML = .responseText
End With
' 1. declare additional headers as variable
Dim headers(), titles As Object, prices As Object, original_prices As Object
Dim seller As Object
headers = Array("Title", "Price")
With html Set titles = .querySelectorAll(".c3gUW0,.c13VH6") Set prices = .querySelectorAll(".------------") End With
Dim results(), r As Long, priceInfo As String
ReDim results(1 To titles.Length, 1 To UBound(headers) + 1)
For r = 0 To titles.Length - 1 results(r + 1, 1) = titles.Item(r).innerText
Next
Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("Sheet1")
With ws .Cells(1, 1).Resize(1, UBound(headers) + 1) = headers .Cells(2, 1).Resize(UBound(results, 1), UBound(results, 2)) = results
End With
End sub
Display More