Zugriff auf Cognos Impromtu Bericht aus Excel-Vba

Sub Create_Wartungskalender_II()
 '******************* deklarieren der Variablen ************************  
Dim objImpApp As Object
Dim objImpRep As Object
Dim strCatalog As String
Dim strReport As String
Dim strFile As String
Dim strCatalogUserId As String
Dim strCatalogPassword As String
Dim strDatabaseUserId As String
Dim strDatabasePassword As String
Dim strErrorMsg As String
Dim strSendTo As String
Dim strSubject As String
Dim strBody As String
Dim strSaveIt As String
Dim ErrorCount As Integer
Const TheUserClassID As String = "Ersteller"  
Const TheUserName As String = "mipadm"  
Const TheUserPassword As String = "mipadm2021"  

' ******************* Definieren der Variablen ************************  
' Vollständiger Pfad und Name des verwendeten Kataloges  
strCatalog = "F:\..._Hydra_Wartungen.cat"  
' Vollständiger Pfad und Name des verwendeten Berichtes  
strReport = "F:\..\Hydra_PO-04_Hydra_Wartungen.imr"  
' Vollständiger Pfad und Name der Ausgabedatei  
strFile = "F:\Production-Planning\Aufgaben\Steril_Validierungsvertreter\Hydra_Wartungen_I.xlsx"  
' Impromptu Catalog User Id  
strCatalogUserId = "ersteller"  ' Optional  
' Impromptu Catalog Passwort  
strCatalogPassword = "***"  
' Database User Id  
strDatabaseUserId = "***"  ' Optional  
' Database Passwort  
strDatabasePassword = "***"  ' Optional  
' Ausgabe folgender Fehlermeldung  

 strErrorMsg = " aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa!!!!!."  
' Recipient List  
Application.DisplayAlerts = False ' Beenden ohne Nachfrage  
' ******************* Beginn der Ausführung ************************  

ErrorCount = 0
Set objImpApp = CreateObject("CognosImpromptu.Application")  
Set objImpRep = CreateObject("CognosImpromptu.Application")  
objImpApp.Visible -1
objImpApp.OpenCatalog strCatalog, strCatalogUserId, strCatalogPassword, _
   strDatabaseUserId, strDatabasePassword
   
Set objImpRep = objImpApp.OpenReport(strReport) ' Report öffnen  

objImpRep.RetrieveAll
objImpRep.ExportExcelWithFormat (strFile)
objImpRep.CloseReport

Exit_Main:
   If ErrorCount = 0 Then
      objImpApp.Quit
   End If
End Sub