<a class="ActiveLink" title="Excel" alt="Excel" onclick="$find('ctl32').exportReport('EXCELOPENXML');" href="javascript:void(0)" style="padding: 3px 8px 3px 32px; display: block; white-space: nowrap; text-decoration: none;">Excel</a>

Public Sub x()
 Application.ScreenUpdating = False
 Application.Calculation = xlCalculationManual
 'Set variables
 Dim ar
 Dim oIE As Object,
sHTML As String
 Dim tmp,
i As Long
 Set oIE= CreateObject("InternetExplorer.Application") 'start IE
 oIE.Visible = 1 'IE window visible - 0-hide 1-show
 Worksheets("Лист2").Cells.ClearContents 'очищаем лист
 s = "file:\\D:\IAM.htm" ' тут ваша ссылка на интранет
 oIE.Navigate (s) 'грузим
 Do While oIE.busy Or (oIE.ReadyState<> 4): DoEvents: Loop 'ждем пока прогрузится
 Set maPageHtml= oIE.Document 'считываем структуру документа
 Set SelectList= maPageHtml.getElementsbyclassname("Tab2Lnk") 'выбираем нужные ссылки по которым надо щелкать (с нужным скриптом)
 SelectList(0).Click 'щелкаем (теоретически должен запуститься скрипт); индекс 0 - делегирования, 1-атрибуты и т.д
 i = 0 : Do While i< 100000 :
i = i + 1 : DoEvents : Loop : Next i 'пауза для обновления страницы
 Set maPageHtml= oIE.Document 'считываем обновленный документ
 Set Htable= maPageHtml.getElementsbyTagname("tbody") 'выбираем все таблицы
 For i= 0 To Htable.Length- 1 'циклом выбираем первую таблицу в которой кол-во строк больше 3
 If Htable(i).Rows.Length> 3 Then Exit For
 Next i
 last = Worksheets("Лист2").Range("A65536").End(xlUp).Row 'последняя строка на листе
 Set maTable= Htable(i) ' выбираем найденную в цикле таблицу
 For i= 1 To maTable.Rows.Length ' цикл по строкам
 For j= 1 To maTable.Rows(i- 1).Cells.Length ' цикл по столбцам
 Worksheets("Лист2").Cells(s,j) = maTable.Rows(i - 1).Cells(j - 1).innertext 'значение ячейки
 Next j
 Next i
 Worksheets("Лист2").Select
 Set maPageHtml= Nothing 'clear variables
 oIE.Quit 'exit from IE
 'the end
 Set oIE= Nothing
 Application.ScreenUpdating = True
 Application.Calculation = xlCalculationAutomatic
 MsgBox "Finish"
 End Sub