vb6 excel后期绑定

问题描述:

我在Win10上使用Office 2016 32位。以下代码完美运行,并且我能够管理VB6中的Excel和PPT的各个方面。vb6 excel后期绑定

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模块,

+0

当您运行代码时,Excel和PPT应用程序是否已经打开? –

+0

是Excel和PPT应用程序已经打开 – user3387046

+0

如果您评论“On Error Resume Next”,您是否收到任何错误? –

我发现,该组件MSCOMCTL.OCX无法正确注册造成了很多的问题,它工作正常。我设法纠正错误,现在后期绑定正常工作