Как мне определить объект Excel, когда я получаю ошибку 462 VBA? - PullRequest
Новая
       7

Как мне определить объект Excel, когда я получаю ошибку 462 VBA?

0 голосов
/ 30 августа 2018

У меня проблема с макросом, который находится в Outlook. Код вызывается кодом «Private Sub», который создает «TriggerExcel (1)» или «TriggerExcel (2)», который зависит от темы письма.

Когда код срабатывает, он иногда застревает в строке: Set ExApp = Excel.Application 'Codes

Где я получаю следующую ошибку:

enter image description here

Я предполагаю, что код неправильно определяет объект Excel в коде, но мне трудно понять, как это сделать ... Любые советы или предложения приветствуются. 

Public Sub TriggerExcel(Mode As Integer)

        ‘Activate following tool reference:  Tool-References-Microsoft Excel 14.0 Object library -biblioteket
            Dim ExApp As Excel.Application
            Dim ExWbk As Workbook
            Set ExApp = Excel.Application 'Codes

 cause error here

    ExApp.DisplayAlerts = False

    If Mode = 1 Then
        On Error Resume Next
        Set ExWbk = Workbooks("Nyins.xlsm")
        Debug.Print ExWbk.Name
        On Error GoTo 0
        'Set ExWbk = ExApp.Workbooks.Open("C:\Users\linsten\Desktop\Nyins.xlsm")
        ExApp.Visible = False
        'ExWbk.Application.Run "mymain.main"

        If ExWbk Is Nothing Then
        Set ExWbk = ExApp.Workbooks.Open("\\Sca9a\pd-61$\Control\Process\Nyins.xlsm")
        End If

        ExWbk.Application.Run "MainModule.main"

    ElseIf Mode = 2 Then

        Set ExApp = Excel.Application

        On Error Resume Next
        Set ExWbk = Workbooks("Val.xlsm")
        Debug.Print ExWbk.Name
        On Error GoTo 0
        ExApp.Visible = False

        If ExWbk Is Nothing Then
        Set ExWbk = ExApp.Workbooks.Open("\\Sca9a\pd-61$\Control\Process\Daily\Val.xlsm")
        End If

        ExWbk.Application.Run "MyMain.Main"

    End If


        ExWbk.Close
        ExApp.Quit
    End Sub
...