HRESULT Ausnahme in ComboBox - Behandeln?

  • VB.NET

Es gibt 11 Antworten in diesem Thema. Der letzte Beitrag () ist von Stefan.

    HRESULT Ausnahme in ComboBox - Behandeln?

    Hallo,
    ich habe mich Extra hier angemeldet um Hilfe zu bekommen. Zu meiner Person. Ich bin noch relativ neu in Visual Basic, aber möchte es lernen.
    Ich habe mit anderen Projekten in VB bislang noch keine Probleme gehabt. Aber das ist bislang mein größtes Projekt. Ich lasse eine liste von einer (A) ExcelTabelle in die ComboBox2 als Items einlesen.
    Mein Problem ich bekomme beim selektieren eines Eintrags meiner ComboBox2 jedesmal eine Ausnahmemeldung (HRESULT: 0x800A03EC). Wie bekomme ich diese weg?

    Mein Code in der ComboBox2

    VB.NET-Quellcode

    1. Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox2.SelectedIndexChanged
    3. For Each Process In System.Diagnostics.Process.GetProcessesByName("EXCEL")
    4. Process.Kill()
    5. Next
    7. Dim objRead As New StreamReader("Path.txt")
    8. Dim lin As String
    9. lin = objRead.ReadLine()
    12. Dim PfadS As String
    14. If CheckBox1.Checked Then
    16. PfadS = (ListBox1.SelectedItem)
    18. Else
    20. PfadS = (lin & "\" & ComboBox1.Text & "\" & ListBox1.SelectedItem)
    22. End If
    25. Dim xlApp As New Object
    26. Dim Suche As String
    27. Dim SucheCB2 As String = ComboBox2.Text
    28. Dim intZähler As Integer
    29. xlApp = CreateObject("excel.application")
    30. xlApp.Application.Workbooks.Open(PfadS)
    31. xlApp.Visible = False
    32. xlApp.Sheets("Tabelle1").Activate()
    33. xlApp.Range("A1").Select()
    34. Dim z As Long = xlApp.Sheets("Tabelle1").UsedRange.Rows.Count
    36. For intZähler = 1 To z Step 1
    37. Suche = xlApp.Range("A" & intZähler.ToString).Value()
    39. If SucheCB2 = Suche Then
    41. Dim xlMappe As Microsoft.Office.Interop.Excel.Workbook = xlApp.Workbooks.Open(Filename:=PfadS)
    42. Dim xlBlatt As Microsoft.Office.Interop.Excel.Worksheet = xlMappe.Worksheets("Tabelle1")
    43. Dim labela As Microsoft.Office.Interop.Excel.Range = xlBlatt.Range("A" + intZähler.ToString)
    44. Dim labelb As Microsoft.Office.Interop.Excel.Range = xlBlatt.Range("B" + intZähler.ToString)
    45. Dim labelc As Microsoft.Office.Interop.Excel.Range = xlBlatt.Range("C" + intZähler.ToString)
    46. Dim labeld As Microsoft.Office.Interop.Excel.Range = xlBlatt.Range("D" + intZähler.ToString)
    48. TextBox4.Text = labela.Value.ToString
    49. TextBox1.Text = labelb.Value.ToString
    50. TextBox2.Text = labelc.Value.ToString
    51. TextBox3.Text = labeld.Value.ToString
    52. ComboBox3.Text = labeld.Value.ToString
    54. 'Alles schliesen
    55. xlApp.Quit()
    56. End If
    57. Next
    60. For Each Process In System.Diagnostics.Process.GetProcessesByName("EXCEL")
    61. Process.Kill()
    62. Next
    64. objRead.Close()
    66. End Sub


    Ich vermute das es mit der Suche zu tun hat. (txt_server = XT.Range("A" & intZähler.ToString).Value()) :huh: . Aber ich weiss nicht wie ich die Tabelle nach meinem Text durchsuchen lassen kann Und dabei die Zeilenangaben bekomme. Um die Zeilen daneben in den anderen TextBoxen und einer anderen ComboBox anzeigen zu lassen. Sry ich schreibe nicht oft in Foren, bin nicht so vertraut mit Problembeschreibungen. Vieleicht kann mir jemand helfen. :S PS.: Wie Vormatiere Ich den Code wenn ich ihn hier einfüge, das er nicht so durcheinander ist?

    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „Stefan“ ()

    Bitte erstmal den Code ordentliche formatieren. Dazu einfach oben beim Editor auf Quellcode wechseln und den Code nochmal copy pasten.


    Opensource Audio-Bibliothek auf github: KLICK, im Showroom oder auf NuGet.

    Stefan schrieb:

    jedesmal eine Ausnahmemeldung
    In welcher Zeile kommt diese Meldung?
    Ist es erforderlich, dass Du alle Excel-Instanzen killst? Vielleicht startest Du mal ohne laufende Excel-Instanz.
    Gib mal bei Google HRESULT 0x800A03EC ein, da sollte was für Dich dabei sein.
    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!

    die Excel instanzen müssen nicht zwagsweise gekillt werden bekomme die Excelanwendung im Taskmanager nicht geschlossen.. ich bekomme diese meldung nur wenn ich das Programm auserhalb von VB starte.
    Meine Ganze Form Sieht so aus. Bitte nicht Lachen :S

    VB.NET-Quellcode

    1. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    3. If ComboBox1.Text = "Kein Produkt ausgewählt" Then
    4. MsgBox("Kein Produkt ausgewählt")
    5. GoTo Ende
    6. End If
    8. For Each Process In System.Diagnostics.Process.GetProcessesByName("EXCEL")
    9. Process.Kill()
    10. Next
    12. Dim objRead As New StreamReader("Path.txt")
    13. Dim lin As String
    14. lin = objRead.ReadLine()
    16. Dim PfadS As String
    18. If CheckBox1.Checked Then
    20. PfadS = ListBox1.SelectedItem
    22. Else
    24. PfadS = (lin & "\" & ComboBox1.Text & "\" & ListBox1.SelectedItem)
    26. End If
    28. Dim XT As New Object
    29. Dim txt_server As String
    30. Dim suche As String = TextBox4.Text
    31. Dim intZähler As Integer
    33. XT = CreateObject("excel.application")
    34. XT.Application.Workbooks.Open(PfadS)
    35. XT.Visible = True
    37. XT.Sheets("Tabelle1").Activate()
    38. XT.Range("A1").Select()
    39. Dim z As Long = XT.Sheets("Tabelle1").UsedRange.Rows.Count
    41. For intZähler = 1 To z Step 1
    42. txt_server = XT.Range("A" & intZähler.ToString).Value()
    44. If suche = txt_server Then
    46. MsgBox(TextBox4.Text & "ist berieits vorhanden.(Yes) Soll der Eintrag ersetzt werden? (No) Soll ein neuer Eintrag mit dem gleichen namen angelegt werden? (Cancel) Abbrechen.", vbYesNoCancel, "Doppelter Eintrag")
    48. If vbYes Then
    50. For Each Process In System.Diagnostics.Process.GetProcessesByName("EXCEL")
    51. Process.Kill()
    52. Next
    54. Dim exclApp As Object 'as Application
    55. Dim Datei As Object 'as WorkBook
    56. Dim Blatt As Object 'as WorkSheet
    57. exclApp = CreateObject("Excel.Application")
    58. With exclApp
    59. .Visible = False
    61. Datei = .Workbooks.Open(PfadS) 'Anpassen
    62. Blatt = Datei.Worksheets("Tabelle1") 'Anpassen
    63. Blatt.Range("A" + intZähler.ToString).Value = TextBox1.Text
    64. Blatt.Range("B" + intZähler.ToString).Value = TextBox2.Text
    65. Blatt.Range("C" + intZähler.ToString).Value = TextBox3.Text
    66. Blatt.Range("D" + intZähler.ToString).Value = TextBox4.Text
    68. 'Alles schliesen
    69. Datei.Save()
    70. Datei.Close()
    71. exclApp.Quit()
    73. End With
    75. ElseIf vbNo Then
    77. For Each Process In System.Diagnostics.Process.GetProcessesByName("EXCEL")
    78. Process.Kill()
    79. Next
    81. Dim xlObj As New Excel.Application
    82. xlObj.Visible = False
    83. Dim Mappe As Excel.Workbook = xlObj.Workbooks.Open(PfadS)
    84. Dim Tabelle As Excel.Worksheet = Mappe.Sheets("Tabelle1")
    85. Dim lngZeile = Tabelle.Cells(Tabelle.Rows.Count, 1).End(-4162).Row + 1 ' -4162 = xlUp
    87. 'In Exeltabelle schreiben, an angegebene Zeile
    88. Tabelle.Cells(lngZeile, 1).Value = TextBox4.Text
    89. Tabelle.Cells(lngZeile, 2).Value = TextBox1.Text
    90. Tabelle.Cells(lngZeile, 3).Value = TextBox2.Text
    91. Tabelle.Cells(lngZeile, 4).Value = TextBox3.Text
    94. 'Alles schliesen
    95. Mappe.Save()
    96. Mappe.Close()
    97. xlObj.Quit()
    99. ElseIf vbCancel Then
    101. GoTo Ende
    103. End If
    105. Else
    107. For Each Process In System.Diagnostics.Process.GetProcessesByName("EXCEL")
    108. Process.Kill()
    109. Next
    111. Dim xlObj As New Excel.Application
    112. xlObj.Visible = False
    113. Dim Mappe As Excel.Workbook = xlObj.Workbooks.Open(PfadS)
    114. Dim Tabelle As Excel.Worksheet = Mappe.Sheets("Tabelle1")
    115. Dim lngZeile = Tabelle.Cells(Tabelle.Rows.Count, 1).End(-4162).Row + 1 ' -4162 = xlUp
    117. 'In Exeltabelle schreiben, an angegebene Zeile
    118. Tabelle.Cells(lngZeile, 1).Value = TextBox4.Text
    119. Tabelle.Cells(lngZeile, 2).Value = TextBox1.Text
    120. Tabelle.Cells(lngZeile, 3).Value = TextBox2.Text
    121. Tabelle.Cells(lngZeile, 4).Value = TextBox3.Text
    123. 'Alles schliesen
    124. Mappe.Save()
    125. Mappe.Close()
    126. xlObj.Quit()
    128. End If
    130. Next
    132. 'Alles schliesen
    133. objRead.Close()
    134. XT.Quit()
    136. For Each Process In System.Diagnostics.Process.GetProcessesByName("EXCEL")
    137. Process.Kill()
    138. Next
    142. Ende:
    144. End Sub


    Ich bekomme die Meldung
    Eine nicht behandelte Ausnahme des Typs "System.Runtime.InteropServices.COMException" ist in Microsoft.VisualBasic.dll aufgetreten.

    Zusätzliche Informationen: Der RPC-Server ist nicht verfügbar. (Ausnahme von HRESULT: 0x800706BA)
    Bei Button 1 in Zeile 81
    Mein Project. mein project

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

    Stefan schrieb:

    VB.NET-Quellcode

    1. GoTo Ende
    Mach da bitte ein Return draus.
    GoTo ist ein ganz ganz böser Befehl.
    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!

    Stefan schrieb:

    einböser befehl?
    Du kannst durch Draufsehen nicht (unbedingt) erkennen, wo es hingeht. In der Objektorientierte Programmierung (OOP) ist ein GoTo-Befehl nicht erforderlich, er ist ein Rudiment aus der Steinzeit.
    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!

    :S :) Danke für die Erklärung. Ich glaube ich gehe nochmal zu denn Anfängen zurück. Aber mein Prob. besteht weiterhin. Mit den Google Ergebnissen für (HRESULT: 0x800706BA) und (HRESULT: 0x800A03EC) kann ich nichts Anfangen. Kann mir das jemand Erläutern?Vieleicht hat Jemand einen Vorschlag was ich machen soll. :S

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Stefan“ ()

    An den Kommentaren 'Anpassen sehe ich, dass der Code von irgendwo kopiert ist. Ok, warum auch nicht. Das Problem dabei: Der, der den Code geschrieben hat, hat selbst keine Erfahrung mit Excel-Interop (so heißt das, was du versuchst). Da werden Objekte in die Landschaft geworfen, ohne sie wieder freizugeben. Normalerweise ist das bei .NET auch nicht nötig, aber in diesem speziellen Fall schon. Das Ergebnis ist dann, dass nach Beenden einer Aktion der Excel-Prozess im Taskmanager gestartet bleibt und hart abgeschossen wird, und zwar mit diesem Konstrukt aus obigem Code:

    VB.NET-Quellcode

    1. For Each Process In System.Diagnostics.Process.GetProcessesByName("EXCEL")
    2. Process.Kill()
    3. Next

    Und das ist schlecht, unsauber und nicht zielführend. Bevor dieser Missstand nicht behoben ist, macht es keinen Sinn, nach dem Grund für irgendwelche Exceptions zu suchen, weil schon das Grundgerüst auf tönernen Füßen steht.

    Genug der Aufregung. Nichts gegen dich, wirklich. Da die Frage nach Excel-Interop in regelmäßigen Abständen auftritt, poste ich die Lösung nicht schon wieder. Hier ein paar Threads mit Antworten von mir:
    [VB 2010] Aktives Excel Dokument lesen
    [Excel] Von VB.NET über COM auf Excel zugreifen
    [VB 2010] Excel Prozess nach Schreiben in Exceldatei beenden <-- wichtig für dich!

    Das ist die andere Richtung (.NET nach Excel):
    [VB 2012] COM-Klasse lässt keine Properties zu?
    Gruß
    hal2000

    Ok, hast ja recht ich versuche es nochmal von vorne. Manchmal einfach neu anfangen. :)
    Danke für die links. Ich werde mein bestes versuchen um mein Projekt erneut auf zu bauen und fertig zu stellen.
    Ich hoffe das mir hier bei evtuelen Problemen die auftauchen können geholfen wird.
    Danke nochmal. :thumbsup:

Facebook
Telefonspende