Problem bei Excel Tabelle auslesen

  • VB.NET

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von itAxel.

    Problem bei Excel Tabelle auslesen

    Hallo an alle,

    Bei uns in der Firma exportieren wir über ein Programm Artikelnummer nach Excel (Was anderes kann das Programm nicht)

    Jetzt möchte ich mit meinem Programm die Nummern in eine Listbox einlesen, habe da auch schon was im internet gefunden aber da geht nur eine Zelle auszulesen.

    ich hoffe ihr könnt mir weiterhelfen

    Meine Wunsch wäre die Letze beschriebene Zeile Spalte A zu finden und alle Zellen bis zu dieser in eine Listbox (will kein Datagrid Listview würde auch gehen)

    hier mal mein derzeit vorhandener code

    Quellcode

    1. Dim Excel1 As New Microsoft.Office.Interop.Excel.Application
    2. Dim Artikel as String
    5. Try
    6. Excel1.Workbooks.Open(OpenFileDialog2.FileName)
    7. Excel1.Sheets("Tabelle1").Select()
    8. ' Excel1.Visible = False
    12. Artikel = Excel1.Range("A2").Value()
    13. ListBox1.Items.Add(txt)
    16. Catch ex As Exception
    17. MessageBox.Show("Datei nicht vorhanden.")
    18. Finally
    19. Excel1.ActiveWorkbook.Close()
    20. Excel1.Workbooks.Close()
    21. 'Excel1.Visible = False
    22. Excel1.Application.Quit()
    24. End Try


    Danke im voraus

    Hallo,

    ich kenne mich mit den Excel-Befehlen nicht so aus, vielleicht gibt es ja ein befehl der dir die anzahl der gefüllten zeilen zurückgibt.

    ansonsten würde ich es so machen:

    VB.NET-Quellcode

    1. dim AnzahlZeilen = Excel1.rows.count
    3. for Zeile = 0 to AnzahlZeilen
    4. Artikel = Excel1.Range("A" + Zeile).Value()
    5. if Artikel <> "" then
    6. ListBox1.Items.Add(Artikel)
    7. else
    8. exit for
    9. end if
    10. end for


    Ist nur ein anszatz und nicht das perfecte.
    vielleicht hilft es dir ja weiter

    gr. itAxel