求围观：excel文件自定义customUI回调如何引用com加载宏

nienie2010

excel 文件中自定义customUI，回调onaction，不能响应com加载宏。com能正常加载，但不能响应，请老师们赐教，谢谢！

我心飞翔410

http://www1.huachu.com.cn/read/r ... ectionid=1000001709

nienie2010

我心飞翔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这个函数？？

我心飞翔410

意思自定义一个菜单不响应 那就是程序调用不对了

nienie2010

我心飞翔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这个函数？？

nienie2010

我心飞翔410 发表于 2013-8-22 11:52
意思自定义一个菜单不响应 那就是程序调用不对了

那怎么调用呢？应该onAction可以相应“AA”啊。如果把
Public Function AA(ByVal control As IRibbonControl)
MsgBox "数据", vbInformation
End Function

放到excel的VBE代码中时可以正常运行的。但是用com加载宏就不行了？这个怎么解决，请帮我解决下，谢谢！

nienie2010

我心飞翔410 发表于 2013-8-22 11:52
意思自定义一个菜单不响应 那就是程序调用不对了

谢谢回复，我刚刚做好了附件，请帮我修改下，看怎么能回调，谢谢！

我心飞翔410

'Callback for customButton1 onAction
Sub AA(control As IRibbonControl)
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 Sub

我心飞翔410

'Callback for customButton1 onAction
Sub AA(control As IRibbonControl)
  代码区  你在试试
End Sub
另外存为 xlsm格式 不是xlsx格式

nienie2010

我心飞翔410 发表于 2013-8-22 16:42
'Callback for customButton1 onAction
Sub AA(control As IRibbonControl)
AddInDesignerObjects.ext_C ...

您好！
我按你的代码将代码修改，不能通过程序检查。能麻烦您把修改后的附件回传下吗？谢谢！