Rumba Mainframe Excel/VBA Macro

[Sachin Shama]

Hi ,
I am trying to write a macro which takes the values from my excel sheet & put it into RUMBA mainframe & viceVersa.I have been successful to code the 'excel to Mainframe' copy functionality.However, I am facing issue when I copy text from mainframes to Excel. I have tried using CopyPSToString / CopyPS / CopyFieldToString functions but everytime the string is returned as blank..... I have read somewhere that I have to change default session settings to 'ATTRB' which can be done by using SetSessionParameters , However, I am not able to use it?
Can anybody please help on this?


Thanks,
Sachin

 

[Sachin Shama]

Hello Ganesh,
You need not provide any server name.The command retval = WD_ConnectPS(100, "A") should suffice.
I hope that your Rumba and Excel both are on citrix.If your excel is at local machine & rumba on citrix, then I do not think you can link both.

 

[ganeshkumars82]

Hi Sachin,

Thanks for your updates

Both are in Citrix drivers. Tell me onething, how will we open the Rumba session using VBA code.

Manual activity is to open the Rumba session is follow: Once opened Citrix, I will follow the steps.
1) \\Servername\files\NetManage\Rumba\MFrame\rumba.WDM ==> Double click
2) provide username password etc., ==> Enter
3) go to multiple Rumba screens and copy required screen data in excel or MS-Access tables directly.

FYI, my MS-Access database also is available in the same citix server \\Servername\files\Automation\test.mdb.

It would be great if you can provide the same code for the same.

You can email me the code to ganeshkumars82@gmail.com also.


Thanks in advance

Thanks & Regards,
GaneshKumar S

 

[Sachin Shama]

VBA will not open the Rumba.You need to have rumba session already opened for the automation to work.Once it is opened manually, then you can run the code .
PS: I have not worked on MS-access, so do not know much about it.However, my suggestion should go well with Ms Excel.
Hope it helps!

 

[ganeshkumars82]

Thanks for the updates. Can you please provide the sample code in excel if you have already.

Thanks in advance

Regards,
Ganesh

 

[Christina594]

Its very good and simple code but i am not able to figure out few things

 

[Sachin Shama]

Hi Ganesh,
I have already posted a sample code in this forum.Let me know if you are stuck somewhere specifically, then we can see what is the issue.

Thanks

 

[Sachin Shama]

Hi Christina,
Thanks .Let me know what part of it you want to understand.

 

[Sachin Shama]

Hi Christina,
Thanks .Let me know what part of it you want to understand.

Though I think this comment refers to an earlier reply of this post....!

 

[NateGreen]

Hello Sachin,

Forgive me if I overlooked something, but I don't see where anyone has answered your question yet. You are on the right track with WD_CopyPSToString, but I don't see where you reserved the space for you string to return. Try the following and let me know if I can be of further assistance:

Function Scrape(xCol as Integer, yRow as Integer) as String

Dim lngLocation As Long
Dim retVal As String
Dim intStrLength as Integer
Dim sessingInstance as Integer

sessionInstance = 100 'Value taken from your earlier code
intStrLength = 15 'String length as integer
lngLocation = ((xRow-1)*80) + yCol 'Converts coordinates to a single integer value of variable type Long
retVal = String$(Val(intStrLength), " ") 'Reserves 15 characters in memory for the return string
V = WD_CopyPSToString(sessionInstance, lngLocation, retVal, intStrLength)

Scrape = retVal
debug.print retVal


End Function

 

[imtheinvincible]

Hello Sachin - I tried your code and getting error "Run Time Error - 53 : File Not Found" - on this step - E = WD_Sendkey(100, "@E") ' Enter command.
I tried changing Eehllapi.dll to ehlapi32.dll but this time i got error "Special dll function not found".
Please help.

Thanks!!