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]
