String aus Formel mit VBA auslesen

[Fri day]

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

[Fri day]

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

[Bernhard Kantz]

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

[Author]

Posts