我的EXCEL宏出了问题，运行时错误9，下标越界，请各位大侠帮助，谢谢！
展开全部
请在立即窗口输入如下命令显示工作簿对象的Name：
?Application.VBE.VBProjects("VBAProject").VBComponents(1).Name
显示的内容才是你的当前工作簿的名称。。。因为名称被改掉了
如我附件所示，ThisWorkbook被改名为：ItIsRenamed
追问
如何修改才能避免这个问题
追答
Set VBProj=Application.VBE.VBProjects("VBAProject")
Set VBComp=VBProj.VBComponents(1)
如果你只需要VBComp那么可以直接：
Set VBComp=Application.VBE.VBProjects("VBAProject").VBComponents(1)
如果你只要CodeMod那么
Set CodeMod=Application.VBE.VBProjects("VBAProject").VBComponents(1).CodeNodule
其实连CodeMod都不需要
就你这段代码而言，
With Application.VBE.VBProjects("VBAProject").VBComponents(1).CodeModule
.DeleteLines 1, .CountOfLines
End With
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
把文档发给我帮您看一下，756086523@QQ.com
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
你的工作簿对象里面没有了THISWORKBOOK
这个模块
这个模块
追问
如何处理才能解决这个问题
追答
把THISWORKBOOK改成你工程模块中的D开头的那个
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
