Windows 7 VBA Excel在Windows 7中从IBM个人通信(PCOMM)检索数据时出现问题

Windows 7 VBA Excel在Windows 7中从IBM个人通信(PCOMM)检索数据时出现问题,windows-7,excel,settext,vba,Windows 7,Excel,Settext,Vba,我正在尝试在Excel中编写一个宏,它可以帮助我将输入发送到PCOMM并从中检索数据。当我在Windows XP上测试时,我的代码工作得非常好。然而,当我在Windows7上运行它们时,它不会运行,只是冻结了。以下是一个示例: Dim autECLPSObj As Object Dim autECLConnList As Object Set autECLPSObj = CreateObject("PCOMM.autECLPS") Set autECLConnList = CreateOb

我正在尝试在Excel中编写一个宏,它可以帮助我将输入发送到PCOMM并从中检索数据。当我在Windows XP上测试时,我的代码工作得非常好。然而,当我在Windows7上运行它们时,它不会运行,只是冻结了。以下是一个示例:

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
所以基本上,当我尝试在Windows7上调试时(并使用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:代码不起作用

有什么想法吗


非常感谢。

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


AUTECLPOSBJ.SendKeys“xxx”,24,11

两台机器上的驱动程序是否相同?在不同的计算机版本和不同的pcomm版本上尝试相同的代码后,我发现这些代码只有在使用pcomm 6.0的Win 7上运行时才会出现问题。这些代码在Win XP+PComm 6.0/5.9/5.7上运行时工作正常,在Win 7+PComm 5.9上运行时工作正常。所以不知道为什么它不能与Win 7+PComm 6.0一起工作。。。