-
FlexPro
- At a Glance
- Features & Options
- Applications
- All Advantages
- What’s New in FlexPro 2021
- Try FlexPro For Free
- FlexPro View OEM Freeware
- Buying Guide
- Login
- Language
- +49 6894 929600
- infoweisang.com
- Google Maps
- Products
- News
- Support
- Company
- Contact
- Login
- Language
- +49 6894 929600
- infoweisang.com
- Google Maps
String aus Formel mit VBA auslesen
Home > Community > Automation and VBA > String aus Formel mit VBA auslesen
- This topic has 2 replies, 2 voices, and was last updated 14 years, 8 months ago by Fri day.
-
AuthorPosts
-
January 30, 2010 at 12:02 am #12358Fri dayParticipant
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
January 30, 2010 at 12:02 am #8058Fri dayParticipantHallo,
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
January 30, 2010 at 12:35 am #8578Bernhard KantzParticipantFor 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
-
AuthorPosts
- You must be logged in to reply to this topic.