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：代码有效 * Win 7 + PComm 5.7 / 5.9：代码有效 * Win 7 + PComm 6.0：代码无效

有什么想法吗？

非常感谢。

Answer 1

通常我使用SendKeys在PCOMM中输入内容。

autECLPSObj.SendKeys“xxx”，24,11

VBA Excel问题从Windows 7中的IBM Personal Communications（PCOMM）检索数据

1 个答案: