|
楼主 |
发表于 2013-8-22 11:52
|
显示全部楼层
我心飞翔410 发表于 2013-8-22 10:57
http://www1.huachu.com.cn/read/readbookinfo.asp?sectionid=1000001709
我在com加载宏中connection中代码加入
Option Explicit
Public xlApp As Excel.Application
Private Sub AddinInstance_OnConnection(ByVal Application As Object, ByVal ConnectMode As AddInDesignerObjects.ext_ConnectMode, ByVal AddInInst As Object, custom() As Variant)
Set xlApp = Application
End Sub
Private Sub AddinInstance_OnDisconnection(ByVal RemoveMode As AddInDesignerObjects.ext_DisconnectMode, custom() As Variant)
On Error Resume Next
Set xlApp = Nothing
End Sub
Public Function AA(ByVal control As IRibbonControl)
MsgBox "数据", vbInformation
End Function
customUI自定义一个<button id="customButton2" label="数据" size="large"
1、能正常加载
2、但是onAction却不响应AA这个函数??
|
|