0

我正在尝试在 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:代码无效

有任何想法吗?

非常感谢。

4

1 回答 1

1

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

autECLPSObj.SendKeys "xxx", 24, 11

于 2013-04-26T15:52:17.987 回答