Скачивание данных из сайта

[quarkshark]

Я сделал макрос который:
1) Открывает веб страницу в Internet Explorer
2) Проверяет наличие кнопки на станице
3) Нажимает кнопку
4) Проверяет наличие элемента на странице по Id
5) Присваивает значения между Span tag массиву

Проблема в том что этот макрос работает в 2007 Excel но не в 2010-м.
Я пробовал решить проблему разными способами, но получаю ошибку Error 13 type mismatch когда идёт проверка на наличие элемента на странице (если поменять вместо NodeList на объект, например, Dim aa As Object то появляется ошибка связанная с этим объектом (что он не объявлён) и другие ошибки).

Спасибо за Вашу помощь!

Sub DownloadWebData()
Dim oIE As Object, page As String
Dim results(1 to 1, 1 to 7) As Variant
Dim n As Integer, k As Integer

Set oIE = CreateObject("InternetExplorer.Application")
oIE.Visible = False

page = ("http://www.example.com")
oIE.Navigate (page)

Do While oIE.busy Or (oIE.ReadyState <> 4): DoEvents: Loop

Set NodeList = oIE.Document.getElementbyId("switch")
 If Not NodeList Is Nothing Then ' Проверка или кнопка существует
  NodeList.Click ' Нажатие на кнопку
 End If

Set NodeList = oIE.Document.getElementbyId("Order")
If Not NodeList Is Nothing Then ' Проверка или Элемент существует
 With oIE.Document.getElementbyId("Order")
 n = n + 1
  For k = 1 To 7
   results(1, k) = .getelementsbytagname("span")(k - 1).innerText
  Next
 End With
End If

oIE.Quit
Set oIE = Nothing

End Sub