thothongcong Posted February 27, 2017 Share Posted February 27, 2017 (edited) Hi All!! i'm newbie. i have some idea about sheetset manager (SSM), i refer some code in internet and do it but it's not working with me....help me please why do not working 1. i'm reference the AcSmComponents library (AcSmComponents18 ) 2.simple code : Public Sub StepThroughTheSheetSetManager() Dim oEnumDb As IAcSmEnumDatabase Dim oItem As IAcSmPersist '' Create a Reference to the Sheet Set Manager Object Dim oSheetSetMgr As AcSmSheetSetMgr 'AcSmSheetSetMgr [color="red"]Set oSheetSetMgr = New AcSmSheetSetMgr[/color] ''' Dim oSheetDb As AcSmDatabase Set oSheetDb = oSheetSetMgr.GetDatabaseEnumerator().Next '' Get Loaded Databases Set oEnumDb = oSheetSetMgr.GetDatabaseEnumerator '' Get First Open Database Set oItem = oEnumDb.Next '' Step through the Databases Do While Not oItem Is Nothing '' Display Sheet Set File Name MsgBox oItem.GetDatabase.GetFileName '' Get Next Open Database Set oItem = oEnumDb.Next Loop End Sub 3. error 429 at red line " Error 429 ActiveX Component cant create" tks all Edited February 27, 2017 by rkmcswain added [CODE] tags Quote Link to comment Share on other sites More sharing options...
SLW210 Posted February 27, 2017 Share Posted February 27, 2017 Please read the Code Posting Guidelines and edit your Code to be included in Code Tags.[NOPARSE] Your Code Here[/NOPARSE] = Your Code Here Quote Link to comment Share on other sites More sharing options...
thothongcong Posted February 28, 2017 Author Share Posted February 28, 2017 up................somebody can help me!!! Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.