Smartview VBA HypGetSheetOption problem

I am having an issue where my call to HypGetsheetOption #13 is returning an indiscypherable result. My #Missing label is set to #Missing but the call to retreive this returns garbage.
using vba's len function, I see that I have 1 less character then what was entered and is visible on the Hyperion-Options tab.
when I write the returned string to a cell on a worksheet, it looks like chinese.
when i use strconv vbUnicode the returned value appears as "# M i s s i n" spaces between characters and the "g" chopped off.
I don't see anything posted on anything like this, so I am suspecting I am overlooking something obvious.
I am using R 11.1.1.3, windows 7, US
Edited by: Cdeblue on Dec 10, 2012 8:47 AM

There definitely seems to be something funky going on with the return from that function. I'm on 11.1.2, Win 7 64-bit / Office 2010 32-bit.
I'm running the following code (the "A4" line is because sometimes, converting to Unicode then back again seemed to produce the correct result) and I don't get the same result every time. Sometimes it works. Declaring the return type as string rather than variant doesn't make any difference.
Reluctant to say 'bug' because I can't even get consistent results, but unless I'm misunderstanding something in the VBA it does look like it.
Sub TestMissing()
Dim vtMissing As Variant
vtMissing = HypGetSheetOption(ActiveWorkbook.ActiveSheet, 13)
Range("A1", "A4").Clear
Range("A1") = vtMissing
Range("A2") = StrConv(vtMissing, vbUnicode)
Range("A3") = StrConv(vtMissing, vbFromUnicode)
Range("A4") = StrConv(StrConv(vtMissing, vbUnicode), vbFromUnicode)
End Sub

Similar Messages

SmartView VBA code to connect to Essbase

Hi,
I am trying to connect to Essbase v 11.1.13 via Smartview v 11 using Macro (VBA code). Thing is that I am able to make connection, but not able to autneticate after connecting to Appname and Dbname in that server. In right hand side after this macro is run, I need to manually click on the server and then go ahead to that appname and Dbname and then do adhoc analysis.
Any inputs how to proceed with this step using SmartView VBA code?
The code I am using is -
bIsConnection = HypIsConnectedToAPS()
If bIsConnection = True Then
bIsConnection = HypDisconnectFromAPS()
End If
bIsConnection = HypConnectionExists("Sampleconn")
If bIsConnection = True Then
bIsConnection = HypRemoveConnection("Sampleconn")
End If
X = HypCreateConnection(Sheet1, User, pwd, "HYP_ESSBASE", url, sServer, app, db, connectionname, "Analytic Provider Services")
X = HypConnect(Empty, User, pwd, connectionname)
Please let me know even after this code, why it is not selecting appname.dbname in Smart view Data source manager?

In the code below there is no existing connection called “My DMDemo Basic”. So using HypCreateConnection, this connection is created which connects automatically to the application database using username and password as per the sample code.
If the connection string already exists, then you can call HypConnect to connect.
The HypCreateConnection does not really need a valid username and password. But when we are using HypConnect, it validates the username and password and recognizes with the friendly name per the connection name - for example "My DMDemo Basic".
If you want the user to be prompted for login details instead o f hardcoding the values, then you can assign null values to them - username and password as null values which is - "" (note this is open and close double quotes without any space). This will bring up the window where you can give the username and password values.
Run the following code by opening a brand new Excel file and then copying the code below into the Visual Basic Editor Module. Make sure you modify all the parameters according to your setup including username, password, server name, application name, etc.
Private Declare Function HypConnect Lib "HsAddin.dll" (ByVal vtSheetName As Variant, ByVal vtUserName As Variant, ByVal vtPassword As Variant, ByVal vtFriendlyName As Variant) As Long
Private Declare Function HypCreateConnection Lib "HsAddin" (ByVal vtSheetName As Variant, ByVal vtUserName As Variant, ByVal vtPassword As Variant, ByVal vtProvider As Variant, ByVal vtProviderURL As Variant, ByVal vtServerName As Variant, ByVal vtApplicationName As Variant, ByVal vtDatabase As Variant, ByVal vtFriendlyName As Variant, ByVal vtDescription As Variant) As Long
Sub Conn()
Dim username As Variant
Dim password As Variant
Dim x As Variant
Dim HYP_ESSBASE As Variant
HYP_ESSBASE = "ESSBASE"
username = "admin"
password = "password"
x = HypCreateConnection(Empty, username, password, HYP_ESSBASE, "http://localhost:13080/aps/SmartView", "localhost", "DMDemo", "Basic", "My DMDemo Basic", "Analytic Provider Services")
MsgBox x
x = HypConnect(Empty, username, password, "My DMDemo Basic")
MsgBox x
End Sub
HTH-
Jasmine

Smartview VBA function for launch calc-scripts as strings. like EsbCalc ???

We have used an Excel VBA which launch an calculation script from a STRING using the VBA Add-In function "EsbCalc".
We would like to migrate to Smartview VBA functions.....
The calc-script string has "parameters" which are modified at run-time...
I have found the function HypExecuteCalcScript - but seems that use as parameters ONLY the calc-script name...
Is it any VBA function in SmartView which launch a calc-script string (not a calc-script name) ?
We are using EPM 11.2
Thanks...

A tip I just learned at Kaleidoscope 2010* is that one can create a calc script consisting entirely of a substitution variable. In other words, a calc script can look like this:
&Calc
Smart View VBA does have a function for changing or creating substitution variables (HypSetSubstitutionVariable). You could create a calc script and subvar in your database as above. Then, at run time, set that subvar to your calc string with HypSetSubstitutionVariable and execute the calc script with HypExecuteCalcScript.
Quick test (11.1.1.3) shows that this really works.
I can't remember privileges required to create or set subvars vs execute calc strings off the top of my head - might be an issue (I ran as an admin). Also this approach doesn't support concurrent users, unless they each have a calc script and subvar to themselves. Still, depending on your exact situation, this might be a feasible workaround.
*I won't credit the presenter solely because the tip came from a presentation which he specifically declined to make public domain.

Essbase Smartview VBA macros error

I have a Essbase Smartview VBA macros issue as below:
I want get a value that I choose in POV dynamic dropdown list.
And show the value in the excel.
For example:
There customer dimention -childs are IBM、ACR show in POV dynamic dropdown list.
I choose IBM in POV then in excel sheet A1 show IBM.
I try the below vba code:
Private Sub CommandButton2_Click()
Dim vtGrid As Variant
Dim vtDimNames As Variant
Dim vtPOVNames As Variant
X = HypRetrieve("Sheet1")
If X = 0 Then
MsgBox ("Retrieve successful.")
Else
MsgBox ("Retrieve failed.")
End If
Range("F1").Select
Sts = HypGetSourceGrid("Sheet1", vtGrid)
Y = HypGetPOVItems(vtDimNames, vtPOVNames)
Range("h1").Value = Y
End Sub
'==========================================
But Y result is -3.
How did I get the value in dynamic dropdown list.
Thanks~

Few comments:
1. Range("F1").Select: Is F1 inside the grid you are rerieving? If you do a fresh retrieve Range("B2").Select is a better location and you will not get -3.
2. Range("h1").Value = Y. You are setting the error message and not the POV member name. vtPOVNames is an array of POV members and you should use Range("h1").Value =vtPOVNames(1) to get the member name. (1) being the first dimension in the POV.
3. Word of caution. You will not be able to put a valid member name in the grid if it already exists in the POV. I recommend you preface the member name by any string that will make it unique. For instance, you could use
Range("h1").Value = vtDimNames(1) & ": " &vtPOVNames(1)
This way you will see the DimensionName: Member Name.
Here is the modified code:
Sub test()
Dim vtGrid As Variant
Dim vtDimNames As Variant
Dim vtPOVNames As Variant
X = HypRetrieve("Sheet1")
If X = 0 Then
MsgBox ("Retrieve successful.")
Else
MsgBox ("Retrieve failed.")
End If
Range("b2").Select
sts = HypGetSourceGrid("Sheet1", vtGrid)
Y = HypGetPOVItems(vtDimNames, vtPOVNames)
Range("h1").Value = vtDimNames(1) & ": " & vtPOVNames(1)
End Sub
Edited by: Toufic Wakim on May 3, 2010 11:54 AM

SmartView VBA Commands - HypCreateConnection and HypConnect

I am in the process of converting some spreadsheets with Essbase Excel add-in VBA macros to use the SmartView VBA functions. I am having trouble just doing the connect to the V11 database. Prior to the conversion I used the following command to connect to the database to access an Essbase version 6.5 database:
sts = EssVConnect("MS Essbase Actual", EssUsername, EssPassword, "Ws-bco-ess1", "Crsfo09", "Crsfo09")
I have migrated the database to Essbase version 11.1.1 (on another server) and am attempting to connect to it with the following command (Oracle Hyperion SmartView for Office, Fusion Edition):
sts = HypCreateConnection("MS Essbase Actual", EssUsername, EssPassword, HYP_ESSBASE, "http://ws-tst-esswl:13080/aps/SmartView", "Ws-tst-ess3d", "Crsfo09", "Crsfo09", "CrsConnection", "Analytic Services Provider")
This is failing with a status of -47. The User Guide for Oracle Hyperion SmartView for Office, Fusion Edition lists status codes up to -40. It appears to connect to Provider Services and bring up my Essbase servers, but not actually connect to a specific application/database.
I am using Excel 2007.
I am also confused about the difference between HypCreateConnection and HypConnect. Do you need to use both, and if so, in which order? I found an article about Customizing Smart View Worksheets by using the VBA Toolkit, but it makes no mention of HypCreateConnection (and instructions seem to be for Excel 2003), so it wasn't very helpful.
Thanks!

OK... I'm still struggling with this. I keep getting a -47 error on the HypCreateConnection line, which according to the docs says that the connection already exists. So I added commands to try to remove the connection prior to creating it if one already exists. Here is my code:
X = HypIsConnectedToAPS()
If X = True Then
X = HypDisconnectFromAPS()
End If
X = HypConnectionExists("SampBasicConn")
If X = True Then
X = HypRemoveConnection("SampBasicConn")
End If
X = HypCreateConnection(Empty, "admin", "password", HYP_ESSBASE, "http://apsserver:13080/smartview/SmartView", "essserver", "Sample", "Basic", "SampBasicConn", "Analytic Provider Services")
X = HypConnectionExists("SampBasicConn")
If X = True Then
X = HypConnect(Empty, "admin", "password", "SampBasicConn")
End If
Return codes are all expected (sometimes I have to disconnect from APS and sometimes not) until I hit the HypCreateConnection line. The HypConnectionExists always returns false, but HypCreateConnection returns -47. After that, I test for the connection again, and it returns false. So why am I getting a -47? Also, there is no connection. It is truly acting as though the HypCreateConnection is failing. But the error code is not helpful. Is there any way to tell what is causing the failure? It seems I have tried all permutations of "/aps/SmartView", "/smartview/SmartView", fully qualified server names, etc. Is there a way to tell what is causing the failure (bad username/password, bad APS URL, bad Essbase server, bad application/database, etc.)?

SmartView VBA - Cannot set "Update Column Width" setting

Hi Folks,
I'm in the process of updating a series of v9 Essbase VBA API-driven workbooks to SmartView 11.1.2.1 and have hit a problem - I'm new to the SV VBA commands, and I'm hoping this is something obvious that I'm missing.
One of the functions that is key to ensuring data retrieval does not change the layout of the spreadsheets is the "Adjust Column Widths" setting, which in the Essbase VBA API could be managed using the EssVSetSheetOption function, but neither HypSetGlobalOption nor HypSetSheetOption appear to have any such capability. The only option I'm left with is to run retrieves followed by some reformatting of column widths, which seems rather ineligant to me.
Any ideas?
Many thanks,
Dave

looking in the .bas file (and what should be included in your project I find HSV_ADJUSTCOLUMNWIDTH in the definitions for Enumeration of options index to be used for HypGetOption/HypSetOption
Note, I'm looking at the 11.1.2.2 version, your mileage may vary depending on your version

Sprint Smartview and DM problems

Hello,
I've been successfully using DM and the previous version of sprint connection manager with no problem being able to sync my Pearl 8100 anytime while connected with Sprint. Now with the new Sprint Smartview connection manager, everytime I launch DM and initiate a sync it it will randomly stop/disappear. Interestingly, as soon as I shut down Sprint Smartview the DM will pop up, sync and run fine. Ugh! I've been reading elsewhere of similar issues but no successful solutions.

Hey k3rn3I,
Welcome to the BlackBerry® Support Community Forums.
This issue may be related to the following article:
BlackBerry® Desktop Manager may display "Device connected none" on some Microsoft Windows® 7 64-bit computers
http://www.blackberry.com/btsc/KB20598
Also see the following article on How to check if a Windows system is detecting a USB connected BlackBerry® smartphone http://www.blackberry.com/btsc/KB28440
Thanks.
-HB
Come follow your BlackBerry Technical Team on twitter! @BlackBerryHelp
Be sure to click Kudos! for those who have helped you.Click Solution? for posts that have solved your issue(s)!

Smartview VBA functions

Hi All,
Is there any link or documentation listing the VBA functions for Smartview equivalent to the functions in excel addin.
Thanks,
Raja

You too have noticed that there are quite a few functions missing. :)
Some of these items are because the functions aren't in SV at all, others because they are not exposed to the API.
You may be in luck with aliases as HypSetAliasTable will allow you to set the table, but not to turn aliases on and off.
If you are in 11.x, you might also want to take a look at HypSetConnAliasTable. I think that will actually change the alias table for the currently defined connection.
As for LROs, secondary buttons, and DTS, I think you are out of luck -- those items are not in SV so there are no corresponding functions.
I had a mildly painful experience with SV VBA early last year -- there were quite a few bugs. I think at one point I had identified eight defects (this was the old esupport web site). If you are on 9.3.x, make sure you are as up to date as possible.
Regards,
Cameron Lackpour

SmartView VBA with HypExecuteCalcScriptEx

Hi,
We've got a macro that runs a couple of business rules. When we run this macro, the first BR is executed without any troubles but when it gets to the execution of the second business rule we get the following error:
-41 SS_NOSUPPORT_PROVIDER
We only get this error in the developing environment and not in production environment however they both use the exact same versions and same configurations. We only get this error in production environment when we run the macro with certain pc's. What's really awkward is that this exact same macro used to work properly in both environments.
The macro runs both the first BR and the second (and a bunch of BR after that second one where we get the error) with the same function:
Function ejecutaFuncionEssbase(ByVal oSheet As Variant, ByVal vFunction As Variant, ByRef vNamePrompt() As Variant, ByRef vValuePrompt() As Variant) As Integer
    X = HypConnectionExists("Conexion Planning Sim")
    If X = True Then
        X = HypRemoveConnection("Conexion Planning Sim")
    End If
    X = HypCreateConnectionEx(HYP_PLANNING, vServer, "036CPCK", "036CPCK", "/Forms/Reportes/1.14 Seleccion atributos", CStr("http://" & vServer & ":19000/HyperionPlanning/SmartView"), "Conexion Planning Sim", vUser, vPass, "Conexion al modelo 036CPCK", "", "")
    Y = HypConnect(oSheet, vUser, vPass, "Conexion Planning Sim")
    Dim resultado As Integer
    Dim oRet As Long
    'Dim oSheet As Worksheet
    Dim vtCubeNames As Variant
    Dim vtBRNames As Variant
    Dim vtBRTypes As Variant
    Dim vtBRHasPrompts As Variant
    Dim vtBRNeedsPageInfo As Variant
    Dim vtBRHidePrompts As Variant
    Dim sAllCalcs As String
    Dim sCalcName As String
    Dim bNeedPageInfo As Variant
    Dim vtInRTPNames() As Variant
    Dim vtInRTPValues() As Variant
    Dim vtOutRTPNames As Variant
    Dim vtOutRTPValues As Variant
    Dim vtbBRRanSuccessfully As Variant
    Dim vtbBRRanSuccessfully2 As Variant
    Dim vtOutCubeName As Variant
    Dim vtOutBRName As Variant
    Dim vtOutBRType As Variant
    Dim bBRHasPrompts As Variant
    Dim bBRNeedPageInfo As Variant
    Dim bBRHidePrompts As Variant
    Dim bShowDlg As Variant
    Dim bRuleOnForm As Variant
       'Start Executing the Calc Script
        bShowDlg = False
        bRuleOnForm = False
        oRet = HypExecuteCalcScriptEx(oSheet, "036CPCK", vFunction, "graphical", True, False, vNamePrompt, vValuePrompt, bShowDlg, bRuleOnForm, vtbBRRanSuccessfully, vtOutCubeName, vtOutBRName, vtOutBRType, bBRHasPrompts, bBRNeedPageInfo, bBRHidePrompts, vtOutRTPNames, vtOutRTPValues)
We've tried with a different provider (that's also valid), a different function and some other minor changes but we're still facing the same issue. We know that all parameters are correctly passed like the BR name , and their corresponding prompts. We think it might have something to do with the connection to provider services but we have no clue how to fix it. If anybody could helo us we would be greatly appreciated.
Regards,
Santiago Ruiz

Hi,
We've got a macro that runs a couple of business rules. When we run this macro, the first BR is executed without any troubles but when it gets to the execution of the second business rule we get the following error:
-41 SS_NOSUPPORT_PROVIDER
We only get this error in the developing environment and not in production environment however they both use the exact same versions and same configurations. We only get this error in production environment when we run the macro with certain pc's. What's really awkward is that this exact same macro used to work properly in both environments.
The macro runs both the first BR and the second (and a bunch of BR after that second one where we get the error) with the same function:
Function ejecutaFuncionEssbase(ByVal oSheet As Variant, ByVal vFunction As Variant, ByRef vNamePrompt() As Variant, ByRef vValuePrompt() As Variant) As Integer
    X = HypConnectionExists("Conexion Planning Sim")
    If X = True Then
        X = HypRemoveConnection("Conexion Planning Sim")
    End If
    X = HypCreateConnectionEx(HYP_PLANNING, vServer, "036CPCK", "036CPCK", "/Forms/Reportes/1.14 Seleccion atributos", CStr("http://" & vServer & ":19000/HyperionPlanning/SmartView"), "Conexion Planning Sim", vUser, vPass, "Conexion al modelo 036CPCK", "", "")
    Y = HypConnect(oSheet, vUser, vPass, "Conexion Planning Sim")
    Dim resultado As Integer
    Dim oRet As Long
    'Dim oSheet As Worksheet
    Dim vtCubeNames As Variant
    Dim vtBRNames As Variant
    Dim vtBRTypes As Variant
    Dim vtBRHasPrompts As Variant
    Dim vtBRNeedsPageInfo As Variant
    Dim vtBRHidePrompts As Variant
    Dim sAllCalcs As String
    Dim sCalcName As String
    Dim bNeedPageInfo As Variant
    Dim vtInRTPNames() As Variant
    Dim vtInRTPValues() As Variant
    Dim vtOutRTPNames As Variant
    Dim vtOutRTPValues As Variant
    Dim vtbBRRanSuccessfully As Variant
    Dim vtbBRRanSuccessfully2 As Variant
    Dim vtOutCubeName As Variant
    Dim vtOutBRName As Variant
    Dim vtOutBRType As Variant
    Dim bBRHasPrompts As Variant
    Dim bBRNeedPageInfo As Variant
    Dim bBRHidePrompts As Variant
    Dim bShowDlg As Variant
    Dim bRuleOnForm As Variant
       'Start Executing the Calc Script
        bShowDlg = False
        bRuleOnForm = False
        oRet = HypExecuteCalcScriptEx(oSheet, "036CPCK", vFunction, "graphical", True, False, vNamePrompt, vValuePrompt, bShowDlg, bRuleOnForm, vtbBRRanSuccessfully, vtOutCubeName, vtOutBRName, vtOutBRType, bBRHasPrompts, bBRNeedPageInfo, bBRHidePrompts, vtOutRTPNames, vtOutRTPValues)
We've tried with a different provider (that's also valid), a different function and some other minor changes but we're still facing the same issue. We know that all parameters are correctly passed like the BR name , and their corresponding prompts. We think it might have something to do with the connection to provider services but we have no clue how to fix it. If anybody could helo us we would be greatly appreciated.
Regards,
Santiago Ruiz

Smartview VBA - Using HypCreateConnection to connect to different Providers

Hello,
I am currently working with Smartview 11.1.1.3.500. I am trying to build some code that will allow me to switch between our production and test environments that are on different APS URLs, rather than having to go into the options and typing in the server information everytime I need to switch. It looks like the HypCreateConnection function would be the one that would allow me to do this, but I'm not sure if I'm using it correctly. I am trying to send the Prod or Test APS URL and database info into the vtProviderURL and vtServerName parameters.
HypCreateConnection(Empty, [userName], [userPass], HYP_ESSBASE, [Prod/Test APS URL], [Prod/Test Server Info], [AppName],[DB Name], [Prod/Test Name] , "Analytic Provider Services")
However it seems that despite passing the URL to the function, the connection is using the information that is saved in the "Default URL" box in the "Hyperion Provider Service URL" section, in the "Ad Hoc" tab of the Hyperion Options window, which is where I've been manually typing in the Prod or Test URL everytime I need to retrieve their respective data.
The result is that after running my code, the "Smart View Data Source Manager" indicates that the APS URL being connected to is what was saved in my options, rather than my code.
Any help would be appreciated
Edited by: 1002778 on Apr 26, 2013 9:11 AM
I just realized that this is should be in the Smart View forum. Admins, feel free to move this thread.
Edited by: 1002778 on Apr 26, 2013 1:21 PM

I tried creating a connection and connecting and it is working for me. This is the macro that i used.
Sub create_connect()
sts = HypCreateConnection("Sheet2", "username", "password", HYP_ESSBASE, "http://testservername:19000/aps/APS", "testessbase", "app", "db", "App:DB", "Test Cube1")
sts = HypConnect(Empty, "username", "password", "App:DB")
End SubRegards
Celvin

SmartView member selection problem

Hi,
I am facing an issue in Smartview. I am using SmartView 11.1.2.1. I am unsure if this is how it actually works or if it is an issue.
Say, I have the following hierarchy:
A has a child B and B has a child C
And if the user has access to only A and C, when I manually drill down by double clicking on A, I get C. But if I select A and choose 'Member Selection', I do not see member C,under A, for selection.
Is this a known issue ??
Please help.
Thanks.

This would be expected behavior for a design like this. At a point in time your security requirements are such that it would be overly intensive for Smart View to work as you are asking it to.
Either grant read access to B or understand you will have the issue you have illustrated.
Regards,
John A. Booth
http://www.metavero.com

Smartview VBA marcos

I tried to use "HypGetSourceGrid".
script below:
Sub Macro2()
x = HypUseLinkMacro(True)
Range("F1").Select
x = HypGetSourceGrid("Sheet1", vtGrid)
Range("a2").Value = x
End Sub
Returns 0 if successful.
But I get X result is 57705.
What did I set wrong or lose set?

OK... I'm still struggling with this. I keep getting a -47 error on the HypCreateConnection line, which according to the docs says that the connection already exists. So I added commands to try to remove the connection prior to creating it if one already exists. Here is my code:
X = HypIsConnectedToAPS()
If X = True Then
X = HypDisconnectFromAPS()
End If
X = HypConnectionExists("SampBasicConn")
If X = True Then
X = HypRemoveConnection("SampBasicConn")
End If
X = HypCreateConnection(Empty, "admin", "password", HYP_ESSBASE, "http://apsserver:13080/smartview/SmartView", "essserver", "Sample", "Basic", "SampBasicConn", "Analytic Provider Services")
X = HypConnectionExists("SampBasicConn")
If X = True Then
X = HypConnect(Empty, "admin", "password", "SampBasicConn")
End If
Return codes are all expected (sometimes I have to disconnect from APS and sometimes not) until I hit the HypCreateConnection line. The HypConnectionExists always returns false, but HypCreateConnection returns -47. After that, I test for the connection again, and it returns false. So why am I getting a -47? Also, there is no connection. It is truly acting as though the HypCreateConnection is failing. But the error code is not helpful. Is there any way to tell what is causing the failure? It seems I have tried all permutations of "/aps/SmartView", "/smartview/SmartView", fully qualified server names, etc. Is there a way to tell what is causing the failure (bad username/password, bad APS URL, bad Essbase server, bad application/database, etc.)?

Hyperion SmartView for office problem

Hi,
I install hyperion hmf smartview for office 9.2.0.3.0.005 whith the admin right, I used it and can remove it from add in in excel 2003 sp3, but recentely we remove the admin right.
So now I can use it but I cant remove it from the add in in exel, that cause some conflict with other add in
Solution ??
We have Windows XP SP3 and Office pro 2003 SP3.
Thanks

Not a pretty solution, but I have had users manually remove the add in files from the Program directory on the hard drive and then save them on their desktop for when they want to use it again.
I think I have read that the newer version has less trouble with excel functions.

Word VBA Macro problem with adding rows to table for BAPI call

Hello all,
I have code in Word macro which is reading file from the disk and converting it to binary. This binary should be inserted in the internal table (Dim As object) for further posting. Code is modified from the note 945682.
Here is the code:
Sub Read_File(FileNameFull As String)
Dim oBinaryDataTab As Object
Dim oBinaryDataRow As Object
Dim lBytesToRead As Long
Dim iNumChars, i As Integer
Dim s1022, s2044, sX As String
Dim fs, f, ts As Object
Dim ReadFile As String
' Actually does the work of uploading the document in 1022 byte pieces.
ReadFile = 0
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(FileNameFull)
Set ts = f.OpenAsTextStream(1, -2)
lBytesToRead = f.Size
ReadFile = f.Size
Do While ts.AtEndOfStream <> True
If lBytesToRead < 1022 Then
iNumChars = lBytesToRead
Else
iNumChars = 1022
End If
s1022 = ts.Read(iNumChars)
s2044 = ""
For i = 1 To Len(s1022)
sX = Hex$(CByte(Asc(Mid(s1022, i, 1))))
If Len(sX) = 1 Then
sX = "0" + sX
End If
s2044 = s2044 + sX
Next i
Set oBinaryDataRow = oBinaryDataTab.Rows.Add
oBinaryDataRow("LINE") = s2044
lBytesToRead = lBytesToRead - iNumChars
Loop
End Sub
But on the row "Set oBinaryDataRow = oBinaryDataTab.Rows.Add" code just stopped to work.
Can somebody give me a hint how to proceed?
I also tried to Dim oBinaryDataTable As Table and oBinaryDataRow as Row with the same result.
oBinaryDataTable will be used as to post file to SAP system without GUI FTP connection. Because of that it must be converted to binary form.
TIA
Gordan
P.S. Message to Moderator: Please, be so kind, and put the message in the proper forum if this is not this one.

Self Resloved

Smartview Hypretreive VBA error

Hi All
I'm uisng 11.1.2 SmartView VBAs to retrieve values for 7 excel sheets in a work book
Sheet6.Activate
sts = HypSetActiveConnection(connectionname)
'Retrieve data for each sheet
X = ActiveSheet.Name
Application.DisplayStatusBar = True
sts4 = HypRetrieve(Sheet6)
sts = HypDisconnect(Sheet6, True)
Application.StatusBar = "Retrieving data for " & X & "...."
Application.Wait Now + TimeValue("00:00:02")
Below given is the piece of code (in macro, i'm replicating the same code for all the 7 sheets)
But everytime i run the macro....some of the sheets is not get refreshed correctly. (it is random.....sometimes first 3 gets refreshed.....sometimes 4,5,7th)....
The status return is always 4.
CAn someone throw some light on this......do i need to wait for more time before the next refresh.
I tried using HypMenuVRefresh and then it aborts with following error message.
“Cannot query members by specs. Essbase Error(1290002): Network Error [10061]: Unable To Connect To [server:32776]. The client timed out waiting to connect to the Essbase Server using TCP/IP. Make sure that the client machine has sufficient number of ports available.”
I tried adding MaxUserPort and TcpTimedWaitDelay and MaxFreeTcbs, but that didn't help.

Hi Celvin
I agree with Matt on the possibility of a timeout issue, esp considering the randomness in how the problem manifests. However, I would look more the server setting on this first.
Error code (positive) 4 usually seems to indicate a "Server Error" - the APS server threw the error, and not the SV Client.
I've also seen Error 4 when the dataset requested will exceed some limit such as number of possible rows or columns.
If I had to list the error codes in order of how much li like to debug them, not that I like to debug error codes, this one would be very near the bottom.
Can you help me understand why you have an Application.Wait at the end of your code snip?
Robb Salzmann

Smartview VBA HypGetSheetOption problem

Similar Messages

Maybe you are looking for