新做的wintogo系统,装了office2021,拿出以前的一个excel程序跑了一下,报错“运行时错误1004,应用程序定义或对象定义错误”,于是网上搜索,总结大部分文章给的建议方案是下面几个:
方法一:
单击文件――选项――信任中心――打开“信任中心”对话框,宏设置――勾选“信任对VBA工程对象模型的访问”。再次运行,就不会出现运行时错误1004提示。
方法二:
查看下工具–宏–安全性,安全级别降低,可靠发行商保留空白。如果新建文档也会出现上述情况,试打开EXCEL后,工具–宏–VB编辑器,删除里面的程序,再观察。
方法三:
检查代码和公式,使用错误也会导致运行时错误1004的问题。
于是自己赶紧动手尝试了前两个方法,1004报错依然存在。拿着excel到原先的电脑上执行依然没有问题,很纳闷。进入调试状态,光标停留在下面这一行:
Sub Button10_Click()
n = Sheets(2).UsedRange.Rows.Count
If n > 1 Then
Sheets(2).Range(Cells(2, 1), Cells(n, 6)).Value = “”
MsgBox “已清空历史数据” & n – 1 & “行!”
Else
MsgBox “无数据需要清空,请确认!”
End If
End Sub
百思不得其解,继续查网页,突然一个类似的贴子触发了灵感,新版本的excel对语法校验更严格更精确,操起键盘简单修改如下:
Sub Button10_Click()
n = Sheets(2).UsedRange.Rows.Count
If n > 1 Then
Sheets(2).Range(Sheets(2).Cells(2, 1), Sheets(2).Cells(n, 6)).Value = “”
MsgBox “已清空历史数据” & n – 1 & “行!”
Else
MsgBox “无数据需要清空,请确认!”
End If
End Sub
运行通过!
今天的文章vba运行时错误1004方法_缺少dll文件无法运行软件分享到此就结束了,感谢您的阅读。
版权声明:本文内容由互联网用户自发贡献,该文观点仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 举报,一经查实,本站将立刻删除。
如需转载请保留出处:https://bianchenghao.cn/82713.html