尝试通过 Visual Studio Code IDE 使用 VBScript 中的主机访问类库自动化对象以编程方式自动化 IBM PCOMM v 14.0:
Option Explicit
Dim autECLPSObj
Dim autECLConnList
Dim autECLOIAObj
Dim PSText
Set autECLPSObj = CreateObject("PCOMM.autECLPS")
Set autECLConnList = CreateObject("PCOMM.autECLConnList")
Set autECLOIAObj = CreateObject("PCOMM.autECLOIA")
' Refresh must be called to get latest connection info
autECLConnList.Refresh
' Initialize the connection with the first in the list
autECLPSObj.SetConnectionByHandle (autECLConnList(1).Handle)
' Initialize the connection with Session Name
autECLOIAObj.SetConnectionByName ("A")
autECLPSObj.SendKeys "PCOMM API’s are very Powerful", 3, 1
'autECLPSObj.SendKeys “[Enter]”
'PSText = GetText(1, 1, 10)
'autECLPSObj.SetCursorPos 2, 1
autECLOIAObj.WaitForInputReady (10000)
Set autECLPSObj = Nothing
Set autECLConnList = Nothing
Set autECLOIAObj = Nothing
出现以下错误:Microsoft VBScript 运行时错误:ActiveX 组件无法创建对象:'PCOMM.autECLPS'
PCOMM 文档 表示自动化只能使用 64 位版本的 MS Office。
我当前安装的版本是:
澄清:
PCOMM 也应该是 64 位版本。您可以通过单击“帮助”>“关于个人通信”(在菜单上)找到它。 (需要将宏文件保存在C盘。)office和PCOMM位版本应该相同。