[已解决]excel升级到2010后工作簿中的代码出现问题

铁观音621

我有一个工作簿，做了查询系统，在excel2007中一直正常使用，打开工作簿后显示“主菜单”工作表，一切正常，今天把excel有2007升级到了2010版本，在打开工作簿后，只要点击《主菜单》工作表即出现如图的错误，关闭调试窗口后也能继续使用，求教高手们如何解决。另外，此程序打开时，总是先闪出excel表格，大约2秒钟后才显示启动界面，不知怎样解决。第三，此文件太大，约有6.4M 左右，请问有没有办法将文件减小到2M左右？谢谢。
由于我的权限太小，文件体积太大无法上传附件，也无法发表连接，现上传一个文本文件，里面是这个工作簿的下载连接，见谅！

最佳答案

月排行榜 / 总排行榜

领风飞翔

2016-3-29 20:51

解决方法：1、在VBE窗口中选择出错的VBA工程，快捷键：ALT+F11
2、在【工具】【引用】打开引用对话框
3、查找带勾项中含“丢失…”、“找不到…”、“MISSING…”的条目，并取消勾选！
4、一般情况下，用第3步即可解决，如问题依旧，请在“可用的引用”中查找并勾选与丢失的条目类似的引用（一般除版本号不同，其它名称相同，如有多个版本，请选择最高版本）
如果还不能解决，可能是电脑中缺少控件或对象库，需要下载控件并注册，后返回上面步骤解决！

跳转到最佳答案楼层

02761752696

xp   excel 2010  测试正常   应该是缺少控件  或 控件未注册
把代码换一下

1. Private Sub Worksheet_Activate()
   
2. Dim SH As Worksheet
   
3. For Each SH In Worksheets
   
4. If SH.Name <> "主菜单" Then
   
5.     SH.Visible = False
   
6. End If
   
7. Next
   
8. End Sub

复制代码

领风飞翔

解决方法：1、在VBE窗口中选择出错的VBA工程，快捷键：ALT+F11
2、在【工具】【引用】打开引用对话框
3、查找带勾项中含“丢失…”、“找不到…”、“MISSING…”的条目，并取消勾选！
4、一般情况下，用第3步即可解决，如问题依旧，请在“可用的引用”中查找并勾选与丢失的条目类似的引用（一般除版本号不同，其它名称相同，如有多个版本，请选择最高版本）
如果还不能解决，可能是电脑中缺少控件或对象库，需要下载控件并注册，后返回上面步骤解决！

铁观音621

领风飞翔 发表于 2016-3-29 20:51
解决方法：1、在VBE窗口中选择出错的VBA工程，快捷键：ALT+F11
2、在【工具】【引用】打开引用对话框
3、 ...

太感谢了，已经解决了，其实很简单的操作，会者不难，难者不会啊！