Open list of URL in Internet Explorer

[druva]

Hi

I have a list of URL in excel sheet ColumnA, I have to open each Url in Internet Explorer,copy the content of that page and paste it in active workbook in each sheet.

please anyone help me to loop through url and copy paste.

I am able open url and there is a data click button not able

Private Sub CommandButton1_Click()
'Dim IE As InternetExplorer
Dim oW As Worksheet: Set oW = ThisWorkbook.Worksheets("Sheet1")
Dim oEleCol As MSHTML.IHTMLElementCollection
Dim oEle As MSHTML.IHTMLElement

Dim btnGo As Object

Set IE = CreateObject("InternetExplorer.Application")
With IE
' Set IE
.Visible = True

'ShowWindow .hwnd, SW_SHOWMAXIMIZED

' Navigate to URL

' Wait for page to be ready
While .Busy
DoEvents 'wait until IE is done loading page.
Wend

'================================

Set objButton = IE.Document.getElementById("h_filetype")
objButton.Value = oW.Range("B2")
.Document.getElementById("Date").Value = oW.Range("B3")
.Document.getElementById("section").Value = oW.Range("B4")
'IE.Document.forms(0).submit
'IE.Document.getElementByTagName("getdata-button").Click
End With
'IE.Document.querySelector("input[src='/common/images/btn-get-data.gif']").Click

Set allInputs = IE.Document.getElementsByTagName("input")
For Each element In allInputs
If element.getAttribute("src") = "/common/images/btn-get-data.gif" Then
element.Click
Exit For
End If
Next element

[Pepe Le Mokko]

Administrative Note:

Welcome to the forum.

We would very much like to help you with your query, however you need to include code tags around your code.

Please take a moment to add the tags. Posting code between tags makes your code much easier to read and copy for testing, and it also maintains VBA formatting.

Please see Forum Rule #2 about code tags and adjust accordingly. Click on Edit to open your post, then highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here

(Note: this change is not optional. No help to be offered until this moderation request has been fulfilled.)