Как установить ссылку на именованный диапазон Excel? - PullRequest
Новая
       20

Как установить ссылку на именованный диапазон Excel?

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

Я хочу экспортировать основной текст электронной почты Outlook в электронную таблицу Excel.

Я получаю "Range" объекта'_global 'failed "на 

If OutlookMail.ReceivedTime >= Range("Email_Receipt_Date").Value Then

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

Каждый именованный диапазон относится к одной ячейке в Excel. 

Sub getDataFromOutlook()
Dim OutlookApp As Outlook.Application
Dim OutlookNamespace As Namespace
Dim Folder As MAPIFolder
Dim OutlookMail As Variant
Dim i As Integer

Set OutlookApp = New Outlook.Application

Set OutlookNamespace = OutlookApp.GetNamespace("MAPI")

Set Folder = OutlookNamespace.GetDefaultFolder(olFolderInbox).Folders("staffingMail")

i = 1

For Each OutlookMail In Folder.Items

    If OutlookMail.ReceivedTime >= Range("Email_Receipt_Date").Value Then
        Range("eMail_subject").Offset(i, 0).Value = OutlookMail.Subject
        Range("eMail_subject").Offset(i, 0).Columns.AutoFit
        Range("eMail_subject").Offset(i, 0).VerticalAlignment = xlTop
        Range("eMail_date").Offset(i, 0).Value = OutlookMail.ReceivedTime
        Range("eMail_date").Offset(i, 0).Columns.AutoFit
        Range("eMail_date").Offset(i, 0).VerticalAlignment = xlTop
        Range("eMail_sender").Offset(i, 0).Value = OutlookMail.SenderName
        Range("eMail_sender").Offset(i, 0).Columns.AutoFit
        Range("eMail_sender").Offset(i, 0).VerticalAlignment = xlTop
        Range("eMail_Body").Offset(i, 0).Value = OutlookMail.Body
        Range("eMail_Body").Offset(i, 0).Columns.AutoFit
        Range("eMail_Body").Offset(i, 0).VerticalAlignment = xlTop
        i = i + 1
    End If

Next OutlookMail

Set Folder = Nothing
Set OutlookNamespace = Nothing
Set OutlookApp = Nothing

End Sub
...