为什么录制的宏完成后却在程序中无法运行

2007-11-01 01:22:42 1k 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

Excel 2016: 录制宏入门 Excel 录制宏入门教程。有一点点编程基础最好。没有则推荐阅读《深入浅出Excel VBA》。阅读详情

我有一个VBA程序，有一句代码是选中一个表（sheets("原始表").select),此表中的数据来自一个网页，通过复制粘贴过来的，里面有一些网页中的格式，我的程序主要是清除这些格式和一些不需要的怪字符，在运行过程中若数据少的话可以执行，多则报错如下：我在数据多的情况下，使用录制宏的方式录制的代码运行时同样出现该报错，请各位高手帮助解决为感。
运行时画面：

...全文

【Excel VBA 编程】自学VBA的好帮手：录制宏本期主要内容：通过录制宏自动产生代码，结合自己对VBA的了解进行后期加工。这样做既是学习VBA的捷径，又可以快速生成基础代码减少手动编码提高效率值得注意的是，录制宏的过程中所有操作都会被录下来。为了避免产生不必要的代码增加干扰，录制宏前理清操作顺序，录制时不要有多余的动作谨慎操作，确保每一步骤都是必要的如果想学习更多的编程知识，无论是用来提升自动化办公效率还是想着提升自我，都可以关注我的公众号“努力鸭是黑色的”，解锁更多的VBA技能。阅读详情

chenyf_ly

Office开发/ VBA 5,174 成员 17,906 内容

+ 关注 + 加入社区

切换为时间正序

chenyf_ly 2007-11-03

打赏
举报

结合http://www.officefans.net/cdb/viewthread.php?tid=84144的提示，我已经把问题解决了，代码如下：
Sub 查询数据整理()
Dim theSheet As Worksheet
Set theSheet = Sheets("原始表")
theSheet.Select
Dim oleOpt As OLEObject
With theSheet
For Each oleOpt In .OLEObjects
oleOpt.Delete
Next
End With
end sub
非常感谢以上给予帮助的每位高手

chenyf_ly 2007-11-02

打赏
举报

不好意思，我没有权限，无法重新上传。

chenyf_ly 2007-11-02

打赏
举报

可是执行到ActiveSheet.DrawingObjects.Select语句时又无法执行，请kaoziji 再帮忙解决，我先谢了，我把附件修改了一下，重新上传在贴子中

kaoziji 2007-11-02

打赏
举报

你把

Sheets("原始表").Select

一句
改成

    Dim theSheet As Worksheet

    Set theSheet = Sheets("原始表")

    theSheet.Select

就可以了。
我也无法解释原因

kaoziji 2007-11-02

打赏
举报

你在VBA project上加了密码？
你查看一下，Visual Basic编辑器中菜单“工具->引用”中引用了哪些？
“Visual Basic For Applications”
“Microsoft Excel xx.0 Object Library”
上面两个库都打勾了吗？
其中“xx”是具体的数据，我这里是11，你那里可能有所不同。

chenyf_ly 2007-11-02

打赏
举报

ActiveSheet.DrawingObjects.Select

kaoziji 2007-11-02

打赏
举报

“....对象库无效.......”停在哪一句?

chenyf_ly 2007-11-02

打赏
举报

都打勾引用了啊！！急死我了

kaoziji 2007-11-02

打赏
举报

根据我在1楼所说的，
“Visual Basic For Applications”
“Microsoft Excel xx.0 Object Library”
还有
“Microsoft Forms x.0 Object Library”
“Microsoft Office xx.0 Object Library”
“OLE Automation”
一共5个库，都打勾引用了没有？

chenyf_ly 2007-11-02

打赏
举报

还是不行啊，错误提示和原来是一样，“....对象库无效.......“

kaoziji 2007-11-02

打赏
举报

把我前面写的
[code=VBA] Dim theSheet As Worksheet
Set theSheet = Sheets("原始表")
theSheet.Select[/code]
中的最后一句“Select”改成“Activate”
[code=VBA] Dim theSheet As Worksheet
Set theSheet = Sheets("原始表")
theSheet.Activate[/code]

为什么录制的宏完成后却在程序中无法运行

相关推荐