Importing Image into Excel Worksheet With HTML Code Elements

[sopa12]

Hello,

I'm looking to import a few images into my excel file and I plan on importing the picture by calling the pictures based on their html elements.

The image html code:

<img chart-id="2669" alt="Chart ID 2669" class="chart-img" src="https://website.com/569134694870.jpg" diagnostic-id="chart-img-1" style="max-height: 150px;">

My code:

Sub tt()
Dim strURL As String
Dim ie As Object
Dim Elem
Dim X

Set ie = CreateObject("InternetExplorer.Application")
strURL = "https://website.com/chartbooks/22920"
ie.navigate strURL
ie.Visible = True
Do While (ie.Busy Or ie.readyState <> 4)
    DoEvents
Loop

For Each Elem In ie.document.getElementsByTagName("img")
If ie.document.getElementsByTagName("img").getAttribute("alt") = "Chart ID 2669" Then
Worksheets("Sheet1").Range("A1") = ie.document.getElementsByTagName("img").getAttribute("src")

Exit For
End If
Next


End Sub

The current code errors out at

If ie.document.getElementsByTagName("img").getAttribute("alt") = "Chart ID 2669" Then

The error message says the Object doesn't support this property or method. Any ideas on how to resolve this? Much appreciated.

 

[Dossfm0q]

Hi this is because " The page you are looking for might have been removed, had its name changed, or is temporarily unavailable. "

 

[sopa12]

Hi this is because " The page you are looking for might have been removed, had its name changed, or is temporarily unavailable. "

I'm sorry, I'm not sure I understand what you mean? The page is not removed I changed the url name because the website is a subscription website.

 

[Dossfm0q]

Good Day
Try this no Error but still wepPage not exists from my side

Sub tt()
Dim strURL As String
Dim ie As Object
Dim Elem
Dim X

Set ie = CreateObject("InternetExplorer.Application")
strURL = "https://website.com/chartbooks/22920"
ie.navigate strURL
ie.Visible = True
Do While (ie.Busy Or ie.readyState <> 4)
    DoEvents
Loop

For Each Elem In ie.document.getElementsByTagName("img")
If Elem.getAttribute("alt") = "Chart ID 2669" Then
Worksheets("Sheet1").Range("A1") = Elem.getAttribute("src")

Exit For
End If
Next


End Sub