im Dialog Excel Datei laden und mit Werten im Script rechnen

[Timo]

Hallo,

ich wähle in einem Dialog mit folgendem Code eine Excel Datei aus.
Wie gelingt es nun, dass ich aus der beispielsweise ersten Mappe die Werte in Spalte zwei Zeile 1 bis 10 nehme und so in das eigentliche vbs script übergebe, dass ich diese dort als Variablen zum Rechnen habe.

Dim iCount
Call FileDlgShow("Pfad", "Excel Datei, *.csv;*.xls", "Getriebe wählen", False)
If (DlgState = "IDOk") Then

For iCount = 0 To Ubound(FileDlgNameList)
Call DataFileLoad(FileDlgNameList(iCount))
Next
Else
Call MsgBox ("Getriebeauswahl abgebrochen!")

End If

[ReneG]

Hallo Timo,

zum Beispiel so:


Dim iCount, MeineWerte(10), Zeile

Call FileDlgShow("Pfad", "Excel Datei, *.csv;*.xls", "Getriebe wählen", False)
If (DlgState = "IDOk") Then

For iCount = 0 To Ubound(FileDlgNameList)
Call DataFileLoad(FileDlgNameList(iCount))

For Zeile = 1 to 10
MeineWerte(Zeile) = CHV(Zeile,2) '... Werte aus Kanal 2 Zeile 1 bis 10 auslesen und in Array "meineWerte()" schreiben
Next

Next
Else
Call MsgBox ("Getriebeauswahl abgebrochen!")

End If



Mit dem Array "MeineWerte(1)" bis "MeineWerte(10)" kannst Du dann zur Laufzeit des Scripts rechnen wie Du möchtest.

Gruß
René

[Timo]

vielen dank für deine antwort René.

aber ich will die daten nicht aus einem kanal auslesen, sondern aus der excel datei, die oben gewählt wurde! mit chv() lese ich doch kanalwerte aus?

[ReneG]

Hi!

Zum auslesen müssen deine Daten ja aber erst mal in DIAdem geladen sein!

Das machst du in deinem Skript-Beispiel ja schon mit dem DataFileLoad.
Da lädst Du die selektierte Excel-Datei in das DIAdem Datenportal (geschickter wäre vllt. ein "Call ExcelImport" schau dir das mal in der Hilfe an)

René

[voyager]

Hallo Timo,
da hat René recht, dass es mit "ExcelImport" in DIAdem 2010 recht einfach geht.
Über die Konfigurationsadatei *.STP kannst du den Import auf den gewünschten Kanalausschnitt beschränken.
Ab DIAdem 2011 ist dann ein eher eine PlugIn-Lösung angebracht, da "ExcelImport" ein Auslaufmodell ist und neue Excel-Formate nicht unterstützt.
Eine PlugIn-Lösung sollte eigentlich auch in DIAdem 2010 mgl. sein. Den Assistenten gibts aber erst ab DIAdem 2011.

Gruß
Voyager

[Timo]

Kann einer die PlugIn Lösung oder das mit der *.stp und ExcelImport genauer beschreiben? ich bekomme das irgendwie nicht hin. :-(

was ich bisher habe ist:

Dim intNo
Call FileDlgShow("Pfad\Getriebedateien\", "Excel Datei,*.csv;*.xls", "Getriebe wählen", False)
Call EXCELCountSheets(DataReadPath & "\Example.xls")
Call EXCELReadConfig(DataReadPath & "Example_xls.stp")
For intNo = 1 to EXCELSheetCount
Call EXCELImport(DataReadPath & "\Example.xls",, 1)
Next
Call EXCELSaveConfig(DataReadPath & "MyConfiguration_xls.stp")
Call MsgboxDisp(EXCELStatText & Chr(13) & "DIAdem has imported data from " & EXCELSheetCount & " Excel sheets.")

Wie gehe ich mit der Variablen datareadpath um und wie stelle ich meine *.stp richtig ein?

und der zweite schritt wie sage ich dem vbs, dass er in tabelle 1 spalte 2 zeile 1 als wert1 setzen soll zeile 2 wert2 usw. um damit nachher zu rechnen.

DANKEschön!