Skip to main content

VBA macro to connect Excel and Rumba

  • July 14, 2014
  • 12 replies
  • 3 views
D

Hello - My organization uses Rumba version 7.5.1 and i am trying to write a VBA macro to connect Microsft Excel to Rumba so that i can copy/paste information to/from Excel and rumba. Here is the code i used -

Private Declare Function WD_ConnectPS Lib "Ehlapi32.dll" (ByVal hInstance As Integer, ByVal ShortName As String) As Integer
Private Declare Function WD_CopyFieldToString Lib "Ehlapi32.dll" (ByVal hInstance As Integer, ByVal Position As Integer, ByVal Buffer As String, ByVal Length) As Integer
Private Declare Function WD_CopyStringToField Lib "Ehlapi32.dll" (ByVal hInstance As Integer, ByVal Position As Integer, ByVal Buffer As String) As Integer
Private Declare Function WD_Sendkey Lib "Ehlapi32.dll" (ByVal hInstance As Integer, ByVal KeyData As String) As Integer
Private Declare Function WD_SetCursor Lib "Ehlapi32.dll" (ByVal hInstance As Integer, ByVal Position As Integer) As Integer
Private Declare Function WD_SetSessionParameters Lib "Ehlapi32.dll" (ByVal hInstance As Integer, ByVal SSPData As Long) As Integer
Private Const ENTER As String = "@E"

Private Sub CommandButton1_Click()
C = WD_ConnectPS(100, "A") ' Connecting to Rumba where 'A' is the first session.For 2nd session provide a value 'B'
Y = Sheet1.Cells(10, 5)
X = WD_CopyStringToField(100, 24, Y) ' At the position of 48, macro will put the value of Y
E = WD_Sendkey(100, "@E") ' Enter command
Z = WD_CopyFieldToString(100, 52, V, 7) ' Macro will pick a string of lenght 7 from the position 52 and will put it into "V" buffer
ThisWorkbook.Worksheets(Sheet1).Cells(1, 2) = V ' Putting the value of "V" back to excel
End Sub
On executing this code i am getting error "Run Time Error - 453 Specified DLL function not found".
Please help me in connecting excel with Rumba to automate my tasks.


#Rumba
#Macro
#Excel
#Vba

12 replies

André Escudero

Hello - My organization uses Rumba version 7.5.1 and i am trying to write a VBA macro to connect Microsft Excel to Rumba so that i can copy/paste information to/from Excel and rumba. Here is the code i used -

Private Declare Function WD_ConnectPS Lib "Ehlapi32.dll" (ByVal hInstance As Integer, ByVal ShortName As String) As Integer
Private Declare Function WD_CopyFieldToString Lib "Ehlapi32.dll" (ByVal hInstance As Integer, ByVal Position As Integer, ByVal Buffer As String, ByVal Length) As Integer
Private Declare Function WD_CopyStringToField Lib "Ehlapi32.dll" (ByVal hInstance As Integer, ByVal Position As Integer, ByVal Buffer As String) As Integer
Private Declare Function WD_Sendkey Lib "Ehlapi32.dll" (ByVal hInstance As Integer, ByVal KeyData As String) As Integer
Private Declare Function WD_SetCursor Lib "Ehlapi32.dll" (ByVal hInstance As Integer, ByVal Position As Integer) As Integer
Private Declare Function WD_SetSessionParameters Lib "Ehlapi32.dll" (ByVal hInstance As Integer, ByVal SSPData As Long) As Integer
Private Const ENTER As String = "@E"

Private Sub CommandButton1_Click()
C = WD_ConnectPS(100, "A") ' Connecting to Rumba where 'A' is the first session.For 2nd session provide a value 'B'
Y = Sheet1.Cells(10, 5)
X = WD_CopyStringToField(100, 24, Y) ' At the position of 48, macro will put the value of Y
E = WD_Sendkey(100, "@E") ' Enter command
Z = WD_CopyFieldToString(100, 52, V, 7) ' Macro will pick a string of lenght 7 from the position 52 and will put it into "V" buffer
ThisWorkbook.Worksheets(Sheet1).Cells(1, 2) = V ' Putting the value of "V" back to excel
End Sub
On executing this code i am getting error "Run Time Error - 453 Specified DLL function not found".
Please help me in connecting excel with Rumba to automate my tasks.


#Rumba
#Macro
#Excel
#Vba

There are different ways to establish a communication between RUMBA and Excel.You choose to use EHLLAPI in your Excel spreadsheet for the automation.
But you can use the build in RUMBA Script for this kind of automation.
Please take a look into the Rumba Script Folder …\\System\\ScriptEngine\\Scripts. Here you will find two Rumba vba scripts demonstrating Excel automation!

Your declaration seems to be incorrect. Below code snippet declaration  is working foe me

Declare Function DeleteMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As LongDeclare Function GetCurrentProcessId Lib "kernel32" () As LongDeclare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long
Declare Function GetFocus Lib "user32" () As Long
Declare Function GetMenuItemID Lib "user32" (ByVal hMenu As Long, ByVal nPos As Long) As Long
Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Declare Function IsWindowVisible Lib "user32" (ByVal hwnd As Long) As Long
Declare Function WD_AdviseHostUpdate Lib "ehlapi32.Dll" (ByVal hInstance As Long, ByVal hInstanceMsg As Long, ByVal Msg As Long) As Integer
Declare Function WD_ChangeWindowName Lib "ehlapi32.Dll" (ByVal hInstance As Long, ByVal ShortName As String, ByVal byRequest As Byte, ByVal Name As String) As Integer
Declare Function WD_ConnectPS Lib "ehlapi32.Dll" (ByVal hInstance As Long, ByVal ShortName As String) As Integer
Declare Function WD_ConnectWindowServices Lib "ehlapi32.Dll" (hwnd, ByVal aString As String) As Integer
Declare Function WD_CopyBlockToString Lib "ehlapi32.Dll" (hwnd, WORD, WORD, ByVal aString As String) As Integer
Declare Function WD_CopyFieldToString Lib "ehlapi32.Dll" (ByVal hInstance As Long, ByVal Position As Integer, ByVal Buffer As String, ByVal length As Integer) As Integer
Declare Function WD_CopyOIA Lib "ehlapi32.Dll" (ByVal hInstance As Long, ByVal OIAData As String, ByVal length As Integer) As Integer
Declare Function WD_CopyPS Lib "ehlapi32.Dll" (ByVal hInstance As Long, ByVal Buffer As String, ByVal length As Integer) As Integer
Declare Function WD_CopyPSToString Lib "ehlapi32.Dll" (ByVal hInstance As Long, ByVal Position As Integer, ByVal Buffer As String, ByVal length As Integer) As Integer
Declare Function WD_CopyStringToField Lib "ehlapi32.Dll" (ByVal hInstance As Long, ByVal Position As Integer, ByVal Buffer As String) As IntegerDeclare Function WD_CopyStringToPS Lib "ehlapi32.Dll" (ByVal hInstance As Long, ByVal Position As Integer, ByVal Buffer As String, ByVal length As Integer) As Integer

D

Hello - My organization uses Rumba version 7.5.1 and i am trying to write a VBA macro to connect Microsft Excel to Rumba so that i can copy/paste information to/from Excel and rumba. Here is the code i used -

Private Declare Function WD_ConnectPS Lib "Ehlapi32.dll" (ByVal hInstance As Integer, ByVal ShortName As String) As Integer
Private Declare Function WD_CopyFieldToString Lib "Ehlapi32.dll" (ByVal hInstance As Integer, ByVal Position As Integer, ByVal Buffer As String, ByVal Length) As Integer
Private Declare Function WD_CopyStringToField Lib "Ehlapi32.dll" (ByVal hInstance As Integer, ByVal Position As Integer, ByVal Buffer As String) As Integer
Private Declare Function WD_Sendkey Lib "Ehlapi32.dll" (ByVal hInstance As Integer, ByVal KeyData As String) As Integer
Private Declare Function WD_SetCursor Lib "Ehlapi32.dll" (ByVal hInstance As Integer, ByVal Position As Integer) As Integer
Private Declare Function WD_SetSessionParameters Lib "Ehlapi32.dll" (ByVal hInstance As Integer, ByVal SSPData As Long) As Integer
Private Const ENTER As String = "@E"

Private Sub CommandButton1_Click()
C = WD_ConnectPS(100, "A") ' Connecting to Rumba where 'A' is the first session.For 2nd session provide a value 'B'
Y = Sheet1.Cells(10, 5)
X = WD_CopyStringToField(100, 24, Y) ' At the position of 48, macro will put the value of Y
E = WD_Sendkey(100, "@E") ' Enter command
Z = WD_CopyFieldToString(100, 52, V, 7) ' Macro will pick a string of lenght 7 from the position 52 and will put it into "V" buffer
ThisWorkbook.Worksheets(Sheet1).Cells(1, 2) = V ' Putting the value of "V" back to excel
End Sub
On executing this code i am getting error "Run Time Error - 453 Specified DLL function not found".
Please help me in connecting excel with Rumba to automate my tasks.


#Rumba
#Macro
#Excel
#Vba

Hello - Thanks for your response -

Scripts folder are empty in our organization, is there any way i can get it ?

Also i tried your code but i got "Compile Error : Can't find project or library".

André Escudero

Hello - My organization uses Rumba version 7.5.1 and i am trying to write a VBA macro to connect Microsft Excel to Rumba so that i can copy/paste information to/from Excel and rumba. Here is the code i used -

Private Declare Function WD_ConnectPS Lib "Ehlapi32.dll" (ByVal hInstance As Integer, ByVal ShortName As String) As Integer
Private Declare Function WD_CopyFieldToString Lib "Ehlapi32.dll" (ByVal hInstance As Integer, ByVal Position As Integer, ByVal Buffer As String, ByVal Length) As Integer
Private Declare Function WD_CopyStringToField Lib "Ehlapi32.dll" (ByVal hInstance As Integer, ByVal Position As Integer, ByVal Buffer As String) As Integer
Private Declare Function WD_Sendkey Lib "Ehlapi32.dll" (ByVal hInstance As Integer, ByVal KeyData As String) As Integer
Private Declare Function WD_SetCursor Lib "Ehlapi32.dll" (ByVal hInstance As Integer, ByVal Position As Integer) As Integer
Private Declare Function WD_SetSessionParameters Lib "Ehlapi32.dll" (ByVal hInstance As Integer, ByVal SSPData As Long) As Integer
Private Const ENTER As String = "@E"

Private Sub CommandButton1_Click()
C = WD_ConnectPS(100, "A") ' Connecting to Rumba where 'A' is the first session.For 2nd session provide a value 'B'
Y = Sheet1.Cells(10, 5)
X = WD_CopyStringToField(100, 24, Y) ' At the position of 48, macro will put the value of Y
E = WD_Sendkey(100, "@E") ' Enter command
Z = WD_CopyFieldToString(100, 52, V, 7) ' Macro will pick a string of lenght 7 from the position 52 and will put it into "V" buffer
ThisWorkbook.Worksheets(Sheet1).Cells(1, 2) = V ' Putting the value of "V" back to excel
End Sub
On executing this code i am getting error "Run Time Error - 453 Specified DLL function not found".
Please help me in connecting excel with Rumba to automate my tasks.


#Rumba
#Macro
#Excel
#Vba

Please contact the supportline (supportline.microfocus.com/xmlloader.asp) in order to get the latest script samples.The File is called:3270 to Excel Advanced.csf oer 5270 to Excel Advanced.csf.

Can't find project or library:  Please try to set the library path

. For example:

Declare Function WD_ConnectPS Lib "c:\\yourpath_to_the file\\ehlapi32.Dll" (ByVal hInstance As Long, ByVal ShortName As String) As Integer
Or better set the Windows path to the ehlapi.dll library file.

D

Hello - My organization uses Rumba version 7.5.1 and i am trying to write a VBA macro to connect Microsft Excel to Rumba so that i can copy/paste information to/from Excel and rumba. Here is the code i used -

Private Declare Function WD_ConnectPS Lib "Ehlapi32.dll" (ByVal hInstance As Integer, ByVal ShortName As String) As Integer
Private Declare Function WD_CopyFieldToString Lib "Ehlapi32.dll" (ByVal hInstance As Integer, ByVal Position As Integer, ByVal Buffer As String, ByVal Length) As Integer
Private Declare Function WD_CopyStringToField Lib "Ehlapi32.dll" (ByVal hInstance As Integer, ByVal Position As Integer, ByVal Buffer As String) As Integer
Private Declare Function WD_Sendkey Lib "Ehlapi32.dll" (ByVal hInstance As Integer, ByVal KeyData As String) As Integer
Private Declare Function WD_SetCursor Lib "Ehlapi32.dll" (ByVal hInstance As Integer, ByVal Position As Integer) As Integer
Private Declare Function WD_SetSessionParameters Lib "Ehlapi32.dll" (ByVal hInstance As Integer, ByVal SSPData As Long) As Integer
Private Const ENTER As String = "@E"

Private Sub CommandButton1_Click()
C = WD_ConnectPS(100, "A") ' Connecting to Rumba where 'A' is the first session.For 2nd session provide a value 'B'
Y = Sheet1.Cells(10, 5)
X = WD_CopyStringToField(100, 24, Y) ' At the position of 48, macro will put the value of Y
E = WD_Sendkey(100, "@E") ' Enter command
Z = WD_CopyFieldToString(100, 52, V, 7) ' Macro will pick a string of lenght 7 from the position 52 and will put it into "V" buffer
ThisWorkbook.Worksheets(Sheet1).Cells(1, 2) = V ' Putting the value of "V" back to excel
End Sub
On executing this code i am getting error "Run Time Error - 453 Specified DLL function not found".
Please help me in connecting excel with Rumba to automate my tasks.


#Rumba
#Macro
#Excel
#Vba

Hello - I could not find the library path. Is there any better way to connect aside from using ehlapi32 function please ? we can access Rumba thru either citrix or thru IE(Net Manage) ?

D

Hello - My organization uses Rumba version 7.5.1 and i am trying to write a VBA macro to connect Microsft Excel to Rumba so that i can copy/paste information to/from Excel and rumba. Here is the code i used -

Private Declare Function WD_ConnectPS Lib "Ehlapi32.dll" (ByVal hInstance As Integer, ByVal ShortName As String) As Integer
Private Declare Function WD_CopyFieldToString Lib "Ehlapi32.dll" (ByVal hInstance As Integer, ByVal Position As Integer, ByVal Buffer As String, ByVal Length) As Integer
Private Declare Function WD_CopyStringToField Lib "Ehlapi32.dll" (ByVal hInstance As Integer, ByVal Position As Integer, ByVal Buffer As String) As Integer
Private Declare Function WD_Sendkey Lib "Ehlapi32.dll" (ByVal hInstance As Integer, ByVal KeyData As String) As Integer
Private Declare Function WD_SetCursor Lib "Ehlapi32.dll" (ByVal hInstance As Integer, ByVal Position As Integer) As Integer
Private Declare Function WD_SetSessionParameters Lib "Ehlapi32.dll" (ByVal hInstance As Integer, ByVal SSPData As Long) As Integer
Private Const ENTER As String = "@E"

Private Sub CommandButton1_Click()
C = WD_ConnectPS(100, "A") ' Connecting to Rumba where 'A' is the first session.For 2nd session provide a value 'B'
Y = Sheet1.Cells(10, 5)
X = WD_CopyStringToField(100, 24, Y) ' At the position of 48, macro will put the value of Y
E = WD_Sendkey(100, "@E") ' Enter command
Z = WD_CopyFieldToString(100, 52, V, 7) ' Macro will pick a string of lenght 7 from the position 52 and will put it into "V" buffer
ThisWorkbook.Worksheets(Sheet1).Cells(1, 2) = V ' Putting the value of "V" back to excel
End Sub
On executing this code i am getting error "Run Time Error - 453 Specified DLL function not found".
Please help me in connecting excel with Rumba to automate my tasks.


#Rumba
#Macro
#Excel
#Vba

Hello - I could not find the library path. Is there any better way to connect aside from using ehlapi32 function please ? we can access Rumba thru either citrix or thru IE(Net Manage) ?

André Escudero

Hello - My organization uses Rumba version 7.5.1 and i am trying to write a VBA macro to connect Microsft Excel to Rumba so that i can copy/paste information to/from Excel and rumba. Here is the code i used -

Private Declare Function WD_ConnectPS Lib "Ehlapi32.dll" (ByVal hInstance As Integer, ByVal ShortName As String) As Integer
Private Declare Function WD_CopyFieldToString Lib "Ehlapi32.dll" (ByVal hInstance As Integer, ByVal Position As Integer, ByVal Buffer As String, ByVal Length) As Integer
Private Declare Function WD_CopyStringToField Lib "Ehlapi32.dll" (ByVal hInstance As Integer, ByVal Position As Integer, ByVal Buffer As String) As Integer
Private Declare Function WD_Sendkey Lib "Ehlapi32.dll" (ByVal hInstance As Integer, ByVal KeyData As String) As Integer
Private Declare Function WD_SetCursor Lib "Ehlapi32.dll" (ByVal hInstance As Integer, ByVal Position As Integer) As Integer
Private Declare Function WD_SetSessionParameters Lib "Ehlapi32.dll" (ByVal hInstance As Integer, ByVal SSPData As Long) As Integer
Private Const ENTER As String = "@E"

Private Sub CommandButton1_Click()
C = WD_ConnectPS(100, "A") ' Connecting to Rumba where 'A' is the first session.For 2nd session provide a value 'B'
Y = Sheet1.Cells(10, 5)
X = WD_CopyStringToField(100, 24, Y) ' At the position of 48, macro will put the value of Y
E = WD_Sendkey(100, "@E") ' Enter command
Z = WD_CopyFieldToString(100, 52, V, 7) ' Macro will pick a string of lenght 7 from the position 52 and will put it into "V" buffer
ThisWorkbook.Worksheets(Sheet1).Cells(1, 2) = V ' Putting the value of "V" back to excel
End Sub
On executing this code i am getting error "Run Time Error - 453 Specified DLL function not found".
Please help me in connecting excel with Rumba to automate my tasks.


#Rumba
#Macro
#Excel
#Vba

The library path mentioned in my post is the path to the ehllapi32.dll.
This file must exist in your RUMBA installation folder (\\Rumba\\System).

  • You can use the Rumba Script Engine. Open the Script Editor in the Rumba Menu (Tools -> Edit Script)
    Sample excel scripts are available within the Rumba installation.

  • Another option is to use the build in Macro engine (Tools -> Edit Macro)

    Sample Macro

    Copy From Entire Screen
    Paste To "..\\Desktop\\test.xlsx!Sheet1" (1, 1 )

If you are running Windows 7 or Windows 8 please make sure you use a compatible version (Rumba Version 9.x)
Rumba supports CITRIX and MS Terminal Services. A browser based version is also available.

 Hope it helps

D

Hello - My organization uses Rumba version 7.5.1 and i am trying to write a VBA macro to connect Microsft Excel to Rumba so that i can copy/paste information to/from Excel and rumba. Here is the code i used -

Private Declare Function WD_ConnectPS Lib "Ehlapi32.dll" (ByVal hInstance As Integer, ByVal ShortName As String) As Integer
Private Declare Function WD_CopyFieldToString Lib "Ehlapi32.dll" (ByVal hInstance As Integer, ByVal Position As Integer, ByVal Buffer As String, ByVal Length) As Integer
Private Declare Function WD_CopyStringToField Lib "Ehlapi32.dll" (ByVal hInstance As Integer, ByVal Position As Integer, ByVal Buffer As String) As Integer
Private Declare Function WD_Sendkey Lib "Ehlapi32.dll" (ByVal hInstance As Integer, ByVal KeyData As String) As Integer
Private Declare Function WD_SetCursor Lib "Ehlapi32.dll" (ByVal hInstance As Integer, ByVal Position As Integer) As Integer
Private Declare Function WD_SetSessionParameters Lib "Ehlapi32.dll" (ByVal hInstance As Integer, ByVal SSPData As Long) As Integer
Private Const ENTER As String = "@E"

Private Sub CommandButton1_Click()
C = WD_ConnectPS(100, "A") ' Connecting to Rumba where 'A' is the first session.For 2nd session provide a value 'B'
Y = Sheet1.Cells(10, 5)
X = WD_CopyStringToField(100, 24, Y) ' At the position of 48, macro will put the value of Y
E = WD_Sendkey(100, "@E") ' Enter command
Z = WD_CopyFieldToString(100, 52, V, 7) ' Macro will pick a string of lenght 7 from the position 52 and will put it into "V" buffer
ThisWorkbook.Worksheets(Sheet1).Cells(1, 2) = V ' Putting the value of "V" back to excel
End Sub
On executing this code i am getting error "Run Time Error - 453 Specified DLL function not found".
Please help me in connecting excel with Rumba to automate my tasks.


#Rumba
#Macro
#Excel
#Vba

I tried looking for EHLAPI32.dll but could not find it.

we access Rumba thru below link -

\\\\server\\apps\\Netmanage\\Rumbapro\\Mainframe.html and when i tried accessing \\Rumba\\System - i see many html files but not ehalapi32.dll

André Escudero

Hello - My organization uses Rumba version 7.5.1 and i am trying to write a VBA macro to connect Microsft Excel to Rumba so that i can copy/paste information to/from Excel and rumba. Here is the code i used -

Private Declare Function WD_ConnectPS Lib "Ehlapi32.dll" (ByVal hInstance As Integer, ByVal ShortName As String) As Integer
Private Declare Function WD_CopyFieldToString Lib "Ehlapi32.dll" (ByVal hInstance As Integer, ByVal Position As Integer, ByVal Buffer As String, ByVal Length) As Integer
Private Declare Function WD_CopyStringToField Lib "Ehlapi32.dll" (ByVal hInstance As Integer, ByVal Position As Integer, ByVal Buffer As String) As Integer
Private Declare Function WD_Sendkey Lib "Ehlapi32.dll" (ByVal hInstance As Integer, ByVal KeyData As String) As Integer
Private Declare Function WD_SetCursor Lib "Ehlapi32.dll" (ByVal hInstance As Integer, ByVal Position As Integer) As Integer
Private Declare Function WD_SetSessionParameters Lib "Ehlapi32.dll" (ByVal hInstance As Integer, ByVal SSPData As Long) As Integer
Private Const ENTER As String = "@E"

Private Sub CommandButton1_Click()
C = WD_ConnectPS(100, "A") ' Connecting to Rumba where 'A' is the first session.For 2nd session provide a value 'B'
Y = Sheet1.Cells(10, 5)
X = WD_CopyStringToField(100, 24, Y) ' At the position of 48, macro will put the value of Y
E = WD_Sendkey(100, "@E") ' Enter command
Z = WD_CopyFieldToString(100, 52, V, 7) ' Macro will pick a string of lenght 7 from the position 52 and will put it into "V" buffer
ThisWorkbook.Worksheets(Sheet1).Cells(1, 2) = V ' Putting the value of "V" back to excel
End Sub
On executing this code i am getting error "Run Time Error - 453 Specified DLL function not found".
Please help me in connecting excel with Rumba to automate my tasks.


#Rumba
#Macro
#Excel
#Vba

The reason you can't find the ehllapi.dll is because it's not installed!
You seem to use the Web-to-Host product, the web based solution, not RUMBA.
To enable EHLLAPI and/or the Scripting functionality, you need to enter the Session Configuration Manager (SCM) and open your Session Profile (Mainframe.html).
You can find step by step instructions under \\w2hlegacy\\help\\0409\\adminguide.
The Adminguide.pdf will guide you through the steps.Geeked
Your provided path information shows an unsupported version of Web-to-Host. To avoid compatibility issues with Windows 7 and newer browser version it's recommended to use version 6.6 of Web-to-Host.

D

Hello - My organization uses Rumba version 7.5.1 and i am trying to write a VBA macro to connect Microsft Excel to Rumba so that i can copy/paste information to/from Excel and rumba. Here is the code i used -

Private Declare Function WD_ConnectPS Lib "Ehlapi32.dll" (ByVal hInstance As Integer, ByVal ShortName As String) As Integer
Private Declare Function WD_CopyFieldToString Lib "Ehlapi32.dll" (ByVal hInstance As Integer, ByVal Position As Integer, ByVal Buffer As String, ByVal Length) As Integer
Private Declare Function WD_CopyStringToField Lib "Ehlapi32.dll" (ByVal hInstance As Integer, ByVal Position As Integer, ByVal Buffer As String) As Integer
Private Declare Function WD_Sendkey Lib "Ehlapi32.dll" (ByVal hInstance As Integer, ByVal KeyData As String) As Integer
Private Declare Function WD_SetCursor Lib "Ehlapi32.dll" (ByVal hInstance As Integer, ByVal Position As Integer) As Integer
Private Declare Function WD_SetSessionParameters Lib "Ehlapi32.dll" (ByVal hInstance As Integer, ByVal SSPData As Long) As Integer
Private Const ENTER As String = "@E"

Private Sub CommandButton1_Click()
C = WD_ConnectPS(100, "A") ' Connecting to Rumba where 'A' is the first session.For 2nd session provide a value 'B'
Y = Sheet1.Cells(10, 5)
X = WD_CopyStringToField(100, 24, Y) ' At the position of 48, macro will put the value of Y
E = WD_Sendkey(100, "@E") ' Enter command
Z = WD_CopyFieldToString(100, 52, V, 7) ' Macro will pick a string of lenght 7 from the position 52 and will put it into "V" buffer
ThisWorkbook.Worksheets(Sheet1).Cells(1, 2) = V ' Putting the value of "V" back to excel
End Sub
On executing this code i am getting error "Run Time Error - 453 Specified DLL function not found".
Please help me in connecting excel with Rumba to automate my tasks.


#Rumba
#Macro
#Excel
#Vba

Andre. The code you gave to connect to excel from rumba. doesnt work. It gives error message.

D

Hello - My organization uses Rumba version 7.5.1 and i am trying to write a VBA macro to connect Microsft Excel to Rumba so that i can copy/paste information to/from Excel and rumba. Here is the code i used -

Private Declare Function WD_ConnectPS Lib "Ehlapi32.dll" (ByVal hInstance As Integer, ByVal ShortName As String) As Integer
Private Declare Function WD_CopyFieldToString Lib "Ehlapi32.dll" (ByVal hInstance As Integer, ByVal Position As Integer, ByVal Buffer As String, ByVal Length) As Integer
Private Declare Function WD_CopyStringToField Lib "Ehlapi32.dll" (ByVal hInstance As Integer, ByVal Position As Integer, ByVal Buffer As String) As Integer
Private Declare Function WD_Sendkey Lib "Ehlapi32.dll" (ByVal hInstance As Integer, ByVal KeyData As String) As Integer
Private Declare Function WD_SetCursor Lib "Ehlapi32.dll" (ByVal hInstance As Integer, ByVal Position As Integer) As Integer
Private Declare Function WD_SetSessionParameters Lib "Ehlapi32.dll" (ByVal hInstance As Integer, ByVal SSPData As Long) As Integer
Private Const ENTER As String = "@E"

Private Sub CommandButton1_Click()
C = WD_ConnectPS(100, "A") ' Connecting to Rumba where 'A' is the first session.For 2nd session provide a value 'B'
Y = Sheet1.Cells(10, 5)
X = WD_CopyStringToField(100, 24, Y) ' At the position of 48, macro will put the value of Y
E = WD_Sendkey(100, "@E") ' Enter command
Z = WD_CopyFieldToString(100, 52, V, 7) ' Macro will pick a string of lenght 7 from the position 52 and will put it into "V" buffer
ThisWorkbook.Worksheets(Sheet1).Cells(1, 2) = V ' Putting the value of "V" back to excel
End Sub
On executing this code i am getting error "Run Time Error - 453 Specified DLL function not found".
Please help me in connecting excel with Rumba to automate my tasks.


#Rumba
#Macro
#Excel
#Vba
hi ,is there a way to find the string position in rumba screen? function should return the position of the string .
D

Hello - My organization uses Rumba version 7.5.1 and i am trying to write a VBA macro to connect Microsft Excel to Rumba so that i can copy/paste information to/from Excel and rumba. Here is the code i used -

Private Declare Function WD_ConnectPS Lib "Ehlapi32.dll" (ByVal hInstance As Integer, ByVal ShortName As String) As Integer
Private Declare Function WD_CopyFieldToString Lib "Ehlapi32.dll" (ByVal hInstance As Integer, ByVal Position As Integer, ByVal Buffer As String, ByVal Length) As Integer
Private Declare Function WD_CopyStringToField Lib "Ehlapi32.dll" (ByVal hInstance As Integer, ByVal Position As Integer, ByVal Buffer As String) As Integer
Private Declare Function WD_Sendkey Lib "Ehlapi32.dll" (ByVal hInstance As Integer, ByVal KeyData As String) As Integer
Private Declare Function WD_SetCursor Lib "Ehlapi32.dll" (ByVal hInstance As Integer, ByVal Position As Integer) As Integer
Private Declare Function WD_SetSessionParameters Lib "Ehlapi32.dll" (ByVal hInstance As Integer, ByVal SSPData As Long) As Integer
Private Const ENTER As String = "@E"

Private Sub CommandButton1_Click()
C = WD_ConnectPS(100, "A") ' Connecting to Rumba where 'A' is the first session.For 2nd session provide a value 'B'
Y = Sheet1.Cells(10, 5)
X = WD_CopyStringToField(100, 24, Y) ' At the position of 48, macro will put the value of Y
E = WD_Sendkey(100, "@E") ' Enter command
Z = WD_CopyFieldToString(100, 52, V, 7) ' Macro will pick a string of lenght 7 from the position 52 and will put it into "V" buffer
ThisWorkbook.Worksheets(Sheet1).Cells(1, 2) = V ' Putting the value of "V" back to excel
End Sub
On executing this code i am getting error "Run Time Error - 453 Specified DLL function not found".
Please help me in connecting excel with Rumba to automate my tasks.


#Rumba
#Macro
#Excel
#Vba
hi ,is there a way to find the string position in rumba screen? function should return the position of the string .
D

Hello - My organization uses Rumba version 7.5.1 and i am trying to write a VBA macro to connect Microsft Excel to Rumba so that i can copy/paste information to/from Excel and rumba. Here is the code i used -

Private Declare Function WD_ConnectPS Lib "Ehlapi32.dll" (ByVal hInstance As Integer, ByVal ShortName As String) As Integer
Private Declare Function WD_CopyFieldToString Lib "Ehlapi32.dll" (ByVal hInstance As Integer, ByVal Position As Integer, ByVal Buffer As String, ByVal Length) As Integer
Private Declare Function WD_CopyStringToField Lib "Ehlapi32.dll" (ByVal hInstance As Integer, ByVal Position As Integer, ByVal Buffer As String) As Integer
Private Declare Function WD_Sendkey Lib "Ehlapi32.dll" (ByVal hInstance As Integer, ByVal KeyData As String) As Integer
Private Declare Function WD_SetCursor Lib "Ehlapi32.dll" (ByVal hInstance As Integer, ByVal Position As Integer) As Integer
Private Declare Function WD_SetSessionParameters Lib "Ehlapi32.dll" (ByVal hInstance As Integer, ByVal SSPData As Long) As Integer
Private Const ENTER As String = "@E"

Private Sub CommandButton1_Click()
C = WD_ConnectPS(100, "A") ' Connecting to Rumba where 'A' is the first session.For 2nd session provide a value 'B'
Y = Sheet1.Cells(10, 5)
X = WD_CopyStringToField(100, 24, Y) ' At the position of 48, macro will put the value of Y
E = WD_Sendkey(100, "@E") ' Enter command
Z = WD_CopyFieldToString(100, 52, V, 7) ' Macro will pick a string of lenght 7 from the position 52 and will put it into "V" buffer
ThisWorkbook.Worksheets(Sheet1).Cells(1, 2) = V ' Putting the value of "V" back to excel
End Sub
On executing this code i am getting error "Run Time Error - 453 Specified DLL function not found".
Please help me in connecting excel with Rumba to automate my tasks.


#Rumba
#Macro
#Excel
#Vba
hi ,is there a way to find the string position in rumba screen? function should return the position of the string .

Recent badge winners

Explore all badges
Terms & ConditionsAccessibility statement