通过mbpoll采集功率分析仪数据导Excel时VBA报无法创建对象求助

问题描述 #

• 预期目标：通过mbpoll应用采集功率分析仪运行数据，采集结果自动同步导入Excel留存
• 异常现象：自行编写的VBA代码运行时，弹出「无法创建对象」的报错提示
• 已完成的排查：测试验证代码创建其他类型COM对象时功能运行完全正常，仅针对Mbpoll相关对象的创建操作执行失败
• 配套参考：问询者已整理Mbpoll官方程序开发文档，可作为问题排查的参考依据

当前使用的VBA实现代码 #

Public doc1 As Object
Public doc2 As Object
Public app As Object
Dim res As Integer
Dim n As Integer


Public Sub StartModbusPoll_Click()
   Set app = CreateObject("Mbpoll.Application")
   Set doc1 = CreateObject("Mbpoll.Document")
   Set doc2 = CreateObject("Mbpoll.Document")

   ' Read 10 Holding Registers every 1000ms
   res = doc1.ReadHoldingRegisters(1, 0, 10, 1000)
   ' Read 10 Coil Status every 1000ms
   res = doc2.ReadCoils(1, 0, 10, 1000)
   ' doc1.ShowWindow()


   app.Connection = 1 ' Modbus TCP/IP
   app.IPAddress = "192.168.37.100" 
   app.ServerPort = 502
   app.ConnectTimeout = 1000
   res = app.OpenConnection()
End Sub


Public Sub Read_Click()
   Cells(5, 7) = doc1.ReadResult() 'Show results for the requests
   Cells(6, 7) = doc2.ReadResult()
      
   For n = 0 To 9
      Cells(5 + n, 2) = doc1.Registers(n)
   Next n


   For n = 0 To 9
      Cells(18 + n, 2) = doc2.Coils(n)
   Next n
End Sub

内容的提问来源于stack exchange，提问作者Server Ozbas