Error of VBA program

Question

Hi,allI have a VBA program developed in Excel 2000.When this program running,EssVConnect() and EssVSetSheetOption() are OK,but EssVZoomIn() has an error occured.It alerted a message "The range is not valid" and return a local failure "5" which can not be finded in the Essbase spreadsheet service help.Here is the code:Declare Function EssVZoomIn Lib "EESADDIN.XLL" (ByVal sheetName As Variant, ByVal range As Variant, ByVal selection As Variant, ByVal level As Variant, ByVal across As Variant) As Longy = EssVZoomIn("data", Null, range("A3"), 3, False)Does anyone know about this error?Essbase's version is 7.1.3.The web application server is WebSphere.

Answer 1

In looking back at your first post, three things struck me.1) Your definition for EssVZoomIn varies sufficiently from mine to warrant checking out (I don't have version 7.1, I'm on 6.5, so it may be a change that is okay). Below is my definition, but beyond the version, the language change may also have an influence. Either way, I'd recommend you look at the API supplied with the installed version of Essbase to see if it's valid. FWIW, here is the definition from the English 6.5 version, as you can see, the XLL name is entirely different -- again, this may not be relevant, so it's something to look at.Declare Function EssMenuVZoomIn Lib "ESSEXCLN.XLL" () As Long2) Your call uses the sheet name without a fully qualified workbook name. This works under some situations, and not under others. Try defining a string and range variable to see if that helps (if nothing else, it may help point out why the call fails). Here's the snipet (periods are for formatting):Dim strSheet as String, oCell as Range....Set oCell = ActiveSheet.Range("A3")....strSheet = "[" & ThisWorkbook.Name & "]" & ActiveSheet.Name & "!" & oCell.Address....y = EssVZoomIn(strSheet,Null,oCell,3,False)3) The cell A3 itself is curious, but not necessarily wrong. Perhaps there is something in the language or version that makes Essbase suspect that it's part of the page area instead of a row label. As a test, try lining the page members up in cells A1, A2, etc..., move the row labels down, make sure there is at least one blank row before your column labels, and that you have at least one column label. This just gives Essbase a better chance of interpreting your layout properly.If it's not any of the above, well, you may be right, it could very well be a version dependent bug. It wouldn't be the first time, but in general the Essbase API is fairly solid, just a bit quirky at times.Hold on here... I just realized something. The message isn't saying that the selection isn't valid, it's the range. Perhaps it is literally referring to the range parameter -- your "Null" may need to be removed to make it just:y = EssVZoomIn("data",,range("A3"),3,False).I normally use a fully defined range, "ActiveSheet.UsedRange" should work, too, although it may truncate the output if it doesn't include the rows beneith in the zoom.An alternative would be to just select cell A3 and call EssMenuVZoomIn, after setting the zoom level to 3, etc... It's not a pretty workaround, but it's a workaround.Good Luck, again :)