listview mit Exceldaten füllen

  • VB.NET

Es gibt 7 Antworten in diesem Thema. Der letzte Beitrag () ist von Apollo.

    listview mit Exceldaten füllen

    Hallo zusammen.

    ich bin noch neu in der Vb Net Programmierung

    Mein Problem ich möchte eine Listview mit Daten aus einer Exceltabelle füllen. ?(

    Das hat auch Anfangs gut funktioniert, aber seit gestern bekomme ich die Fehlermeldung "System.Runtime.InteropServices.COMException: "Der Remoteprozeduraufruf ist fehlgeschlagen. (Ausnahme von HRESULT: 0x800706BE)"

    und ich kann nicht herausfinden wieso. vielleicht kann mir jeman von euch einen Tipp geben

    Hier mal mein Codeansatz.


    VB.NET-Quellcode

    1. Imports Microsoft.Office.Interop
    3. Public Class Form1
    5. Private Structure ExcelRows
    6. Dim C1 As String
    7. Dim C2 As String
    8. Dim C3 As String
    9. Dim C4 As String
    10. Dim C5 As String
    11. Dim C6 As String
    12. Dim C7 As String
    13. Dim C8 As String
    14. Dim C9 As String
    15. Dim C10 As String
    16. Dim C11 As String
    18. End Structure
    20. Private ExcelRowList As List(Of ExcelRows) = New List(Of ExcelRows)
    23. Private Sub btnDateiÖffnen_Click(sender As Object, e As EventArgs) Handles btnDateiÖffnen.Click
    25. Me.OpenFileDialog1.FileName = Nothing
    27. If Me.OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
    28. Me.TextBox1.Text = Me.OpenFileDialog1.FileName
    29. End If
    31. If GetInfo() = True Then
    33. For Each Xitem In ExcelRowList
    35. Dim lvitem As ListViewItem
    36. lvitem = Me.lsvDaten.Items.Add(Xitem.C1)
    37. lvitem.SubItems.AddRange(New String() {Xitem.C2, Xitem.C3, Xitem.C4, Xitem.C5, Xitem.C6, Xitem.C7, Xitem.C8, Xitem.C9, Xitem.C10, Xitem.C11})
    39. Next
    40. End If
    41. End Sub
    43. '---------------------------------------------------------------
    45. Private Function GetInfo() As Boolean
    46. Dim Completed As Boolean = False
    48. 'open
    49. Dim MyExcel As New Excel.Application
    50. MyExcel.Workbooks.Open(Me.TextBox1.Text)
    53. 'Extract
    54. MyExcel.Sheets("Übersicht").activate()
    55. MyExcel.Range("A2").Activate()
    57. Dim ThisRow As New ExcelRows
    59. Do
    60. If MyExcel.ActiveCell.Value > Nothing Or MyExcel.ActiveCell.Text > Nothing Then
    62. ThisRow.C1 = MyExcel.ActiveCell.Value
    63. MyExcel.ActiveCell.Offset(0, 1).Activate()
    65. ThisRow.C2 = MyExcel.ActiveCell.Value
    66. MyExcel.ActiveCell.Offset(0, 1).Activate()
    68. ThisRow.C3 = MyExcel.ActiveCell.Value
    69. MyExcel.ActiveCell.Offset(0, 1).Activate()
    71. ThisRow.C4 = MyExcel.ActiveCell.Value
    72. MyExcel.ActiveCell.Offset(0, 1).Activate()
    74. ThisRow.C5 = MyExcel.ActiveCell.Value
    75. MyExcel.ActiveCell.Offset(0, 1).Activate()
    77. ThisRow.C6 = MyExcel.ActiveCell.Value
    78. MyExcel.ActiveCell.Offset(0, 1).Activate()
    80. ThisRow.C7 = MyExcel.ActiveCell.Value
    81. MyExcel.ActiveCell.Offset(0, 1).Activate()
    83. ThisRow.C8 = MyExcel.ActiveCell.Value
    84. MyExcel.ActiveCell.Offset(0, 1).Activate()
    86. ThisRow.C9 = MyExcel.ActiveCell.Value
    87. MyExcel.ActiveCell.Offset(0, 1).Activate()
    89. ThisRow.C10 = MyExcel.ActiveCell.Value
    90. MyExcel.ActiveCell.Offset(0, 1).Activate()
    92. ThisRow.C11 = MyExcel.ActiveCell.Value
    94. ExcelRowList.Add(ThisRow)
    96. MyExcel.ActiveCell.Offset(1, -10).Activate()
    98. Else
    99. Completed = True
    100. Exit Do
    101. End If
    102. Loop
    104. 'Close
    105. MyExcel.Workbooks.Close()
    106. MyExcel = Nothing
    107. Return Completed
    109. End Function
    113. Private Sub btnLeeren_Click(sender As Object, e As EventArgs) Handles btnLeeren.Click
    114. 'Items.Clear() !!!
    115. Me.lsvDaten.Items.Clear()
    116. End Sub
    118. Private Sub btnLöschen_Click(sender As Object, e As EventArgs) Handles btnLöschen.Click
    119. 'einzelne Zeile für den zu löschenden Eintrag/Einträge der Tagelle
    120. Dim zeile As Windows.Forms.ListViewItem
    122. 'Rückfrage, ob wirklich geöscht werden soll
    123. If MsgBox("Möchten Sie wirklich löschen?", MsgBoxStyle.YesNo Or MsgBoxStyle.Question, "Löschen von einem Datensatz / mehrere Datensätzen !") <> MsgBoxResult.Yes Then
    124. Exit Sub 'vorzeitig verlassen
    125. End If
    127. For Each zeile In Me.lsvDaten.SelectedItems
    129. Me.lsvDaten.Items.Remove(zeile)
    130. Next
    131. End Sub
    133. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    134. With Me.cboNamen
    135. ' .Items.Add("")
    136. .Items.Add("Max Mustermann")
    137. .Items.Add("Susi Mustermann")
    138. .SelectedIndex = 0
    139. End With
    141. End Sub


    Danke für eure Hilfe

    *Topic verschoben und Code-Tag eingefügt (das nächste Mal bitte selbst machen!)*

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Marcus Gräfe“ ()

    Puh das ist aber ganz schön viel Code für nen bissl Excel Import. Der import via OleDbDataAdapter (musst mal googlen, aus dem Kopf bekomme ich es nicht zusammen) in eine DataTable geht easy und ohne viel code. Die DataTable dann einfach noch als Datenquelle an ein DataGridView Hängen und fertig.
    "Gib einem Mann einen Fisch und du ernährst ihn für einen Tag. Lehre einen Mann zu fischen und du ernährst ihn für sein Leben."

    Wie debugge ich richtig? => Debuggen, Fehler finden und beseitigen
    Wie man VisualStudio nutzt? => VisualStudio richtig nutzen

    @Apollo
    wie vorgeschlagen verwende doch lieber OLEDB

    hier 3 Beispiele die du anwenden kannst

    VB.NET-Quellcode

    1. Option Strict On
    3. Public Class Form1
    5. Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    7. 'Bsp.1) select alles:
    8. DataGridView1.DataSource = ExcelOleDb("E:\vbexcel.xlsx", "SELECT * FROM [Tabelle3$]")
    10. 'Bsp.2) select eine Range: A2:G100
    11. 'DataGridView1.DataSource = ExcelOleDb("E:\vbexcel.xlsx", "SELECT * FROM [Tabelle3$A2:G100]")
    13. 'Bsp.3) select Daten mit Vorname = anfangs buchstabe B
    14. 'Vorname und Nachname sind Spaltennamen in der Excel Tabelle:
    15. 'DataGridView1.DataSource = ExcelOleDb("E:\vbexcel.xlsx", "SELECT Vorname, Nachname FROM [Tabelle3$] Where Vorname Like 'B%'")
    16. 'liefert dir dann z.b:
    17. 'Bernd
    18. 'Betty
    19. 'Boris
    20. 'etc....
    22. End Sub
    24. Public Function ExcelOleDb(ByVal strTextPath As String, _
    25. ByVal sSQL As String) As System.Data.DataTable
    27. Dim con As New System.Data.OleDb.OleDbConnection
    28. Dim myCmd As New System.Data.OleDb.OleDbCommand
    29. Dim myadp As New System.Data.OleDb.OleDbDataAdapter
    30. Dim mydt As New System.Data.DataTable
    32. With con
    33. .ConnectionString = "provider=microsoft.ACE.OLEDB.12.0;"
    34. .ConnectionString &= "data source=" & strTextPath & ";"
    35. .ConnectionString &= "Extended Properties = ""Excel 12.0 XML"";"
    36. End With
    37. With myCmd
    38. .Connection = con
    39. .CommandType = CommandType.Text
    40. .CommandText = sSQL
    41. End With
    43. With myadp
    44. .SelectCommand = myCmd
    45. Try
    46. .Fill(mydt)
    47. Catch ex As Exception
    48. MessageBox.Show(ex.Message)
    49. End Try
    50. End With
    51. Return (mydt)
    52. End Function
    54. End Class


    ich habe Datagridview genommen statt Listview

    Hallo Kasi

    Danke für Dein Beispiel.

    Mein Code sieht wie folgt aus.
    Und hier Zeile 32 sping dann die MsgBox an und liefert mir die Info "Der Microsoft.ACEOLEDB 12.0 -Provider ist nicht auf dem lokalen Computer registriert. Ich habe mal gegoogle und das scheint wohl ein installationproblem zu sein. 32 - 64 Bit Installer oder so. Vieleicht weis einer von Euch das Problem umgehen kann. Muss ich da ein anders Officepaket installieren?

    Code:

    VB.NET-Quellcode

    1. Option Strict On
    3. Imports System.Data.OleDb
    4. Imports Microsoft.Office.Interop
    6. Public Class Form1
    7. Dim conn As OleDbConnection
    8. Dim dta As OleDbDataAdapter
    9. Dim dts As DataSet
    10. Dim excel As String
    11. Dim OpenfileDialog As New OpenFileDialog
    13. Private Sub btnLaden_Click(sender As Object, e As EventArgs) Handles ImportExcel.Click
    14. Try
    15. OpenfileDialog.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.MyDocuments
    16. OpenfileDialog.Filter = "All files (*.*)|*.*|Excel files (*.xlsx)|*.xlsx|xls files (+.xls)|*.xls"
    17. If OpenfileDialog.ShowDialog(Me) = System.Windows.Forms.DialogResult.OK Then
    18. Dim fi As New IO.FileInfo(OpenfileDialog.FileName)
    19. Dim FileName As String = OpenfileDialog.FileName
    20. excel = fi.FullName
    21. conn = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + excel + ";Extended Properties=Excel 12.0;")
    22. dta = New OleDbDataAdapter("select * from [Sheet1$]", conn)
    23. dts = New DataSet
    24. dta.Fill(dts, "[Sheet1$]")
    25. DGV1.DataSource = dts
    26. DGV1.DataMember = "[Sheet1$]"
    27. conn.Close()
    28. End If
    29. Catch ex As Exception
    30. MsgBox(ex.Message)
    31. conn.Close()
    32. End Try
    33. End Sub

    Du musst den besagten Provider installieren. Der ist wohl nicht installiert.
    "Gib einem Mann einen Fisch und du ernährst ihn für einen Tag. Lehre einen Mann zu fischen und du ernährst ihn für sein Leben."

    Wie debugge ich richtig? => Debuggen, Fehler finden und beseitigen
    Wie man VisualStudio nutzt? => VisualStudio richtig nutzen

    oft kann man dann auch den anderen OledbProvider angeben, den Jet-OleDb. Einer von beiden - ACE oder OleDb - ist meist installiert.

    Habich mal BeispielConnectionString rausgesucht:
    Provider=Microsoft.Jet.OLEDB.4.0; Data Source="C:\Programming\VS13\FormsVb\DbExtensionTester\DbGenerator\Data\RDaten - Kopie.MDB"

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

Facebook
Telefonspende