Ausnahme des Typeninitialisierer aus InteropServices.COMException

  • VB.NET
  • .NET (FX) 3.0–3.5

Es gibt 10 Antworten in diesem Thema. Der letzte Beitrag () ist von RodFromGermany.

    Ausnahme des Typeninitialisierer aus InteropServices.COMException

    Heyho,

    die ähnlichen Themen, die ich hier oder via Google fand, waren ungelöst oder sehr schwammig formuliert, sodass ich da keinen Weg der Lösung sehen konnte.

    Problem ist folgendes:

    Eine Form hat einen Button, welcher eine Funktion in einem Modul aufruft.
    Diese Funktion (ExcelSachen.testopenclose()) wird im Einzelschritt zwar aufgerufen aber der Einzelschrittdurchlauf springt nicht in das betreffende Modul sondern bricht schon beim Aufruf in der Form ab und fängt den Fehler im Catch-Block auf.
    Diese Exception wird von "System.Runtime.InteropServices.COMException" ausgelöst, aber dessen Fehlermeldung wird nicht durchgeschleift. Somit weiss ich nicht, was für eine Exception bei InteropServices anfällt :S

    Hat jemand eine Ahnung, wie ich an die Fehlermeldung von InteropServices komme?

    Der betreffende Code (Nachtrag: Option Strict On):

    VB.NET-Quellcode

    1. Private Sub btn_testopenclose_Click(sender As System.Object, e As System.EventArgs) Handles btn_testopenclose.Click
    2. Dim path As String = My.Settings.Rauheiten3040ImportPath
    4. Try
    5. OFD_RauheitenFile.InitialDirectory = path
    6. OFD_RauheitenFile.Filter = "Excel-Dateien|*.xls;*.xlsx"
    7. OFD_RauheitenFile.ShowDialog()
    8. tb_RauheitenFilename.Text = OFD_RauheitenFile.FileName
    9. ExcelSachen.testopenclose(tb_RauheitenFilename.Text)
    10. Catch ex As Exception
    11. Dim funcname As String = System.Reflection.MethodInfo.GetCurrentMethod.Name
    12. Hilfssachen.ShowError(funcname, ex.Message)
    13. Finally
    14. ' resetAll()
    15. End Try
    17. End Sub

    ExcelSachen.vb:

    VB.NET-Quellcode

    1. Imports Microsoft.Office.Interop.Excel
    2. Imports Microsoft.VisualBasic.ControlChars
    4. Module ExcelSachen
    6. Dim XLApp As New Microsoft.Office.Interop.Excel.Application
    7. Dim WBook As New Microsoft.Office.Interop.Excel.Workbook
    8. Dim WSheet As Microsoft.Office.Interop.Excel.Worksheet
    9. Dim openedXLFile As Boolean = False
    11. Public Sub testopenclose(ByVal filename As String)
    13. Try
    14. openXLFile(filename)
    15. closeXLFile()
    16. Catch ex As Exception
    17. MessageBox.Show(ex.Message)
    18. End Try
    20. End Sub
    22. ''' <summary>
    23. ''' Öffnet eine Excel-Datei und macht sie über das WBook-Objekt verfügbar
    24. ''' </summary>
    25. ''' <param name="filename">Dateiname (mit kompl. Pfad)</param>
    26. ''' <returns>0 = unhadled Error, 1 = all OK, 2 = already opened File</returns>
    27. ''' <remarks></remarks>
    28. Private Function openXLFile(ByVal filename As String) As UShort
    30. Try
    31. If Not openedXLFile Then
    32. WBook = XLApp.Workbooks.Open(filename)
    33. openedXLFile = True
    34. Return 1
    35. Else
    36. Return 2
    37. End If
    38. Catch ex As Exception
    39. MessageBox.Show("Fehler in Funktion ExcelSachen.openXLFile():" + CrLf + ex.Message, Nothing, MessageBoxButtons.OK)
    40. End Try
    42. Return 0
    43. End Function
    45. ''' <summary>
    46. ''' Schliesst die aktuelle geöffnete Excel-Datei
    47. ''' </summary>
    48. ''' <returns>true/false</returns>
    49. ''' <remarks></remarks>
    50. Private Function closeXLFile() As Boolean
    52. If openedXLFile Then
    53. Try
    54. WBook.Close()
    55. openedXLFile = False
    56. Return True
    57. Catch ex As Exception
    58. MessageBox.Show("Fehler in Funktion ExcelSachen.closeXLFile():" + CrLf + ex.Message, Nothing, MessageBoxButtons.OK)
    59. End Try
    61. Else
    62. Return False
    63. End If
    65. Return False
    66. End Function
    68. ''' <summary>
    69. ''' Die aktuell geöffnete Excel-Datei speichern
    70. ''' </summary>
    71. ''' <param name="filename"></param>
    72. ''' <returns>0 = unknown error, 1 = alles OK, 2 = Fehler beim speichern, 3 = keine XL-Datei offen</returns>
    73. ''' <remarks></remarks>
    74. Private Function saveXLFile(Optional ByVal filename As String = "none") As UShort
    76. If openedXLFile Then
    77. If filename = "none" Then
    78. Try
    79. WBook.Save()
    80. Return 1
    81. Catch ex As Exception
    82. MessageBox.Show("Fehler in Funktion ExcelSachen.saveXLFile(ohne filename):" + CrLf + ex.Message, Nothing, MessageBoxButtons.OK)
    83. Return 2
    84. End Try
    85. Else
    86. Try
    87. WBook.SaveAs(filename)
    88. Return 1
    89. Catch ex As Exception
    90. MessageBox.Show("Fehler in Funktion ExcelSachen.saveXLFile(mit filename):" + CrLf + ex.Message, Nothing, MessageBoxButtons.OK)
    91. Return 2
    92. End Try
    93. End If
    95. Else ' openedXLFile = false
    96. Return 3
    97. End If
    99. Return 0
    100. End Function
    102. End Module


    AUsgabe vom Direktfenster:

    Quellcode

    1. Einzelschritt: Nichtbenutzercode "Trixell_Master4.My.MySettingsProperty.get_Settings" wird übersprungen.
    2. Einzelschritt: Trixell_Master4.My.MySettings.get_Default-Eigenschaft wird übersprungen. Für einen Einzelschritt in Eigenschaften deaktivieren Sie unter "Extras->Optionen->Debuggen" die Option "Eigenschaften und Operatoren überspringen (nur verwaltet)".
    3. Einzelschritt: Nichtbenutzercode "Trixell_Master4.My.MySettingsProperty.get_Settings" wird übersprungen.
    4. Einzelschritt: Trixell_Master4.My.MySettings.get_Rauheiten3040ImportPath-Eigenschaft wird übersprungen. Für einen Einzelschritt in Eigenschaften deaktivieren Sie unter "Extras->Optionen->Debuggen" die Option "Eigenschaften und Operatoren überspringen (nurEinzelschritt: Nichtbenutzercode "Trixell_Master4.GetRauheiten.OFD_RauheitenFile.get" wird übersprungen.
    5. Einzelschritt: Nichtbenutzercode "Trixell_Master4.GetRauheiten.OFD_RauheitenFile.get" wird übersprungen.
    6. Einzelschritt: Nichtbenutzercode "Trixell_Master4.GetRauheiten.OFD_RauheitenFile.get" wird übersprungen.
    7. Einzelschritt: Nichtbenutzercode "Trixell_Master4.GetRauheiten.tb_RauheitenFilename.get" wird übersprungen.
    8. Einzelschritt: Nichtbenutzercode "Trixell_Master4.GetRauheiten.tb_RauheitenFilename.get" wird übersprungen.
    9. Eine Ausnahme (erste Chance) des Typs "System.Runtime.InteropServices.COMException" ist in Trixell-Master4.exe aufgetreten.
    10. Eine Ausnahme (erste Chance) des Typs "System.TypeInitializationException" ist in Trixell-Master4.exe aufgetreten.
    11. Einzelschritt: Nichtbenutzercode "System.Exception.Message.get" wird übersprungen.
    12. Eine Ausnahme (erste Chance) des Typs "System.Runtime.InteropServices.COMException" ist in Trixell-Master4.exe aufgetreten.
    13. Eine Ausnahme (erste Chance) des Typs "System.TypeInitializationException" ist in Trixell-Master4.exe aufgetreten.

    hirnwunde schrieb:

    beim Aufruf in der Form
    in der Form_Load?
    Nimm die Form_Shown, da werden Exceptions ordentlich geworfen.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    RodFromGermany schrieb:

    in der Form_Load?


    Nein, Rod.
    Das im Load-Event das Debuggen gerne mal im Nirvana endet, weiss ich mittlerweile ;)
    Der Funktionsaufruf von ExcelSachen.testopenclose() findet über ein Button.Click-Event statt, siehe Zeile 9 im ersten Code-Block des ersten Posting ;)

    @KaskadekingDE
    Ich fand nun die wirkliche Fehlermeldung, wie hier drunter zu lesen ist. Stichwort InnerException.


    Wenn ich im Einzelschrittmodus mit der Maus über die Ausnahme fahre, kann ich mir ja die ganzen Informationen vom Objekt "ex" anschauen.
    Da ist auch eine Eigenschaft/Objekt (?) "InnerException".
    Deren Message-Eigenschaft ist:
    "Die COM-Klassenfactory für die Komponente mit CLSID {00020819-0000-0000-C000-000000000046} konnte aufgrund des folgenden Fehlers nicht abgerufen werden: 80040154."
    Auf Stack Overflow fand ich Informationen darüber, dass die Klasse nicht registriert sei.
    Als ich unter C:\Windows\assembly nachschaute, findet sich da aber die ganze Office-Interop-Familie.

    In den Assemblies steht als Processor-Architektur der ganzen Interop-Sachen "MSIL".
    Andere sind hingegen mit explizit mit "x86" oder "AMD64" gekennzeichnet.

    Ja, ich habe die 64Bit-Version von Office 2010 installiert.

    Bei den Projekt-Einstellungen unter "Kompilieren" habe ich nur die Platform-Auswahl von x86.

    Da ich aber eine nicht von mir (stammende und räudig) programmierte VBA-Geschichte in Excel habe, die, da sie mit massig Daten/Workbooks rumhantiert, gerne mal mehr als 3GB RAM benötigt, im Einsatz habe und ich auf dieses "Tool" angewiesen bin, benötige ich auch die 64Bit-Variante :(

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „hirnwunde“ ()

    hirnwunde schrieb:

    VB.NET-Quellcode

    1. OFD_RauheitenFile.ShowDialog()
    Zunächst solltest Du hier den Rückgabewert auswerten, falls Du Esc drückst:

    VB.NET-Quellcode

    1. If OFD_RauheitenFile.ShowDialog() <> Windows.Forms.DialogResult.OK Then
    2. Return
    3. End If
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    RodFromGermany schrieb:

    hier den Rückgabewert auswerten, falls Du Esc drückst:


    da diese Sub nur als Test-Sub gedacht ist und diese im Release-Stadium nicht mehr vorhanden ist (ebenso wie ExcelSachen.testopenclose()), war ich da etwas faul. Den Einzigen, den ich dann für UnhandledExceptions verantwortlich machen kann, bin ich selbst ;)

    Prinzipiell sind die Open/Save-FileDialog's bei mir mit abfang-Routinen ausgestattet, die genau Dein beschriebenes Verhalten auffangen. :)
    Dennoch danke für den Hinweis!

    Ok ... ich hab den Fehler gefunden.

    Es lag weder an den Mix aus x86 und 64Bit, noch an einer fehlenden Klassen-Registrierung.

    Es gab eine falsche Zuweisung meinerseits.
    Ich darf am Anfang nicht schon eine XLApp erstellen, nur den Typ als solches definieren.
    Das "erstellen" mittels New darf erst in der Funktion, die dies benötigt geschehen.

    Ich bitte, kundigere Forenmitglieder, meine durchaus falschen Angaben bzgl "erstellen", "definieren" und "zuweisen" zu korrigieren.

    Falsch (auf's Wesentliche gekürzt):

    VB.NET-Quellcode

    1. Imports Microsoft.Office.Interop.Excel
    2. Imports Microsoft.VisualBasic.ControlChars
    4. Module ExcelSachen
    6. Dim XLApp As New Microsoft.Office.Interop.Excel.Application
    7. Dim WBook As New Microsoft.Office.Interop.Excel.Workbook
    8. Dim WSheet As Microsoft.Office.Interop.Excel.Worksheet
    9. Dim openedXLFile As Boolean = False
    11. Private Function openXLFile(ByVal filename As String) As UShort
    13. Try
    14. If Not openedXLFile Then
    15. WBook = XLApp.Workbooks.Open(filename)
    16. openedXLFile = True
    17. Return 1
    18. Else
    19. Return 2
    20. End If
    21. Catch ex As Exception
    22. MessageBox.Show("Fehler in Funktion ExcelSachen.openXLFile():" + CrLf + ex.Message, Nothing, MessageBoxButtons.OK)
    23. End Try
    25. Return 0
    26. End Function
    28. Private Function closeXLFile() As Boolean
    30. If openedXLFile Then
    31. Try
    32. WBook.Close()
    33. openedXLFile = False
    34. Return True
    35. Catch ex As Exception
    36. MessageBox.Show("Fehler in Funktion ExcelSachen.closeXLFile():" + CrLf + ex.Message, Nothing, MessageBoxButtons.OK)
    37. End Try
    39. Else
    40. Return False
    41. End If
    43. Return False
    44. End Function
    46. End Module


    Funktionierender Code (der nicht zwangsläufig "richtig" sein muss):

    VB.NET-Quellcode

    1. Imports Microsoft.Office.Interop.Excel
    3. Module ExcelSachen
    5. Dim XLApp As Microsoft.Office.Interop.Excel.Application
    6. Dim WBook As Microsoft.Office.Interop.Excel.Workbook
    7. Dim WSheet As Microsoft.Office.Interop.Excel.Worksheet
    8. Dim openedXLFile As Boolean = False
    10. Private Function openXLFile(ByVal filename As String) As UShort
    12. Try
    13. If Not openedXLFile Then
    14. XLApp = New Microsoft.Office.Interop.Excel.Application
    15. WBook = XLApp.Workbooks.Open(filename)
    17. openedXLFile = True
    18. Return 1
    19. Else
    20. Return 2
    21. End If
    22. Catch ex As Exception
    23. Dim funcname As String = System.Reflection.MethodInfo.GetCurrentMethod.Name
    24. Hilfssachen.ShowError(funcname, ex.Message)
    25. End Try
    27. Return 0
    28. End Function
    30. Private Function closeXLFile() As Boolean
    32. If openedXLFile Then
    33. Try
    34. WBook.Close()
    35. XLApp.Quit()
    36. openedXLFile = False
    37. Return True
    38. Catch ex As Exception
    39. Dim funcname As String = System.Reflection.MethodInfo.GetCurrentMethod.Name
    40. Hilfssachen.ShowError(funcname, ex.Message)
    41. End Try
    43. Else
    44. Return False
    45. End If
    47. Return False
    48. End Function
    50. End Module


    Eigentlich muss hier noch eine Methode zum freigeben aller COM-Resourcen erdacht/gesucht werden.
    Denn aktuell ist es so, dass Excel32.exe solang geöffnet bleibt, wie das Programm läuft.
    Sollte dies regulär beendet werden, wird auch Excel geschlossen.
    Sollte das Programm mit einer Unhandled Exception in einem undefienierten Zustand geraten und es abgeschossen werden muss, bleibt auch der Excel-Prozess offen.

    Da muss ich mich also noch drum kümmern ;)

    Danke @RodFromGermany und @KaskadekingDE für Eure Beiträge!

    @hirnwunde
    Ich hab' 'mal diesen Code gefunden (dotnet-snippets.de) und erfolgreich verwendet:

    VB.NET-Quellcode

    1. ''Zugang zur API ''user32''
    2. Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hWnd As Integer, ByRef lpdwProcessId As IntPtr) As IntPtr
    3. ''Beenden eines speziellen Excel Prozesses, anhand seiner Id
    4. Private Shared Sub killExcelInstanceById(ByRef xlsApp As Excel.Application)
    5. Dim processId As IntPtr = Nothing
    6. ''API Funktion, out val: processId
    7. GetWindowThreadProcessId(xlsApp.Hwnd, processId)
    8. ''Prozess erstellen
    9. Dim excelProcess As Process = Process.GetProcessById(processId.ToInt32())
    10. Debug.WriteLine(processId)
    11. ''die lang ersehnte Erlösung, für den speziellen Excel Process der XlsApp :)
    12. excelProcess.Kill()
    13. End Sub

    Eine letzte Frage habe ich noch, dazu sollte kein neuer Thread nötig sein..

    RodFromGermany schrieb:

    in der Form_Load?
    Nimm die Form_Shown, da werden Exceptions ordentlich geworfen.


    hirnwunde schrieb:

    RodFromGermany schrieb:
    in der Form_Load?

    Nein, Rod.
    Das im Load-Event das Debuggen gerne mal im Nirvana endet, weiss ich mittlerweile


    Kann jemand das für mich etwas detaillierter formulieren?
    Ich verstehe nicht, warum Exceptions von dem Ereignis Form_Load nicht "ordentlich geworfen" werden sollen?

    @Bruno
    Guckst Du DBExtensions: Fehler bei Initialaisierung einer Access-Datenbank, Post#14
    Das Verhalten bei x32 und x64 und AnyCpu Kompilierung ist unterschiedlich BY DESIGN. Kannst Du nix machen.

    @Bruno Vielleicht solltest Du da ein wenig experimentieren mit gezieltem Werfen von Exceptions in der Form_Load im Gegensatz zu Form_Shown oder einer Button_Click.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

Facebook
Telefonspende