импорт таблицы из IE

[Kek]

использую:

Function WebPageText(ByVal sURL As String) As String
On Error Resume Next
Set IE = CreateObject("InternetExplorer.Appl ication"):
IE.Navigate sURL
While IE.busy Or (IE.readyState <> 4): DoEvents: Wend
WebPageText = IE.Document.body.innerText
IE.Quit: Set IE = Nothing
End Function

Sub ПримерИспользованияФункции_WebPageT ext()

txt = WebPageText("http://excelvba.ru/services")
ПутьКРабочемуСтолу = CreateObject("WScript.Shell").Speci alFolders("Desktop")
SaveTXTfile ПутьКРабочемуСтолу & "\PageText.txt", txt
Workbooks.OpenText ПутьКРабочемуСтолу & "\PageText.txt", , , xlDelimited
End Sub

Function SaveTXTfile(ByVal filename As String, ByVal txt As String) As Boolean
On Error Resume Next: Err.Clear
Set fso = CreateObject("scripting.filesystemo bject")
Set ts = fso.CreateTextFile(filename, True)
ts.Write txt: ts.Close
SaveTXTfile = Err = 0
Set ts = Nothing: Set fso = Nothing
End Function

[Kek]

я пытаюсь использовать приложение wget, но оно не приносит результата. Подскажите, каким образом еще можно перенести данные в excel 2003