VBA: import img source from list of URLs

[mike93]

Hey all,

This is my first post to Mr.Excel, so let me know if I can do anything to improve this post.

Im new to VBA and am stuck on a project I've taken on.

Im trying to use VBA to loop through a list of URLs and import the image source from each website. This is the code I have so far:

Public Sub Asins()
Dim IE As Object
Dim rng As Range, cell As Range
Dim URL As Range
Dim imgSrc
Set IE = CreateObject("InternetExplorer.Application")
With IE
.Visible = True
For Each URL In Range("A1:A3260")
.navigate URL.Value
While .busy Or .readyState <> 4: DoEvents: Wend
' This is where Im stuck. I need to print the image source of each URL next to its corresponding cell
' Set imgSrc = IE.document.getElementById("imageProduct")
' = imgSrc.getAttribute("src")

Next
End With
End Sub


Thanks for your help

 

[mike93]

I suppose a better way to word my question would have been: How can I print data next to cell being looped?
Was a simple solution. This is what I did

Public Sub Asins()
    Dim IE As Object
    Dim rng As Range, cell As Range
    Dim URL As Range
    Dim imgSrc
    Set IE = CreateObject("InternetExplorer.Application")
    With IE
        .Visible = True
        For Each URL In Range("A1:A3260")
            .navigate URL.Value
            While .busy Or .readyState <> 4: DoEvents: Wend
            Set imgSrc = IE.document.getElementById("imageProduct")
            URL.Range("B" & URL.Row) = imgSrc.getAttribute("src")

 

[mike93]

The problem I'm having now is that It skips every other row

 

[John_w]

Change the URL.Range... line to:

url.Offset(, 1).Value = imgSrc.getAttribute("src")

'Or

url(, 2).Value = imgSrc.getAttribute("src")

For this type of problem it can be helpful to use the Address property to determine exactly which cell or cells a Range reference is referring to:

            Debug.Print url.Range("B" & url.Row).Address, url.Offset(, 1).Address