Werte in Excel Tabelle

SupportCommunity Automation and VBA Werte in Excel Tabelle

Ansicht von 3 Beiträgen - 1 bis 3 (von insgesamt 3)
  • Autor
    Beiträge
  • #12810
    Norbert RammNorbert Ramm
    Mitglied

    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

    #8467
    Norbert RammNorbert Ramm
    Mitglied

    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

    #9281
    Bernhard KantzBernhard Kantz
    Moderator

    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.

    
    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
    
Ansicht von 3 Beiträgen - 1 bis 3 (von insgesamt 3)
  • Du musst angemeldet sein, um auf dieses Thema antworten zu können.