dbTalk Databases Forums  

Drillthrough in Excel 2000 - PivotCell workaround

microsoft.public.sqlserver.olap microsoft.public.sqlserver.olap


Discuss Drillthrough in Excel 2000 - PivotCell workaround in the microsoft.public.sqlserver.olap forum.



Reply
 
Thread Tools Display Modes
  #1  
Old   
Trevor B
 
Posts: n/a

Default Drillthrough in Excel 2000 - PivotCell workaround - 12-08-2003 , 02:36 PM






Has anyone developed a drillthrough example using Excel
2000? I understand that Excel 2000 does not support the
PivotCell object...therefore rendering the 2002 example
useless in 2000.

Reply With Quote
  #2  
Old   
Deepak Puri
 
Posts: n/a

Default Re: Drillthrough in Excel 2000 - PivotCell workaround - 12-08-2003 , 07:31 PM






A few months back, someone on this newsgroup had sent me an Excel add-in
that does drill-through in both Excel 2000 and XP. Here is a link to,
and an excerpt of, the thread:

http://groups.google.com/groups?hl=e...8&th=c057dee7f
68b2c67&rnum=7
Quote:
...
The recordset retrieved from the drill through has data from all
partitions. The data has just to be pasted into the XL sheet by
looping through all the partitions. Assuming that rst is the recordset
you retrieved, the following code will do the job (it might not be the
best implementation but it works.)

If you're interested I can send you a XL add-in that adds drill
through (multiple partitions) functionality to XL 2000 / XP.

HTH

Thomas
...
Quote:

- Deepak

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!


Reply With Quote
  #3  
Old   
Trevor B
 
Posts: n/a

Default Re: Drillthrough in Excel 2000 - PivotCell workaround - 12-09-2003 , 08:43 AM



Thank you Deepak,

Is this all there is to the add-in?

'Get data from recordset to worksheet

intNumberPartitions = 0

Do Until Done

On Error GoTo ExitDo
' repeat until all partitions done
intNumberPartitions = intNumberPartitions + 1
' show current partition
Application.StatusBar = "Pasting Partition: " &
CStr(intNumberPartitions)

Dim strPasteArea As String
' determine next free row
strPasteArea = "A" & CStr(Range("a65536").End(xlUp).row +
1)
' paste data
Range(strPasteArea).CopyFromRecordset rst
' next partition
Set rst = rst.NextRecordset

If rst.State = adStateClosed Then Done = True

Loop

ExitDo:

Do you have any more information than this? This just
looks like the code that handles the recordset, I need the
code to actually determine the cell, the query to send
etc...

Trevor



Quote:
-----Original Message-----
A few months back, someone on this newsgroup had sent me
an Excel add-in
that does drill-through in both Excel 2000 and XP. Here
is a link to,
and an excerpt of, the thread:

http://groups.google.com/groups?hl=e...=UTF-8&oe=UTF-
8&th=c057dee7f
68b2c67&rnum=7

...
The recordset retrieved from the drill through has data
from all
partitions. The data has just to be pasted into the XL
sheet by
looping through all the partitions. Assuming that rst is
the recordset
you retrieved, the following code will do the job (it
might not be the
best implementation but it works.)

If you're interested I can send you a XL add-in that adds
drill
through (multiple partitions) functionality to XL 2000 /
XP.

HTH

Thomas
...



- Deepak

*** Sent via Developersdex http://www.developersdex.com
***
Don't just participate in USENET...get rewarded for it!
.


Reply With Quote
Reply




Thread Tools
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

vB code is On
Smilies are On
[IMG] code is On
HTML code is Off



Powered by vBulletin Version 3.5.3
Copyright ©2000 - 2012, Jelsoft Enterprises Ltd.