String aus Formel mit VBA auslesen

SupportCommunity Automation and VBA String aus Formel mit VBA auslesen

Ansicht von 3 Beiträgen - 1 bis 3 (von insgesamt 3)
  • Autor
    Beiträge
  • #12358
    Fri DayFri day
    Mitglied

    Hallo,
    ich habe in einer Datenbank einen Ordner mit unbekanntem Namen, in welchem eine Formel mit bekanntem Namen drin ist / sein sollte. Aus dieser Formel müsste ich mittels VBA einen String auslesen.
    Die Frage ist wie durchsuche ich die Datenbank und deren Ordner nach dieser Formel und wie greife ich auf den Inhalt dieser Formel zu?

    danke

    mfg

    #8058
    Fri DayFri day
    Mitglied

    Hallo,
    ich habe in einer Datenbank einen Ordner mit unbekanntem Namen, in welchem eine Formel mit bekanntem Namen drin ist / sein sollte. Aus dieser Formel müsste ich mittels VBA einen String auslesen.
    Die Frage ist wie durchsuche ich die Datenbank und deren Ordner nach dieser Formel und wie greife ich auf den Inhalt dieser Formel zu?

    danke

    mfg

    #8578
    Bernhard KantzBernhard Kantz
    Moderator

    For this purpose you can use the SearchConstraints object and the Search-function of the folder object.

    Example:

    
        Dim oSearch As SearchConstraints
        
        Set oSearch = New SearchConstraints
        
        With oSearch.Add
            .SearchItem = fpSearchItemName
            .CompareOperation = fpSearchCompareOpTextIs
            .SearchValue = "FormulaName"
            .BooleanOperation = fpSearchBooleanOpAnd
        End With
        
        With oSearch.Add
            .SearchItem = fpSearchItemObjectType
            .CompareOperation = fpSearchCompareOpObjectTypeIsKindOf
            .SearchValue = fpObjectTypeFormula
        End With
        
        Dim oObjects, oObject
        Dim oFml As Formula
        
        Set oObjects = ActiveDatabase.RootFolder.Search(True, oSearch)
        Dim strContent As String
        
        For Each oObject In oObjects
            Set oFml = oObject
            strContent = oFml.Formula
            MsgBox strContent
        Next oObject
    

    support@weisang.com

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