---

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

---

Hallo Kai,

es ist noch keine 10 (in Worten: Zehn) Beiträge her, daß nach Excel gefragt wurde. Schon mal danach geschaut ?

Gruß, Michael

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hatte danach schon geschaut und die Datei nicht gefunden.

Nun habe ich die Beispiel Datei aber gefunden ... hatte vorher im NX8 (statt NX8.5) Ordner geschaut und dort ist die Beispiel-Datei noch nicht drin.

Habe es nun hinbekommen und es läuft.

Code:

---

Dim rowData As String
Dim objExcel = CreateObject("Excel.Application")
Dim objWorkbook = objExcel.Workbooks.Open (excelFileName, false, true)
rowData = objExcel.Cells(row, 2).Value
objExcel.Quit

---

Schön wäre nun noch wenn man das Arbeitsblatt also "Tabelle1", "Tabelle2" etc. auswählen kann.
Werde dort am Montag nochmal die Referenzdatenbank bemühen.

Erstmal Danke für die Hilfe   

[Diese Nachricht wurde von Kaichi am 25. Jan. 2014 editiert.]

[Diese Nachricht wurde von Kaichi am 25. Jan. 2014 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Ok habs schon

Code:

---

rowData = objWorkbook.Worksheets("Tabelle1").Cells(row, 2).Value

---

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

nx_api4920.txt

Hallo Kaichi,

hier poste ich ein Journal zu Deiner Problematik.

Um einen Zugang zu GTAC einzurichten, brauchst Du nicht so viel:
Server-ID, Webkey Access Code ( Log-Datei, Abschnitt
"Licensing Information" ) und eine gültige E-Mail-Adresse
(Firmen-Adresse bevorzugt).

------------------
Gruß
Wladimir

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP