Bookmark page
Printable version
Course updatesForum home » Delegate support and help forum » Microsoft VBA Training and help » Accessing Hyperion add-in
|
|
|
Bookmark this page|
The UK's most regular Training information: |
|
Welcome. Please choose your application (eg. Excel) and then post your question. Our Microsoft Qualified trainers will then respond within 24 hours (working days). Frequently Asked Questions
Any suggestions, questions or comments? Please post in the Improve the forum thread. |
Accessing Hyperion add-in
Resolved · Urgent Priority · Version 2003
Reply
Accessing Hyperion add-in
HiI am using a Hyperion add in within excel that has an extra item within the command bar called RHXL. Having hit RHXL one of the options is Refresh. I simply want to write a bit of code to Refresh. I have been given the code below which apparantly worked in a earlier life
Application.CommandBars("Worksheet Menu Bar").Controls(" RHXL").Controls(" Refresh").Execute
The sub routine is falling over saying it is an invalid procedure or agument
Please could you tell me what I am doing wrong - as cannot see Worksheet menu Bar anywhere in help
Thanks
For upcoming training course dates see: Pricing & availability
RE: Accessing Hyperion add-in
Hi TrevorThanks for your question
This one is hard to fix without seeing your application with the add in. A few things to try however.
1. The first thing is that the code you posted appears to have a rogue blank space in controls(" RHXL), which would probably cause the thing to fall over.
2. The structure of the code seems odd in that I would have expected something like
Application.Commandbars("RHXL").Controls("Refresh").ExcecuteThis is because the RHXL toolbar is the command bar and the refresh button is the control you wish to use
If this doesn't work please get back to me and we can try something else
Regards
Stephen
RE: Accessing Hyperion add-in
StephenYour observation of the rogue spaces did the trick - thanks. The following code now works in one worksheet. However if I copy the code to another worksheet and run the code I get a 400 error message and it doesn't like it at all - any ideas ?
Sub refresh()
'this macro refreshes all worksheets
Dim WS As Worksheet
For Each WS In Worksheets
Application.CommandBars("Worksheet Menu Bar").Controls("RHXL").Controls("Refresh").Execute
Next WS
Sheets("master").Select
MsgBox ("All worksheets have been refreshed")
End Sub
RE: Accessing Hyperion add-in
Hi TrevorThanks for you follow up
I apologise for the delay in replying. I have been away from work for the last few weeks due to illness. I realise that you may have already solved the problem, if this is not the case could you please advise me so that I can giver it my urgent attention
Regards
Stephen
RE: Accessing Hyperion add-in
Solved - problem was in naming the macro 'refesh' a word reserved for Hyperion - thanks for your efforts anyway . Trevor
RE: Accessing Hyperion add-in
Thanks TrevorRegards
Stephen
|
 |
|
» Forum post: Formatting |
When formatting text styles certain colours do not appear to work (i.e. aqua)? Is this a technical gliche?
