IE, Получение данных в нормальном виде

[IvaniuS]

Вытягиваю текст, но он без разделителей - т.е. подряд и цифра не ясна, в краце нужна вот эта табличка:

даже не вся а нижняя часть, где кол-во отправлено и т.д.
я логинюсь и нужные данные уже подставляю, но не могу получить их в нормальном виде.

Function WebPageText(ByVal sURL, log, pass, edrpou As String, login As Boolean) As String
    On Error Resume Next
    Set IE = CreateObject("InternetExplorer.Application"):    ' open Internet Explorer
   With IE
   '.Visible = True 'видимость
   .Navigate sURL  ' переход
   While .Busy Or (.readyState <> 4): DoEvents: Wend    ' ожидание
     Set ieDoc = .Document: DoEvents: DoEvents
     If ieDoc.Title Like "Ошибка сертификата*" Or ieDoc.Title Like "Certificate Error*" Then
            ieDoc.Links(1).Click
            While IE.Busy Or (IE.readyState <> 4): DoEvents: Wend
            Set ieDoc = IE.Document
        End If

      With ieDoc 'login
      If login = True Then
        Application.Wait (Now + TimeValue("0:00:01"))
        .getElementsByName("mylogin")(0).Value = log
        .getElementsByName("mypass")(0).Value = pass
        .getElementsByName("savepass")(0).Click
        '.getElementsByName("login")(0).Click
        '.getElementsByValue("submit")(0).Click
        .forms(0).submit
        While IE.Busy Or (IE.readyState <> 4): DoEvents: Wend
      End If
      
        .getElementsByName("group1")(0).Click
        .getElementsByName("edrpou")(0).Value = edrpou
        '.getElementsByName("im1")(0).Click
        .forms(0).submit
        While IE.Busy Or (IE.readyState <> 4): DoEvents: Wend
        WebPageText = .body.innerText    ' тянем
        
      End With
      'Application.Wait (Now + TimeValue("0:00:13"))
      
      .Quit: Set IE = Nothing   ' закрываем
    End With
End Function

П.С. До этого писал все тоже самое на делфи, но проблема с Инди и с запросами, тут куда проще, но информацию получить не получается.
кросс : http://www.programmersforum.ru/showt...14#post1319714
http://www.excelworld.ru/forum/10-8090-1#75483
http://www.planetaexcel.ru/forum/ind...cc&result=edit