Quantcast
Channel: Active questions tagged excel - Stack Overflow
Viewing all articles
Browse latest Browse all 90161

Can we fetch the specific data via using urls in vba

$
0
0

I have 15 different URLs, and I need to fetch price from the particular website in Excel a particular column, can you please help me out. It's my first VBA program and I try but it show my syntax error.

Sub myfile()    
    Dim IE As New InternetExplorer  Dim url As String  Dim item As
    HTMLHtmlElement  Dim Doc As HTMLDocument  Dim tagElements As Object 
    Dim element As Object  Dim lastRow    Application.ScreenUpdating =
    False  Application.DisplayAlerts = False  Application.EnableEvents =
    False  Application.Calculation = xlCalculationManual    url =
    "https://wtb.app.channeliq.com/buyonline/D_nhoFMJcUal_LOXlInI_g/TOA-60?html=true"

    IE.navigate url    IE.Visible = True    Do  DoEvents  Loop Until
    IE.readyState = READYSTATE_COMPLETE

    Set Doc = IE.document

    lastRow = Sheet1.UsedRange.Rows.Count + 1    Set tagElements =
    Doc.all.tags("tr")  For Each element In tagElements

      If InStr(element.innerText, "ciq-price")> 0 And
    InStr(element.className, "ciq-product-name") > 0 Then

        Sheet1.Cells(lastRow, 1).Value = element.innerText
        ' Exit the for loop once you get the temperature to avoid unnecessary processing
        Exit For   End If  Next

    IE.Quit  Set IE = Nothing    Application.ScreenUpdating = True 
    Application.DisplayAlerts = True  Application.EnableEvents = True 
    Application.Calculation = xlCalculationAutomatic
End Sub

Viewing all articles
Browse latest Browse all 90161

Trending Articles



<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>