Topic
Objects in a FlexPro data
Page d'accueil ' Communauté ' Automation et VBA ' Objets dans une donnée FlexPro
- Ce sujet contient 5 réponses, 2 participants et a été mis à jour pour la dernière fois par David CHATEL, le il y a 17 années et 8 mois.
-
AuteurMessages
-
11.09.2007 à 00:19 #34902David CHATELParticipant
Hello,
I try with VBA to make a list of all the objects that are contained in a FlexPro data. I have already tip the following code, but it doesn’t works, it say that fpObjects a wrong parameter is. Can somedoby help me? Is there a possibility to do this? Thank you for your answer!————————————————
Sub LookForObjects()
Dim appFlex As FlexPro.Application
Dim dbFlex As FlexPro.Database
Dim fpObjs As fpobjects
Dim fpObj As fpObjectSet appFlex = New FlexPro.Application
Set dbFlex = appFlex.Databases.Open(“Path”)‘this fonction doesn’t work
Set fpObjs = dbFlex.RootFolder.ObjectsFor Each fpObj In fpObjs
Debug.Print fpObj.Name
NextappFlex.Quit fpDoNotSaveChanges
End Sub11.09.2007 à 00:19 #34907David CHATELParticipantHello,
I try with VBA to make a list of all the objects that are contained in a FlexPro data. I have already tip the following code, but it doesn’t works, it say that fpObjects a wrong parameter is. Can somedoby help me? Is there a possibility to do this? Thank you for your answer!————————————————
Sub LookForObjects()
Dim appFlex As FlexPro.Application
Dim dbFlex As FlexPro.Database
Dim fpObjs As fpobjects
Dim fpObj As fpObjectSet appFlex = New FlexPro.Application
Set dbFlex = appFlex.Databases.Open(“Path”)‘this fonction doesn’t work
Set fpObjs = dbFlex.RootFolder.ObjectsFor Each fpObj In fpObjs
Debug.Print fpObj.Name
NextappFlex.Quit fpDoNotSaveChanges
End Sub11.09.2007 à 02:57 #34903Bernhard KantzParticipantThis code should work. Unfortunately, we cannot reproduce your problem.
Please register FlexPro again in the command line:
flexpro.exe /regserver
If this step doesn’t help update all your Microsoft Office products and reinstall FlexPro.11.09.2007 à 18:37 #34904David CHATELParticipantThank you for your answer! I want to precise few things.
I use this code with VBA Access and I am working with the standard version of FlexPro.With a another function, I can point of some objects (datasets, formulas, diagrams…) if I have before specified the type of this object.
I cann’t manage to point an object if I don’t specify the type.
Another element caught my attention. Then I write “Dim fpObjs as FlexPro.fpObjects”, I see that “fpObjects” is written with a capital on the O (in the selectionlist). See on the code, “fpobjects” is written whitout a capital. It that normal? Do I have to link another dll to get this function? Thank you for your help!13.09.2007 à 19:53 #34905Bernhard KantzParticipantVBA is generally not case sensitive, although it will transform keywords into a standard case configuration and force the case of variable names to conform to the case of the entry within the symbol table entry.
If you use FlexPro7 your code should work.
If you use FlexPro6 please try the code:
[code]
Set fpObjs = dbFlex.RootFolder.Objects(“.*”)
[/code]19.09.2007 à 17:30 #34906David CHATELParticipantI use FlexPro 6 and your last tip works!
Thank you! -
AuteurMessages
- Vous devez être connecté pour répondre à ce sujet.