Hi everyone!!!
i use AC2010-64bits. i try to code vba about Sheetset but it doesn't work and have error 429 "ActiveX component can't create object"
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
Set oSheetSetMgr = New AcSmSheetSetMgr
'''
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
i don't know how to fix it( at red line have error 429 ).....plz help me
i refer code form here:
thanks all!!!