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
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?
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
- Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox2.SelectedIndexChanged
- For Each Process In System.Diagnostics.Process.GetProcessesByName("EXCEL")
- Process.Kill()
- Next
- Dim objRead As New StreamReader("Path.txt")
- Dim lin As String
- lin = objRead.ReadLine()
- Dim PfadS As String
- If CheckBox1.Checked Then
- PfadS = (ListBox1.SelectedItem)
- Else
- PfadS = (lin & "\" & ComboBox1.Text & "\" & ListBox1.SelectedItem)
- End If
- Dim xlApp As New Object
- Dim Suche As String
- Dim SucheCB2 As String = ComboBox2.Text
- Dim intZähler As Integer
- xlApp = CreateObject("excel.application")
- xlApp.Application.Workbooks.Open(PfadS)
- xlApp.Visible = False
- xlApp.Sheets("Tabelle1").Activate()
- xlApp.Range("A1").Select()
- Dim z As Long = xlApp.Sheets("Tabelle1").UsedRange.Rows.Count
- For intZähler = 1 To z Step 1
- Suche = xlApp.Range("A" & intZähler.ToString).Value()
- If SucheCB2 = Suche Then
- Dim xlMappe As Microsoft.Office.Interop.Excel.Workbook = xlApp.Workbooks.Open(Filename:=PfadS)
- Dim xlBlatt As Microsoft.Office.Interop.Excel.Worksheet = xlMappe.Worksheets("Tabelle1")
- Dim labela As Microsoft.Office.Interop.Excel.Range = xlBlatt.Range("A" + intZähler.ToString)
- Dim labelb As Microsoft.Office.Interop.Excel.Range = xlBlatt.Range("B" + intZähler.ToString)
- Dim labelc As Microsoft.Office.Interop.Excel.Range = xlBlatt.Range("C" + intZähler.ToString)
- Dim labeld As Microsoft.Office.Interop.Excel.Range = xlBlatt.Range("D" + intZähler.ToString)
- TextBox4.Text = labela.Value.ToString
- TextBox1.Text = labelb.Value.ToString
- TextBox2.Text = labelc.Value.ToString
- TextBox3.Text = labeld.Value.ToString
- ComboBox3.Text = labeld.Value.ToString
- 'Alles schliesen
- xlApp.Quit()
- End If
- Next
- For Each Process In System.Diagnostics.Process.GetProcessesByName("EXCEL")
- Process.Kill()
- Next
- objRead.Close()
- 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“ ()