Values in Excel table

[Norbert Ramm]

Hallo,
im Beispiel vom 12. 01. 2006 wurde gezeigt wie man Werte aus einer Excel Tabelle
auslesen kann. Gibt es auch den umgekehrten Weg, also einzelne Werte in eine
Excel Tabelle zu schreiben ?

Mit freundlichen Grüßen

[Norbert Ramm]

Hallo,
im Beispiel vom 12. 01. 2006 wurde gezeigt wie man Werte aus einer Excel Tabelle
auslesen kann. Gibt es auch den umgekehrten Weg, also einzelne Werte in eine
Excel Tabelle zu schreiben ?

Mit freundlichen Grüßen

[Bernhard Kantz]

Durch Nutzung des Excel-Objektmodells ist es möglich gezielt Werte in Tabellen zu verändern. In der FlexPro-Entwicklungsumgebung für VBA füge man dazu einen Verweis (im Menü ‘Extras’) auf die entsprechende Microsoft Excel Object Library zu seinem Modul hinzu.

Liegt die Excel-Tabelle eingebettet in der FlexPro-Projektdatenbank vor, so kann mit der Eigenschaft .Workbook des FlexPro-Objektes ExcelFolder das gleichnamige Excel-Objekt gelesen werden. Ein kurze Funktion zur Illustration möge dies verdeutlichen. Angenommen wird, dass ein Datensatz (mit diesem Namen) in der Projektdatenbank existiert; dessen erstes Element wird in die Zelle B2 in Tabelle1 übertragen.

[code]
Sub WriteToExcel()

Dim oBook As ExcelFolder
Set oBook = ActiveDatabase.Object(“Excel-Arbeitsmappe”, fpObjectTypeExcelWorkbook)

Dim oSheet As Excel.Worksheet
Set oSheet = oBook.Workbook.Sheets(“Tabelle1”)

Dim oDataset As DataSet
Set oDataset = ActiveDatabase.Object(“Datensatz”, fpObjectTypeDataSet)

oSheet.Range(“B2”) = oDataset.Value(fpDataComponentY, , 1)

End Sub
[/code]

[Author]

Posts