Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

VB Macro - Get and Put String from/to excel with PCOM

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> FAQ & Off Topics
View previous topic :: :: View next topic  
Author Message
PANIGRAHI,DEVA

New User


Joined: 20 Aug 2012
Posts: 3
Location: India

PostPosted: Mon Aug 27, 2012 2:40 pm    Post subject: VB Macro - Get and Put String from/to excel with PCOM
Reply with quote

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.
Back to top
View user's profile Send private message

Ed Goodman

Active Member


Joined: 08 Jun 2011
Posts: 556
Location: USA

PostPosted: Thu Aug 29, 2013 7:04 pm    Post subject:
Reply with quote

I love this!

How do you know you are successfully connecting? Are you checking the value of X after the StartCom command?

Do you have two windows open? (Why are you using the second handle?)

The connection list might be zero based.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> FAQ & Off Topics All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Fileaid Update Replace with null string descann Compuware & Other Tools 4 Mon May 15, 2017 3:00 pm
No new posts RC 20 for Address ISPEXEC "ISRED... pkmurali CLIST & REXX 3 Sun Apr 16, 2017 11:30 pm
No new posts Receive a file using PCOMM macro Harald.v.K IBM Tools 0 Thu Mar 23, 2017 6:50 pm
No new posts Export flat file data into excel sheet murali.andaluri DFSORT/ICETOOL 2 Mon Mar 20, 2017 5:39 pm
No new posts Replacing same string with different ... vickey_dw DFSORT/ICETOOL 6 Wed Feb 22, 2017 10:44 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us