Страницы: 1
RSS
Ошибка. Макрос импорта текста из Outlook в Excel
 
Добрый день. Имеется макрос для Outlook'a, который после настройки правила должен отрабатывать и переносить данные из письма в эксель.
Взял по примеру с stackoverflow

Почему-то выдает ошибку
Код
 Run-time error '1004'
Application-defined or object-defined error
на строчке
Код
lRow = oXLws.Range("A" & oXLApp.Rows.Count).End(xlUp).Row + 1
Подскажите, пожалуйста, в чем может быть проблема?

Сам код:
Код
Sub ExportToExcel(MyMail As MailItem)
    Dim strID As String, olNS As Outlook.NameSpace
    Dim olMail As Outlook.MailItem
    Dim strFileName As String

    '~~> Excel Variables
    Dim oXLApp As Object, oXLwb As Object, oXLws As Object
    Dim lRow As Long

    strID = MyMail.EntryID
    Set olNS = Application.GetNamespace("MAPI")
    Set olMail = olNS.GetItemFromID(strID)

    '~~> Establish an EXCEL application object
    On Error Resume Next
    Set oXLApp = GetObject(, "Excel.Application")

    '~~> If not found then create new instance
    If Err.Number <> 0 Then
        Set oXLApp = CreateObject("Excel.Application")
    End If
    Err.Clear
    On Error GoTo 0

    '~~> Show Excel
    oXLApp.Visible = True

    '~~> Open the relevant file
    Set oXLwb = oXLApp.Workbooks.Open("мой_путь_к_файлу/файл.xlsm")

    '~~> Set the relevant output sheet. Change as applicable
    
    
    Set oXLws = oXLwb.Sheets("Sheet1")

         
    lRow = oXLws.Range("A" & oXLApp.Rows.Count).End(xlUp).Row + 1

    '~~> Write to outlook
    With oXLws
        '
        '~~> Code here to output data from email to Excel File
        '~~> For example
        '
        .Range("A1").Value = olMail.Subject
        .Range("B1").Value = olMail.SenderName
        '
    End With

    '~~> Close and Clean up Excel
    oXLwb.Close (True)
    oXLApp.Quit
    Set oXLws = Nothing
    Set oXLwb = Nothing
    Set oXLApp = Nothing

    Set olMail = Nothing
    Set olNS = Nothing
End Sub
Изменено: Nabos - 01.12.2018 12:48:11
 
Форум-то по Excel
Если Вы не можете выйти из лифта, то это не значит, что нужно ремонтировать дверь в квартире.
 
Nabos, попробуйте заменить xlUp на -4162
Страницы: 1
Наверх