vb6 excel后期绑定答案

【问题标题】：vb6 excel late bindingvb6 excel后期绑定
【发布时间】：2018-03-20 04:45:40
【问题描述】：

我在 Win10 上使用 Office 2016 32 位。以下代码完美运行，我能够从 VB6 管理 Excel 和 PPT 的各个方面。

   Public Sub Main()
   '*********************BDOK GAM ****************************ú÷åôú 
   Dim xlApp As Object    ' Late binding, or As Excel.Application with Early
    Public PpApp As Object    ' Late binding, or As Excel.Application with Early

On Error Resume Next
Set xlApp = GetObject(, "Excel.Application")
Set PpApp = GetObject(, "PowerPoint.Application")

但是现在，在过去的几天里，xlApp 和 PpApp 返回“无”，我不知道为什么？正确引用 Excel 和 Powerpoint

在 VBA 模块中使用相同的代码时，它可以正常工作

【问题讨论】：

运行代码时是否已经打开 Excel 和 PPT 应用程序？
是的 Excel 和 PPT 应用程序已经打开
如果你把On Error Resume Next注释掉，你会得到任何错误吗？
"Activex 组件无法创建对象"
也许您的办公室（或者您的防病毒软件）已更新？

标签： excel vba vb6 powerpoint

【解决方案1】：

我发现组件 MSCOMCTL.OCX 无法正确注册导致很多问题。我设法纠正了这个问题，现在后期绑定可以正常工作了

【讨论】：