以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]请问下菜单跨表使用的问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=152798)
--  作者：忆似水流年
--  发布时间：2020/7/22 16:04:00
--  [求助]请问下菜单跨表使用的问题
我有两张表 zghmc 和 lwhmc 然后导出菜单代码如下

Dim dlg As new savefiledialog
dlg.filter = "Excel文件|*.xlsx"
If dlg.showdialog = dialogresult.ok Then
    Tables("zghmc").saveexcel(dlg.filename,"花名册")
End If

请教两个问题：
1.想导出lwhmc，请教下代码怎么写可以自动判断导出当前表，而不用再做一个菜单
2.为了分别删两张表的内容我做了两个删除菜单，我好怕别人去按了非当前表的删除菜单，请问下代码怎么写可以让非当前表的那个菜单无效，谢谢啦。
--  作者：有点蓝
--  发布时间：2020/7/22 16:17:00
--  
1、currenttable.saveexcel(dlg.filename,"花名册")

2、到maintablechanged事件设置菜单，比如

if maintable.name = "xxx"
RibbonTabs("某功能区").Groups("某组").Items("某菜单").Enabled = False
else
……
--  作者：忆似水流年
--  发布时间：2020/7/22 18:00:00
--  
 谢谢大哥啦