Нажмите на ссылку, используя VBA

Question

Я надеюсь получить помощь здесь. Я пытаюсь автоматизировать загрузку файла с сайта, который требует от меня щелчка по ссылке для каждого поиска.

Вот ссылка HTML информация:

(a class="icon-xls-export" href="/us/products/239505/ishares-us-consumer-goods-etf/1395165510754.ajax?fileType=csv&fileName=IYK_holdings&dataType=fund" onclick="s_objectID="https://www.ishares.com/us/products/239505/ishares-us-consumer-goods-etf/1395165510754.ajax?fileT_1";return this.s_oc?this.s_oc(e):true"> 
Detailed Holdings and Analytics </a) 

Вот мой код:

Sub Navigate_Web() 

For Each Cell In Range("A1:A1") 'location of ticker symbol 

Dim IE As New InternetExplorer 
IE.Visible = True 

IE.Navigate "https://www.ishares.com/us/products/239505/" & Cell.Value & "?referrer=tickerSearch" 

Do 
DoEvents 
Loop Until IE.readyState = READYSTATE_COMPLETE 

Set objInputs = IE.document.getElementsByclassname("icon-xls-export") 

Next Cell 
End Sub 

Я не могу открыть сайт без проблем, но я постоянно получаю сообщение об ошибке для объекта делает не поддерживают это свойство или метод.

Так что любая помощь здесь будет замечательной!

Заранее благодарен!

Answer 1

Отформатируйте ваш вопрос правильно, блоки кода и т.д. и т.п. :)

Во всяком случае ... Может быть, что-то вдоль линий:

Set tags = wb.Document.GetElementsByTagname("Input") 

For Each tagx In tags 
    If tagx.alt = "File_Certificate_Go" Then 
     tagx.Click 
    End If 
Next 

Где термометру является контроль WebBrowser.

Answer 2

Я думаю, что вы хотите это.

Public Sub OpenWebXLS() 
' ************************************************* 
' Define Workbook and Worksheet Variables 
' ************************************************* 
Dim wkbMyWorkbook As Workbook 
Dim wkbWebWorkbook As Workbook 
Dim wksWebWorkSheet As Worksheet 

Set wkbMyWorkbook = ActiveWorkbook 

' ************************************************* 
' Open The Web Workbook 
' ************************************************* 
Workbooks.Open ("https://www.ishares.com/us/products/239505/ishares-us-consumer-goods-etf/1395165510754.ajax?fileType=csv&fileName=IYK_holdings&dataType=fund") 

' ************************************************* 
' Set the Web Workbook and Worksheet Variables 
' ************************************************* 
Set wkbWebWorkbook = ActiveWorkbook 
Set wksWebWorkSheet = ActiveSheet 

' ************************************************* 
' Copy The Web Worksheet To My Workbook and Rename 
' ************************************************* 
wksWebWorkSheet.Copy After:=wkbMyWorkbook.Sheets(Sheets.Count) 
wkbMyWorkbook.Sheets(ActiveSheet.Name).Name = "MyNewWebSheet" 

' ************************************************* 
' Close the Web Workbook 
' ************************************************* 
wkbMyWorkbook.Activate 
wkbWebWorkbook.Close 

End Sub