Импорт таблиц из электронной почты Outlook в Excel с помощью Excel vba - PullRequest
Новая
       31

Импорт таблиц из электронной почты Outlook в Excel с помощью Excel vba

0 голосов
/ 03 сентября 2018

Я попытался импортировать в книгу Excel таблицы из электронных писем, которые находятся в папке Outlook, но код не работает. 

Option Explicit
Sub impOutlookTable()

Const strMail As String = "me@yahoo.com"
Dim oApp As Outlook.Application
Dim oMapi As Outlook.MAPIFolder
Dim oMail As Outlook.MailItem

On Error Resume Next
Set oApp = GetObject(, "OUTLOOK.APPLICATION")
    If (oApp Is Nothing) Then Set oApp = CreateObject("OUTLOOK.APPLICATION")
On Error GoTo 0

Set oMapi =     oApp.GetNamespace("MAPI").Folders(strMail).Folders("parent").Folders("subfolder")
Set oMail = oMapi.Items(oMapi.Items.Count)

Dim oHTML As MSHTML.HTMLDocument: Set oHTML = New MSHTML.HTMLDocument
Dim oElColl As MSHTML.IHTMLElementCollection
With oHTML
    .Body.innerHTML = oMail.HTMLBody
    Set oElColl = .getElementsByTagName("table")
End With

Dim x As Long, y As Long

For x = 0 To oElColl(0).Rows.Length - 1
    For y = 0 To oElColl(0).Rows(x).Cells.Length - 1
        Range("A1").Offset(x, y).Value = oElColl(0).Rows(x).Cells(y).innerText
    Next y
Next x

Set oApp = Nothing
Set oMapi = Nothing
Set oMail = Nothing
Set oHTML = Nothing
Set oElColl = Nothing
End Sub

У меня проблема в том, что я продолжаю работать с ошибкой «Переменная объекта или переменная блока не установлена» в этой строке: 

For x = 0 To oElColl(0).Rows.Length - 1

При отладке x отображается как 0, а oHTML, oElColl отображаются как «[объект]»

...