PANIGRAHI,DEVA
New User
Joined: 20 Aug 2012
Posts: 3
Location: India
|
|
|
|
Hello Everyone,
I am writing a VB Script macro in an Excel to connect and get data from IBM Personal Communication Emulator.
As of now i'm able to establish connection between Excel and PCOMM, however unable to receive and send text strings from/to excel. Below is the piece of code I have tried -
Sub deva()
Dim PSObj As Object
Dim autECLConnList As Object
Dim PSText As String
Set autECLConnList = CreateObject("PCOMM.autECLConnList")
Set PSObj = CreateObject("PCOMM.autECLPS")
autECLConnList.Refresh
PSObj.SetConnectionByHandle (autECLConnList(2).Handle)
X = PSObj.StartCommunication()
PSText = PSObj.GetText(1, 1, 80)
MsgBox "PsText -" & PSText
End Sub
Please suggest the issue with the above code. |
|
