Excel VBA: ошибка или успех с Omniture Adobe Report Builder - PullRequest
Новая
       32

Excel VBA: ошибка или успех с Omniture Adobe Report Builder

0 голосов
/ 31 марта 2020

Я довольно новичок в VBA, поэтому прошу прощения за глупые вопросы. Я делаю автоматический файл Excel со многими запросами построителя отчетов; это будет частью большей автоматизации. Мне нужно (авто) проверить, была ли процедура refre sh успешно завершена, но я не могу: - получить объект успеха в любой форме; получить любую информацию об ошибках, которые могут возникнуть. Модуль с процедурой refre sh работает, я скопировал его из ответа Грега-J на этот вопрос: Автоматизированный построитель отчетов Omniture Refre sh в Excel VBA 

Sub Refresh()
Debug.Print ("refresh started")

'chiamata di refresh del plugIn di Abode Report Builder
Dim addIn As COMAddIn
    Dim automationObject As Object
    Dim success As String
    Set addIn = Application.COMAddIns("ReportBuilderAddIn.Connect")
    Set automationObject = addIn.Object
    success = automationObject.RefreshAllRequests(ActiveWorkbook)

    'ErrorHandler
    Dim Msg
    ' If an error occurs, construct an error message
    On Error Resume Next    ' Defer error handling.
    Err.Clear
    Err.Raise 513    ' Generate an "Overflow" error.
    ' Check for error, then show message.
    If Err.Number <> 0 Then
        Msg = "Error # " & Str(Err.Number) & " was generated by " _
                & Err.source & Chr(13) & Err.Description
        MsgBox Msg, , "Error", Err.HelpFile, Err.HelpContext
    End If

    Debug.Print (success)

Worksheets("Weekly SkySport- Chiamate Adobe").Range("F1").Value = "success"
Worksheets("Weekly SkySport- Chiamate Adobe").Range("D1").Value = Date

Debug.Print ("refresh completed")
End Sub
...