Private Sub IDTExtensibility2_OnConnection(ByVal Application As Object, ByVal ConnectMode _
As AddInDesignerObjects.ext_ConnectMode, ByVal AddInInst As Object, custom() As Variant)
End Sub
里面的ByVal Application As Object就是Excel的Application对象,通过Application对象你就可以访问它的ActiveWorkBook了。