Windows 7中VBA Excel从IBM Personal Communications (PCOMM)检索数据的

Question

我试图在Excel中编写一个宏，可以帮助我将输入发送到PCOMM并从那里检索数据。当我在Windows XP上测试时，我的代码运行得很好。然而，当我在Windows 7上运行它们时，它不运行，只是死机。下面是一个示例:

Dim autECLPSObj As Object
Dim autECLConnList As Object
Set autECLPSObj = CreateObject("PCOMM.autECLPS")
Set autECLConnList = CreateObject("PCOMM.autECLConnList")
' Initialize the connection
autECLConnList.Refresh
autECLPSObj.SetConnectionByHandle (autECLConnList(1).Handle)
autECLPSObj.SetText "test", 24, 11

所以基本上当我尝试在Windows 7上调试时(并使用F8移动每行)，它传递到"SetText"行，然后它只是冻结- Excel一直显示其"运行"，而没有任何输入到PCOMM。

更新:尝试使用不同的Windows和PComm版本运行。以下是总结:* Win XP + PComm 5.7/5.9/6.0:代码工作* win7 + PComm 5.7/5.9:代码工作* win7 + PComm 6.0:代码不工作

任何想法?

Answer 1

通常我使用SendKeys在PCOMM中输入一些东西。

autECLPSObj。SendKeys "xxx"， 24,11