In .xls eine Spalte mit bestimmten Inhalt suchen und die Spalte ausgeben???

  • VB.NET

Es gibt 44 Antworten in diesem Thema. Der letzte Beitrag () ist von carwashbuxtehude.

    In .xls eine Spalte mit bestimmten Inhalt suchen und die Spalte ausgeben???

    Hallo,
    kann mir jemand dabei helfen.

    Wie bekomme ich es hin, das ich von A1 bis A30 nach einem Bestimmten Datum suche das in der TextBox 1 steht.

    z.B.:
    in TextBox 1 steht der 01.02.2014
    jetzt soll von A2 bis A30 nach diesem Datum gesucht werden, wenn es vorhanden ist soll in TextBox 2 Inhalt aus z.B. A20 (Dort steht der 01.02.2014) drin ausgegeben werden und dann noch in Textbox3
    der Inhalt bei diesem Beispiel aus C20 dort steht eine Zahl drin.


    Kann ich einfach den Bereich so durchsuchen?

    VB.NET-Quellcode

    1. txt = Excel1.Range("A2").Value()



    Und wie mache ich es am besten mit dem Suchdatum aus der Textbox1??

    Hier einmal der ganze Code:


    VB.NET-Quellcode

    1. Dim Excel1 As New Microsoft.Office.Interop.Excel.Application
    2. Dim txt As String
    5. Excel1.Workbooks.Open("C:\WZ_T" & Now.Month.ToString("D2") & Now.Year.ToString.Substring(2) & ".xls")
    6. 'Excel1.Visible = True
    8. Try
    10. txt = Excel1.Range("A2").Value()
    12. TextBox9.Text = txt
    16. Catch ex As Exception
    17. MessageBox.Show("Datum nicht vorhanden.")
    18. Finally
    21. Excel1.Application.Quit()
    25. End Try




    Matthias

    Hallo carwashbuxtehude

    Prinzipiell zum öffnen einer Exceldatei zum Auslesen empfehle
    ich die Interop Datei von Microsoft Excel.
    Hierzu ein Link: (Sieht aber in ihrem Code schon gut aus kann es leider gerade nicht Testen :rolleyes: )
    dotnet-snippets.de/snippet/exc…e-auslesen-mit-vb-net/865

    Um mehrere Werte auszulesen könnte kann man eine For Each Schleife verwenden

    VB.NET-Quellcode

    1. for i = 1 to 250 ' Anzahl der zu durchsuchenden Zellen
    3. Dim value as String = Excel1.Range("Spaltenname"& i ).Value() ' Wert auslesen
    4. if value = TextBox1.text Then ' Vergleichen
    5. 'Hier der Code wenn das Datum stimmt...
    7. 'Danach wird die Schleife beenden
    9. exit for
    11. end if
    12. next



    Evtl ist es sinvoll das Datum aus der Exceldatei in das
    Format DATE zu konvertieren und statt einer Textbox ein DateTimePicker
    zu nehmen um Falsch eingaben zu vermeiden...

    Damit ein guten Start in die neue Woche Grüße

    MrNobody

    Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „MrNobody“ ()

    Danke für die Hilfe!
    Habe es einmal versucht einzusetzen, bekomme aber den benötigten Wert nicht zurück.
    Ich muss doch noch bestimmt eintragen aus welchen Bereich ich eine Antwort haben möchte.



    Es soll ja so werden:
    Textbox1 gebe ich ein Datum ein z.B.: 01.02.2014.
    Jetzt soll der Bereich A2 bis A30 nach diesem Datum durchsucht werden.
    Wenn jetzt ein passendes Datum gefunden wird soll der Inhalt von der Zeile ausgegeben werden.

    z.B.: in A20 Steht jetzt das Datum 01.02.2014 in B20 300 steht eine Zahl und in C20 400 steht eine Zahl, die Zahlen sollen jetzt zusammen mit dem passendem DAtum ausgegeben werden.

    Dann würde stehen:
    TextBox1 01.02.2014
    Textbox2 01.02.2014
    Textbox3 300
    Textbox4 400


    Bis jetzt habe ich das, aber es wird nichts in der MsgBox angezeigt!

    VB.NET-Quellcode

    1. Private Sub christdatenXLS()
    3. Dim Excel1 As New Microsoft.Office.Interop.Excel.Application
    4. Dim txt As String
    5. Dim i As Integer
    6. Try
    7. Excel1.Workbooks.Open("C:\WZ_T0214.xls")
    11. 'Excel1.Visible = True ....wers braucht ?
    12. 'txt = Excel1.Range("A2").Value()
    14. For i = 0 To 250
    16. Next
    18. Dim value As String = Excel1.Range("A2" & i).Value() ' Wert auslesen
    19. If value = TextBox1.Text Then
    22. MessageBox.Show(txt)
    25. End If
    34. Catch ex As Exception
    35. MessageBox.Show("Datei nicht vorhanden.")
    36. Finally
    37. Excel1.Application.Quit()
    38. End Try
    39. End Sub




    Matthias

    Hallo,

    Jaja das gute alte C&P ...
    Kurz zu den Fehlern, Sie deklarieren txt As String verwenden es jedoch später nur zum Anzeigen, es wird also nicht mit einem Wert gefüllt...

    Probieren sie mal

    VB.NET-Quellcode

    1. MessageBox.Show(value)



    Der Zweite Fehler den ich grad sehe ist das Sie geschrieben habe

    VB.NET-Quellcode

    1. Excel1.Range("A2" & i)


    ersetzt man dies durch

    VB.NET-Quellcode

    1. Excel1.Range("A" & i)


    so bekommt man wenn i = 2 => A2 raus und nicht A22 ...



    Hier noch als Funktionierendes Beispiel mit 2 Textboxen und einem Button

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Dim ExcelApplication As New Microsoft.Office.Interop.Excel.Application
    3. Try
    4. ExcelApplication.Workbooks.Open("C:\.....\???.xlsx") 'Eigenen Pfad angeben ...
    6. For i = 1 To 200
    7. If Me.TextBox1.Text = ExcelApplication.Range("A" & i).Value() Then
    8. Me.TextBox2.Text = ExcelApplication.Range("B" & i).Value() + " " + ExcelApplication.Range("C" & i).Value()
    9. Exit For
    10. End If
    11. Next
    13. Catch ex As Exception
    14. MessageBox.Show("Datei nicht vorhanden.")
    15. Finally
    16. ExcelApplication.Application.Quit()
    17. End Try
    18. End Sub



    Grüße

    MRNobody

    Dieser Beitrag wurde bereits 4 mal editiert, zuletzt von „MrNobody“ ()

    So weit so gut!
    Er läuft alles durch und findet auch das Datum in der xls Datei.
    Bekomme aber nichts in die Textbox geschrieben und springt den in die

    VB.NET-Quellcode

    1. Catch ex As Exception!

    Meldung dort: {"Ungültige Konvertierung von der Zeichenfolge in Typ Double."}
    Ich vermute mal, das der Wert den ich zurückbekomme das falsche Format hat.
    In der Tabelle steht zwar eine ganze Zahl drin.
    Wie bekomme ich es den jetzt am besten hin, das die eingelesene Zahl ins richtige Format gewandelt wird???
    Oder liege ich damit falsch und die Meldung besagt etwas anderes????



    Matthias

    Hmm nee er will ja laut Fehler Meldung in das Format Double Konvertieren, handelt es sich um einer TextBox welche nur Zahlen zulässt ?

    Funktioniert das ?

    VB.NET-Quellcode

    1. MessageBox.Show(value)

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

    Ich wusste mir kommt der Code bekannt vor :D

    dotnet-snippets.de/snippet/exc…e-auslesen-mit-vb-net/865

    Wenn du aus Excel eine Zelle abfragen willst die als Datum formatiert ist und diese mittels .Value holst,
    was wird dann für ein Datentyp ankommen bzw. wie denkst du das, dass Datum dann aussieht?
    Setz mal Haltepunkte und schau was in deiner Variable steht dann sehen wir weiter.

    Der Junge hatte das selbe Problem: [VB 2012] Wie den Zelleninhalt einer Excel-Tabelle in eine Textbox schreiben?!?
    Wenn du nicht ganz auf der Leitung stehst brauchst du uns jetzt nicht mehr ;)
    Wer fragt, ist ein Narr für eine Minute. Wer nicht fragt, ist ein Narr sein Leben lang.

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

    Jeder fängt mal an. :)

    Stehe gerade auf der Leitung und bekomme es einfach nicht hin.
    Bis jetzt sieht mein Code so aus und beim durchlaufen wird ales beim durchles durchlaufen, aber obwohl das Datum in der TAbelle steht bleibt es beim durchlaufen nicht dort stehen.


    VB.NET-Quellcode

    1. Private Sub christdatenXLS()
    3. Dim i As Integer
    4. Dim ExcelApplication As New Microsoft.Office.Interop.Excel.Application
    7. Try
    9. ExcelApplication.Workbooks.Open("C:\WZ_T" & Now.Month.ToString("D2") & Now.Year.ToString.Substring(2) & ".xls")
    11. For i = 1 To 10
    12. If Me.TextBox18.Text = ExcelApplication.Range("A" & i).Value() Then
    13. Me.TextBox10.Text = ExcelApplication.Range("C" & i).Value() + " " + ExcelApplication.Range("D" & i).Value()
    17. Exit For
    18. End If
    19. Next
    21. Catch ex As Exception
    22. MessageBox.Show("Datei nicht vorhanden.")
    23. Finally
    24. ExcelApplication.Application.Quit()
    25. End Try
    26. End Sub



    Variablen die dort stehen siehe Bild.

    Tabelle au der abgefragt wird habe ich auch einmal hochgeladen.



    MAtthias
    Bilder

    • Bild.JPG

      32,97 kB, 754×192, 175 mal angesehen
    Dateien

    • WZ_T0214.XLS

      (565 Byte, 142 mal heruntergeladen, zuletzt: )

    Wenn ich es so mache

    VB.NET-Quellcode

    1. Private Sub christdatenXLS()
    3. Dim i As Integer
    4. Dim ExcelApplication As New Microsoft.Office.Interop.Excel.Application
    7. Try
    9. ExcelApplication.Workbooks.Open("C:\WZ_T" & Now.Month.ToString("D2") & Now.Year.ToString.Substring(2) & ".xls")
    11. For i = 1 To 10
    12. If Me.TextBox18.Text = ExcelApplication.Range("A" & i).Value.ToString Then
    13. Me.TextBox10.Text = ExcelApplication.Range("C" & i).Value.ToString + " " + ExcelApplication.Range("D" & i).Value.ToString
    17. Exit For
    18. End If
    19. Next
    21. Catch ex As Exception
    22. MessageBox.Show("Datei nicht vorhanden.")
    23. Finally
    24. ExcelApplication.Application.Quit()
    25. End Try
    26. End Sub




    bekomme ich bei

    VB.NET-Quellcode

    1. Catch ex As Exception



    Die Meldung:

    {"Der Objektverweis wurde nicht auf eine Objektinstanz festgelegt."}



    Großes ????

    Mach mal Option Strict ON.

    Ausserdem kann ich dir nur den Tipp geben das du da grade falsch an die Sache herangehst. In welchem Format liegen dir die Daten vor?
    Das was du da hast ist es schon fast Wert ein Datenmodell daraus zu machen und ein DGV zu nutzen wo du dir Sachen Anzeigen/Filtern usw. kannst.
    Du brauchst dazu nichtmal eine Datenbank. Bei der Menge an Feldern die du da hast reicht das halten der Daten in einer .xml vollkommen.

    Ist wesentlich eleganter als dieses Excel gemurkse.

    Ich möchte garnicht wissen für was die Textboxen 17-1 da sind. das ist einfach nicht schön und verfehlt den Sinn dieses Controls.
    Wer fragt, ist ein Narr für eine Minute. Wer nicht fragt, ist ein Narr sein Leben lang.

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

    Dann würde ich dir trotzdem Raten nicht 20 Textboxen als Filter-Werkzeug zu benutzen sondern dich an sowas zu probieren.

    [VB 2010] DatasetOnly: DB-Programmierung ohne Datenbank
    [VB.NET] Daten laden, speichern, verarbeiten - einfachste Variante

    Du kannst dann nach belieben den DGV Filtern und hast auch eine viel bessere Chance deine "Datenbank" zu erweitern. Aber da ist ErfinderDesRades der Guru hier :D
    Ich sehs nämlich schon so kommen das du dein Progrämmchen jetzt so fertig murkst, dann willst du was ändern kannst es aber nicht weil du beim Anfangen nicht über
    den Tellerrand geblickt hast.

    z.b. ist das was die Anlage ausspuckt als .csv auch relativ einfach zu verarbeiten:

    Quellcode

    1. 01.02.2014;17:06:38;258;105;84;46;23;0;0;0;0;0;0;0;0;0;0;0;0;11;3;0;0;0;0;0;0;31
    2. 02.02.2014;16:42:19;140;53;46;30;11;0;0;0;0;0;0;0;0;0;0;0;0;7;3;0;0;0;0;0;0;9
    3. 03.02.2014;18:06:54;223;88;73;51;11;0;0;0;0;0;0;0;0;0;0;0;0;12;1;0;0;0;0;0;0;27
    4. 04.02.2014;18:06:54;223;88;73;51;11;0;0;0;0;0;0;0;0;0;0;0;0;12;1;0;0;0;0;0;0;27
    Wer fragt, ist ein Narr für eine Minute. Wer nicht fragt, ist ein Narr sein Leben lang.

    Die Daten werden von einer Steuerung werden in die Tabelle WZ_T0214 geschrieben.
    Die Datei wird jeden Abend mit neuen Daten zum aktuellen Datum gefüllt.
    Also gibt es nur diese Tabelle um an die Daten zu kommen.


    Zum weiteren verarbeiten brauche ich nur die Tageszahlen aus dem entsprechenden Bereich.

    habe es jetzt mal so versucht.
    Habe jetzt nur das Problem das ich in der ersten Zeile Wörter stehen habe.
    Daten werden aber rausgelesen.


    VB.NET-Quellcode

    1. Dim pfad As String
    2. pfad = "C:\WZ_T" & Now.Month.ToString("D2") & Now.Year.ToString.Substring(2) & ".xls"
    4. Try
    6. If File.Exists(pfad) Then
    7. Dim a As Integer = 1
    8. Else
    9. MsgBox("Keine Datei vorhanden!")
    10. End If
    11. Dim sr As System.IO.StreamReader = New System.IO.StreamReader(pfad)
    14. Dim line As String
    15. Dim breaker As Boolean = False
    16. Dim dataDate As Date
    18. Do
    19. Try
    21. line = sr.ReadLine()
    23. Dim parts() = line.Split({" "c}, StringSplitOptions.RemoveEmptyEntries)
    24. Dim parts2() = parts(1).Split(" "c)
    25. Dim parts3() = parts(1).Split(" "c)
    26. Dim parts4() = parts(1).Split(" "c)
    29. dataDate = Convert.ToDateTime(parts(0))
    30. If dataDate.Day = Now.Day And dataDate.Month = Now.Month And dataDate.Year = Now.Year Then
    32. TextBox8.Text = parts(0)
    33. TextBox1.Text = parts2(3) '3 ist die Anzahl der leerstellen
    34. TextBox2.Text = parts(2)
    35. TextBox3.Text = parts(3)
    36. TextBox4.Text = parts(4)
    37. TextBox5.Text = parts(5)
    38. TextBox6.Text = parts(18)
    39. TextBox7.Text = parts(20)
    42. End If
    46. Catch ex As Exception
    47. breaker = True
    48. End Try
    51. Loop Until breaker = True
    52. sr.Close()
    53. Catch el As Exception
    54. Console.WriteLine("The process failed: {0}", el.ToString())
    55. End Try






    Matthias
    Bilder

    • bild.JPG

      56,23 kB, 756×502, 147 mal angesehen

    komisch, wieso kann man in einer textbox kein Date Datentyp anzeigen....
    Ich probiers nochmal, eine Textbox ist KEIN Control das zum Filtern gedacht ist (meine Meinung).
    Bis jetzt hast du es nämlich ignoriert dein Programm ordentlich zu machen.
    Wer fragt, ist ein Narr für eine Minute. Wer nicht fragt, ist ein Narr sein Leben lang.

Facebook
Telefonspende