Hallo,
ich öffne in einem SSIS-VB-Script eine Excel-Datei mit mehreren Pivot-Tabellen, um diese zu aktualisieren.
Bei einer Datei bekomme ich jedes mal die folgende Fehlermeldung:
"Durch den Messagefilter wurde angezeigt, dass die Anwendung ausgelastet ist. (Ausnahme von HRESULT: 0x8001010A (RPC_E_SERVERCALL_RETRYLATER))"
Hat jemand eine Idee, wie ich dieses Problem in den Griff bekommen kann?
Dim oExcel As New Microsoft.Office.Interop.Excel.Application
Dim oBook As Microsoft.Office.Interop.Excel.Workbook = Nothing
Dim oBooks As Microsoft.Office.Interop.Excel.Workbooks = Nothing
Dim numFiles As Integer
Dim i As Integer
Dim fileList As String
Dim fileName As String = ""
Dim filePath As String
Dim fileIsWriteProtect As Boolean
Try
oExcel = CreateObject("Excel.Application")
oExcel.Visible = False
oExcel.Interactive = False
oExcel.ScreenUpdating = False
oExcel.DisplayAlerts = False
oExcel.EnableEvents = False
oExcel.UserControl = False
oBooks = oExcel.Workbooks
filePath = Trim(Dts.Variables("StrFilePath").Value.ToString())
If Right(filePath, 1) <> "\" Then
filePath = filePath & "\"
End If
fileList = Trim(Dts.Variables("StrFileList").Value.ToString())
fileList = RTrim(fileList)
If Right(fileList, 1) <> ";" Then
fileList = fileList & ";"
End If
fileList = Replace(fileList, ";;", ";")
numFiles = Len(fileList) - Len(Replace(fileList, ";", ""))
For i = 1 To numFiles
If InStr(fileList, ";") > 0 Then
fileName = Left(fileList, InStr(fileList, ";") - 1)
fileList = Trim(Mid(fileList, InStr(fileList, ";") + 1))
'Debug.Print("Bearbeite Datei " & fileName)
'Start Excel and open workbook
If CheckFile(filePath & fileName) = True Then
oExcel.DisplayAlerts = False
oExcel.EnableEvents = False
fileIsWriteProtect = GetAttribute(filePath & fileName, FileAttribute.ReadOnly)
If fileIsWriteProtect = True Then
RemoveAttribute(filePath & fileName, FileAttribute.ReadOnly)
End If
oBook = oBooks.Open(filePath & fileName)
' Der Fehler tritt bei dieser Open-Anweisung auf
oBook.RefreshAll()
oExcel.DisplayAlerts = False
oExcel.EnableEvents = False
oBook.Save()
oBook.Close()
If fileIsWriteProtect = True Then
SetAttribute(filePath & fileName, FileAttribute.ReadOnly)
End If
End If
End If
' Clean-up: Close workbook and quit Excel.
'End If
Next
oExcel.Quit()
Dts.TaskResult = ScriptResults.Success
Catch ex As Exception
Trace.TraceError(ex.Message)
Debug.Print("Fehler beim Bearbeiten der Datei " & fileName)
Dts.TaskResult = ScriptResults.Failure
Finally
If oBook IsNot Nothing Then System.Runtime.InteropServices.Marshal.ReleaseComObject(oBook)
If oBooks IsNot Nothing Then System.Runtime.InteropServices.Marshal.ReleaseComObject(oBooks)
If oExcel IsNot Nothing Then System.Runtime.InteropServices.Marshal.ReleaseComObject(oExcel)
oBook = Nothing
oBooks = Nothing
oExcel = Nothing
End Try
End Sub
Hat jemand eine Idee, wie ich dieses Problem in den griff bekommen kann?
Dieser Fehler tritt übrigens bisher nur bei einer Excel-Datei auf, die relativ viele Pivot-Tabellen enthält.
Gruß
cheapy
