When I access my catalog defintion I get over 250 cubes. I'd like to
limit the catalog to specific cubes.
My code is like:
Dim catAdoMD As ADOMD.Catalog
Dim conn As ADODB.Connection
sConnString = "Provider=MDrmSap.2;Data Source=SB2;User
ID=myname;SFC_CLIENT=010;SFC_LANGUAGE=EN;"
Set conn = New ADODB.Connection
conn.Open sConnString
Set catAdoMD = New ADOMD.Catalog
Set catAdoMD.ActiveConnection = conn
catAdoMD.CubeDefs.count
Set cdf = New ADOMD.Catalog
For i = 0 To catAdoMD.CubeDefs.Count
cdf.AddItem = catAdoMD.CubeDefs.Item(i)
Next
MsgBox cdf.CubeDefs.Count
'MsgBox cdf.Description
Set conn = Nothing
--~--~---------~--~----~------------~-------~--~----~
Visit the blog to download Excel tutorials at
http://www.excel-macros.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
For more options, visit this group at
http://groups.google.com/group/excel-macros?hl=en
Visit & Join Our Orkut Community at
http://www.orkut.com/Community.aspx?cmm=22913620
Visit the blog to download Excel tutorials at
http://www.excel-macros.blogspot.com
To Learn VBA Macros Please visit http://www.vbamacros.blogspot.com
To see the Daily Excel Tips, Go to:
http://exceldailytip.blogspot.com
-~----------~----~----~----~------~----~------~--~---
