查看: 19035|回复: 8
以下隐藏模块存在编译错误：thisWorkbook 请问如何解决
阅读权限20
在线时间 小时
& & & & & & & &
以下隐藏模块存在编译错误：thisWorkbook
这是一个2007版本的.xlsm文件，用我的2010版本打开时候的提示。
如果另存为2003格式的.xls，也还是存在这个同样的问题。
参见下图，各位见识多广的大虾来帮忙下[em07]
[ 本帖最后由 商人 于
18:38 编辑 ]
(19.71 KB, 下载次数: 34)
16:00 上传
阅读权限50
在线时间 小时
无图。。。
阅读权限20
在线时间 小时
图已经补上，刚刚是网络不稳定掉线了。[em07]
阅读权限20
在线时间 小时
& & & & & & & &
先禁用宏， 然后改一下代码呗。
阅读权限20
在线时间 小时
这是自带帮助里查到的：
隐藏模块中的编译错误 &模块名称&
受保护模块中包含一个编译错误。由于该错误位于受保护模块中，因此无法显示。
当代码与此应用程序的版本或体系结构不兼容时（例如，文档中的代码针对的是 32 位 Microsoft Office 应用程序，却试图在 64 位 Office 上运行），通常会发生此错误。
此错误的原因和解决方案如下：
错误原因：
当受保护（隐藏）模块内的 VBA 代码中存在编译错误时，会发生此错误。由于模块受到保护，因此不会显示此特定编译错误。
可能的解决方案：
如果您有权访问文档或项目中的 VBA 代码，则取消对模块的保护，然后再次运行代码来查看特定错误。
如果您无权访问文档中的 VBA 代码，则联系文档的作者，让其更新隐藏模块中的代码。
阅读权限20
在线时间 小时
补充一下：去除VBA代码之后，发现打开的文件错误提示变下面的了，
截图含提示与代码
(56.39 KB, 下载次数: 18)
17:30 上传
阅读权限20
在线时间 小时
& & & & & & & &
估计是不是这个？
怎么解决呢？
(17 KB, 下载次数: 19)
17:39 上传
阅读权限20
在线时间 小时
已经解决，regsvr32 C:\windows\system32\mscal.ocx
找个文件注册即可。
阅读权限10
在线时间 小时
商人 发表于
已经解决，regsvr32 C:\windows\system32\mscal.ocx
找个文件注册即可。
你好，我的电脑也出现win7系统下的excel打开表格时出现隐藏模块存在编译错误:Thisworkbook这个问题，可以教我一下怎么处理吗？谢谢！
玩命加载中，请稍候
玩命加载中，请稍候
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！
本站特聘法律顾问：徐怀玉律师 李志群律师
Powered by查看: 681|回复: 4
阅读权限1UID696821函数0 关最后登录经验34 点在线时间7 小时VBA0 关分享记录好友技巧0 关相册主题段位0 段金币30 个积分34精华0帖子日志注册时间
幼儿园小班, 积分 34, 距离下一级还需 66 积分
金币30 个积分34帖子
大家好，请教一下如何批量把一个表格插入到文件夹中的所有表格中的最前面，谢谢
17:12 上传
点击文件名下载附件
97.18 KB, 下载次数: 6
阅读权限7UID647063函数0 关最后登录经验1311 点在线时间106 小时VBA0 关分享记录好友技巧0 关相册主题段位0 段金币1500 个积分1311精华0帖子日志注册时间
金币1500 个积分1311帖子
本帖最后由
20:04 编辑
(128.58 KB, 下载次数: 41)
20:04 上传
点击文件名下载附件
Option Explicit
Sub 插入目录()
Dim myname$, mypath$, i&
Sheets(&目录&).Cells.Copy
mypath = ThisWorkbook.Path & &\把目录插入到文件夹中的所有表格的最前面\&
myname = Dir(mypath & &*.xls*&)
Do While myname && &&
& &With Workbooks.Open(mypath & myname)
& && &&&For i = 1 To .Sheets.Count
& && && && &If .Sheets(i).Name = &目录& Then
& && && && && & MsgBox &已经存在“目录”&
& && && && && & .Close False
& && && && && & GoTo PPP
& && && && &End If
& && &&&Next i
& && && & .Sheets.Add before:=Sheets(1)
& && && &ActiveSheet.Name = &目录&
& && && &ThisWorkbook.Sheets(&目录&).Cells.Copy
& && &&&.Sheets(&目录&).[a1].PasteSpecial Paste:=xlPasteAll
& && &&&.RemovePersonalInformation = False
& && &&&.Close True
& &End With
PPP:
& &myname = Dir
Loop
Application.CutCopyMode = False
End Sub
复制代码
阅读权限7UID647063函数0 关最后登录经验1311 点在线时间106 小时VBA0 关分享记录好友技巧0 关相册主题段位0 段金币1500 个积分1311精华0帖子日志注册时间
小学4年级, 积分 1311, 距离下一级还需 189 积分
金币1500 个积分1311帖子
&&&本楼为最佳答案&&&
本帖最后由
20:04 编辑
(128.58 KB, 下载次数: 41)
20:04 上传
点击文件名下载附件
Option Explicit
Sub 插入目录()
Dim myname$, mypath$, i&
Sheets(&目录&).Cells.Copy
mypath = ThisWorkbook.Path & &\把目录插入到文件夹中的所有表格的最前面\&
myname = Dir(mypath & &*.xls*&)
Do While myname && &&
& &With Workbooks.Open(mypath & myname)
& && &&&For i = 1 To .Sheets.Count
& && && && &If .Sheets(i).Name = &目录& Then
& && && && && & MsgBox &已经存在“目录”&
& && && && && & .Close False
& && && && && & GoTo PPP
& && && && &End If
& && &&&Next i
& && && & .Sheets.Add before:=Sheets(1)
& && && &ActiveSheet.Name = &目录&
& && && &ThisWorkbook.Sheets(&目录&).Cells.Copy
& && &&&.Sheets(&目录&).[a1].PasteSpecial Paste:=xlPasteAll
& && &&&.RemovePersonalInformation = False
& && &&&.Close True
& &End With
PPP:
& &myname = Dir
Loop
Application.CutCopyMode = False
End Sub
复制代码
阅读权限21UID136406函数0 关最后登录经验15934 点在线时间1149 小时VBA0 关分享记录好友技巧0 关相册主题段位0 段金币6268 个积分15934精华0帖子日志注册时间
博士研究生, 积分 15934, 距离下一级还需 2066 积分
金币6268 个积分15934帖子
Sub Macro1()
On Error Resume Next
Dim sht As Worksheet, mypath$, wj$
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set sht = ThisWorkbook.Sheets(&目录&)
mypath = ThisWorkbook.Path & &\效果\&
wj = Dir(mypath & &*.xls*&)
Do While wj && &&
& & With Workbooks.Open(mypath & wj)
& && &&&If .Sheets(&目录&) Is Nothing Then sht.Copy before:=.Sheets(1)
& & End With
& & Workbooks(wj).Close 1
& & wj = Dir
Loop
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
复制代码
阅读权限21UID136406函数0 关最后登录经验15934 点在线时间1149 小时VBA0 关分享记录好友技巧0 关相册主题段位0 段金币6268 个积分15934精华0帖子日志注册时间
博士研究生, 积分 15934, 距离下一级还需 2066 积分
金币6268 个积分15934帖子
alt+f8执行代码，结果在效果文件夹中
04:55 上传
点击文件名下载附件
59.37 KB, 下载次数: 3
阅读权限1UID696821函数0 关最后登录经验34 点在线时间7 小时VBA0 关分享记录好友技巧0 关相册主题段位0 段金币30 个积分34精华0帖子日志注册时间
幼儿园小班, 积分 34, 距离下一级还需 66 积分
金币30 个积分34帖子
<font color="#0126769 发表于
运行的时候弹出兼容性检查器，能否加个继续保存？
最佳答案累计大于100
Powered byoffice2013和MATLAB连接使用时，出现：以下隐藏模块存在编译错误:thisWorkbook怎样解决？_百度知道
提问者采纳
安装32位的office就好了，64位不兼容
我以前使用是正常的，但是之间安装过office2003，卸载后就出现这个问题了，不知道该怎么办？
那可能是你卸载的不完全
提问者评价
其他类似问题
thisworkbook的相关知识
为您推荐：
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁如何解决Excel文件弹出“隐私问题警告”
在使用excel时，我们常会遇到Excel文件弹出隐私问题警告，出现这样的问题应该是保存Excel表格当中包含了个人信息，而这些信息无法进行保存所以才导致提示，还有一个原因可能是包含了部分非正常的VBA代码，这时通过去掉VBA代码或控件代码来解除提示。
在使用excel时，我们常会遇到Excel文件弹出隐私问题警告，出现这样的问题应该是保存Excel表格当中包含了个人信息，而这些信息无法进行保存所以才导致提示，还有一个原因可能是包含了部分非正常的VBA代码，这时通过去掉VBA代码或控件代码来解除提示。
　　操作步骤
　　1、打卡Excel表格单击菜单栏&工具&&&选项&。
　　2、进入&选项&设置，点击&安全性&在&个人信息选项&下勾掉&保存时从文件属性中删除个人信息&即可解决问题。
　　3、还有一种方法就是用VBA代码解决这个问题，按ALT+F11进入VBA界面，选择ThisWorkbook。
　　4、在&ThisWorkbook&窗口内输入以下代码，然后关闭Excel在打开即可。
　　Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
　　ActiveWorkbook.RemovePersonalInformation = False
　　End Sub我这个EXCEL是集成的OFFICE 我用ALT F11怎么找不到thisworkbook？_百度知道
我这个EXCEL是集成的OFFICE 我用ALT F11怎么找不到thisworkbook？
我要excel一打开就是3张工作表成为一个工作组，就是要和按住shift选中3张工作表成为一个工作组的效果是一样的 你们能做到么？我现在还没找到thisworkbook
提问者采纳
将以下代码粘贴到ThisWorkbook，但按ALT F11打开VBA编辑窗口，打开EXCEL不会出现这个对话框我想用什么方法在不移动数据源的情况下
提问者评价
其他类似问题
thisworkbook的相关知识
为您推荐：
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁