如何创建应用程序的对象..对于非办公应用程序

Question

我正在尝试控制（复制/粘贴文本等）我的PC中安装的应用程序。我写下面的代码首先创建应用程序的对象，然后计划使用它的属性/方法但不幸的是它抛出运行时错误＆＃39; 429＆＃39;：ActivX控件无法控制对象

Sub Run_App()

Dim TrialObj as Object

'Path where .exe file resides: "C:\Program Files (x86)\Dynamic Connect\dconnect.exe"

Set TrialObj = CreateObject("dconnect.application")

End Sub

Answer 1

您确定该应用程序具有可以向Excel公开的属性和方法吗？ 简单地按照程序的名称，看起来你只是想在这里打开应用程序，所以一种方法是shell应用程序，然后使用VBA激活相应的窗口，然后复制和粘贴。 自从我做了这么多年以来，我做了很多年，但是当我从大型机窗口捕获数据并将其粘贴到word中时，我确实做了类似的事情，所有适用的驱动代码都在Word文档中，所以这样做是可行的虽然可能不是最好的方式