Auslesen einer Excel-Tabelle mit VB.net

Harro L · 29. Oktober 2018, 12:18

Rahmenbedingung : VisualStudio2012, Excel Tabelle TestPresse.xlsx

Hallo zusammen ich bin blutiger Anfänger und komme einfach nicht weiter.
Ziel ist es in einer Tabelle (D:\TestPresse.xlsx) einen Wert in der Spalte B (ArtNo) nach einer Zahl zu suchen und anschließend den Inhalt dieser Reihe (Typ; Druck; Abstandshalter) in Variablen einzutragen, welche ich anschließend in drei Textboxen ausgebe.
Idealer weise gebt ihr mir ein Quellcode, ich habe hier schon alles möglich ausprobiert komme aber einfach nicht drauf.
Gruß
Harro

Verschoben. ~Thunderbolt

mrMo · 29. Oktober 2018, 20:39

Harro L schrieb:

Idealer weise gebt ihr mir ein Quellcode

So funktioniert das hier im Forum in der Regel nicht. Hier erarbeitet man zusammen eine Lösung. nun, da dies geklärt ist, wo genau bist du nicht weiter gekommen? Ich würde zunächst das Problem in einzelne Arbeitsschritte aufteilen

1. Excel einlesen
2. Daten verarbeiten
3. Daten ausgeben

Also, wo bist du bisher nicht weiter gekommen?

Harro L · 30. Oktober 2018, 06:55

Danke für die Aufklärung. Ich wollte euch nur nicht mit solchen Kleinigkeiten aufhalten...

Normalerweise suche ich mir im netz Quellcodeschnipsel die ich dann solange bearbeitet bis ich mein Problem gelöst habe. Das ging bis jetzt auch ganz gut.
Nur jetzt fehlt mir komplett der Ansatz. Daher hatte ich gedacht Ihr schmeißt mir einen Schnipsel zu und ich versuche es mal.
Was habe ich gemacht:
im ersten Teil habe ich mal eine TXT eingelesen... check
im zweiten Teil habe ich die Tabele eingelesen und wieder ausgegeben... check
im dritten Teil habe ich zuerst die Tabelle geöffnet, dann einen Wert kontrolliert (auskommentiert), dann wollte ich etwas suchen (geht nicht ), Dann einen wert einer Zelle ausgegeben und zum Schluss versuche ich die Tabelle wieder zu schließen (was aber glaube ich nicht ganz korrekt funktioniert).
Endziel ist es in der Spalte B (ArtNo) einen wert zu suchen um dann die dazugehörigen werte auszugeben. z.B.
5555 ; Modul A ; 1,5 ; blau
[line][/line]

VB.NET-Quellcode

Imports System
Imports System.IO
Imports Microsoft.Office.Interop 'diese imports reichen
Public Class Form1
' __________________________________________________________Einlesen aus textdatei
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button_Aus_TXE.Click
Dim filelenght
' datei öffnen
FileOpen(1, "d:\testpresse.txt", OpenMode.Input)
'ermitteln wie lang der text ist
filelenght = LOF(1)
TextBox2_Ausgabe.Text = InputString(1, filelenght)
'datei schließen
FileClose(1)
End Sub
' __________________________________________________________einlesen aus excel
Private Sub Button2_aus_XML_Click(sender As Object, e As EventArgs) Handles Button2_aus_XML.Click
Try
Dim MyConnection As System.Data.OleDb.OleDbConnection
Dim dataSet As System.Data.DataSet
Dim MyCommand As System.Data.OleDb.OleDbDataAdapter
Dim path As String = "D:\\TestPresse.xlsx"
MyConnection = New System.Data.OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + path + ";Extended Properties=Excel 12.0;")
MyCommand = New System.Data.OleDb.OleDbDataAdapter("select * from [Tabelle1$]", MyConnection)
dataSet = New System.Data.DataSet
MyCommand.Fill(dataSet)
DataGridView1_XLS_output.DataSource = dataSet.Tables(0)
MyConnection.Close()
Catch ex As Exception
MsgBox("Excel-Datei nicht gefunden")
End Try
End Sub
' __________________________________________________________suchen in excel
Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1_Suche.Click
' ### Excel-Dokument öffnen ###
Dim Excel1 As New Excel.Application
Excel1.Workbooks.Open("D:\TestPresse.xlsx")
Excel1.Sheets("Tabelle1").Columns(2).Select()
'Dim EXLRange As Excel.Range = Excel1.Range("B2:B5")
Excel1.Visible = False
' ### Kontrolle einer Zelle nach wert
'Dim Kontrollwert As String = Excel1.Value
'If Kontrollwert = "2,2" Then
' MsgBox("Treffer")
'Else
' MsgBox("NOB")
'End If
' Test ### Kontrolle einer Zelle nach wert
Dim Kontrollwert As String = Excel1.Value
Dim rngExcel As Excel.Range = Excel1.Range("B2:B5")
If Kontrollwert = "2,2" Then
MsgBox("Treffer")
Else
MsgBox("NOB")
End If
' ### Wert einer Zelle ausgeben
Dim Wert As String = Excel1.Range("D3").Value
MessageBox.Show(Wert, "Inhalt der Zelle")
' ### Excel und Anwendung schließen ###
Excel1.ActiveWorkbook.Close()
Excel1.Workbooks.Close()
Excel1.Visible = False
Excel1.Application.Quit()
End Sub
End Class

Murdoc · 30. Oktober 2018, 08:48

Den Ansatz mit dem Dataset finde ich eleganter, es geht natürlich auch über die Excel-Referenz.

Du hast ja schon ein Dataset mit deiner Datatable, das heißt was fehlt ist die Suche in der Art:

VB.NET-Quellcode

Dim foundRow() As DataRow
foundRow = dataSet.Tables(0).Select("ArtNo='123456'")
For Each row In foundRow
Dim rowIndex As Integer = dataSet.Tables(0).Rows.IndexOf(row)
Next

Snickbrack · 30. Oktober 2018, 10:08

Da du geschrieben hast VB.NET und Visual Studio, würde ich dir das hier empfehlen:

dotnetperls.com/excel

Ist zwar C# aber relativ simpel auf VB.NET umzumünzen.

Habe ich auch mal für ein Rechnungsprogramm verwendet, hat super funktioniert.

Harro L · 30. Oktober 2018, 14:03

So ich bin schon ein erheblichen Schritt weiter...
Nur gefallen mir mir die drei IF-Zeilen nicht...
Auch von der Geschwindigkeit es dauert ziemlich lang bis zur Ausgabe, ich denke das hängt damit zusammen:

VB.NET-Quellcode

Dim ArtNo As String = "5555"
Dim Ausgabe_Typ As String = "nicht vorhanden"
Dim Ausgabe_Druck As String = "nicht vorhanden"
Dim Ausgabe_Abstandshalter As String = "nicht vorhanden"
Dim Excel As Object = CreateObject("Excel.Application")
Dim wb = Excel.Workbooks.Open("D:\TestPresse.xlsx")
'Dim Gefunden As String
Dim ws = wb.Sheets(1)
Dim Cell = ws.Columns(2).Find(ArtNo)
If Cell Is Nothing Then Ausgabe_Typ = "nicht gefunden" Else Ausgabe_Typ = Cell.Offset(0, 1).Value
If Cell Is Nothing Then Ausgabe_Typ = "nicht gefunden" Else Ausgabe_Druck = Cell.Offset(0, 2).Value
If Cell Is Nothing Then Ausgabe_Typ = "nicht gefunden" Else Ausgabe_Abstandshalter = Cell.Offset(0, 3).Value
MsgBox(" Adapter: " + Ausgabe_Typ + " Pressdruck: " + Ausgabe_Druck + " Abstandshalter: " + Ausgabe_Abstandshalter)

Murdoc · 30. Oktober 2018, 15:03

Warum machst du es nicht so wie in deiner "Button2_aus_XML_Click" Sub?

Siehe mein obiger Post.

mrMo · 31. Oktober 2018, 04:47

Lass doch dieses furchtbare Excel Interop Teil weg. Eklig träge und instabil:-/

Excel import:
Excel-Daten auslesen

Daten verarbeiten
for each row as DataRow in myDataTable.Rows
If(row(„artno“).ToString = „foo“ ) Then
'Teffer
EndIf
Next

So, oder ähnlich könnte man das machen... finde die Lösung von @Murdoc ganz nice

RodFromGermany · 31. Oktober 2018, 08:56

Harro L schrieb:

Ich wollte euch nur nicht mit solchen Kleinigkeiten aufhalten...

Dann geh ins Unterforum Jobbörse & Marktplatz und biete eine Gegenleistung für die von Dir gewünschte Leistung.

Snickbrack · 31. Oktober 2018, 09:21

mrMo schrieb:

Lass doch dieses furchtbare Excel Interop Teil weg. Eklig träge und instabil:-/

Naja, wenn man es richtig verwendet funktionierts super.

Werde das auch immer wieder für sowas verwenden, wenn ich es denn brauche.

Auslesen einer Excel-Tabelle mit VB.net

Auslesen einer Excel-Tabelle mit VB.net

Harro L schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Harro L schrieb:

mrMo schrieb:

Tags

Ähnliche Themen

5 Benutzer haben hier geschrieben