Hallo Zusammen,
ich möchte eine Zelle aus einer Excel-Tabelle auslesen.
Der Wert dieser Zelle soll dann in einer Windows Form in eine TextBox geschrieben werden.
Dazu benutze ich momentan folgenden Code, den ich hier im Forum gefunden habe:
Dim xls_name As String = "C:\...\Test.xlsx"
Dim expr_str As String = "undefined" & " = ug_cell_read(""" &xls_name & """,""" & "Tabelle 1" & "!" & "A1" &""")"
Dim expr_object As Expression = workPart.Expressions.CreateExpression("Integer" , expr_str)
Dim cell_value As Integer = expr_object.IntegerValue
TextBox_Test.Text = cell_value
workPart.Expressions.Delete(expr_object)
Soweit funktioniert das ganze einwandfrei.
Allerdings beinhaltet meine Windows Form mehr als 150 dieser TextBox´s.
Durch das ständige erzeugen und wieder löschen der Expressions dauert es ewig bis die Windows Form mit den Werten gefüllt ist.
(Circa 1-2 Sekunden pro TextBox!)
Gibt es eine Möglichkeit das ganze schneller zu machen? Evntl. ohne das ständige erzeugen und löschen von Expressions?
Habe schon einiges ausprobiert, bekomme aber immer die Meldung:
"ug_cell_read ist nicht deklariert ..." sobald ich es außerhalb einer Expression versuche.
Danke und Gruß
Kai
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP