When running the macro we are getting the error “vba project 429 activex component can’t create object 1000429” i changed the code to Set sessionmanager = CreateObject(“CrystalEnterprise12.SessionMgr.1”)
we are on XI3.1 Sp6 but still getting the same error. Could you please help on this. Is there anything else i need to change in the code?
Hi Joepeters,
Have VBA code in MS Access to extract the list of users from BO 4.1. Code was working fine with Office 2013, but just updated to Office 2016 and now the code is failing.
The error being generated is: 13 - Type mismatch 1000013
Code:
'—Vars for BO Session—
Dim SessionManager As New SessionMgr
Dim esession As EnterpriseSession
Dim iStore As InfoStore
'—Vars for User Info—
Dim BOUsers As InfoObjects
Dim BOUserItem As InfoObject
Dim BOUserObject As User
'Dim BOUserObject As CrystalUserPluginLib.User
'Enterprise Session
Set esession = SessionManager.Logon(Me.tbUserName, Me.tbPassword, Me.cboCMS, Me.cboAuth)
'Infostore instanciation
Set iStore = esession.Service("", "InfoStore")
'--Get User Info
Set BOUsers = iStore.Query("SELECT TOP 1000000 SI_EMAIL_ADDRESS, SI_FORCE_PASSWORD_CHANGE, SI_NAME, SI_ID, SI_USERGROUPS, SI_USERFULLNAME, SI_ALIASES, SI_DESCRIPTION, SI_LASTLOGONTIME, SI_PASSWORDEXPIRE, SI_NAMEDUSER FROM CI_SYSTEMOBJECTS Where SI_KIND='User'")
For Each BOUserItem In BOUsers 'Loop through users
Set BOUserObject = BOUserItem
The code is now failing on the last line above, setting BOUserObject = BOUserIte
It’s likely that there is another reference that includes a “User” class, and that is being used for your UserObject object.
I noticed you had this line commented out:
'Dim BOUserObject As CrystalUserPluginLib.User
That would be the correct way to explicitly reference the correct class. If you had that originally and it didn’t compile, then that would indicate that you don’t have the Crystal Enterprise User Plugin 12 library selected in References.
Did you ever get a response? We have a client still using XI3.1 SP6 and I desperately need a list of users/groups but I’m getting a Compile error: Can’t find project or library.
I’m running this on my laptop (Windows 10, 64-Bit, MS Office 15. I have the client tools as well as CR 2008 installed.
At the top of the list you will see one or more library names prefixed with “MISSING”. Scroll down in the list to find the library with the same name, and select it.
I am still getting this with BI 4.1 - we want to decommission it and this would make life so much easier. I have no missing dll’s but it is coming up with the CrystalEnterprise14.SessionMgr.1 --217199231 Internal error 100440. I have CE14 selected. I have changed the entries to match. and i am having to remark out some DIM rows which are also failing. Maybe its our version of Excel - Office professional plus 2016
I have created this file so long time ago, I don’t have anymore a Microsoft Excel product on my computer today . I see that the first post (with the file) is missing I will try to retrieve it.