excel vba “运行时错误1004，应用程序定义或对象定义错误”
新做的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
运行通过！
excel vba “运行时错误1004，应用程序定义或对象定义错误”相关推荐
- c语言错误1004,Excel VBA运行时错误1004仅以名称以'c'开头
没错.如果我将以下代码中的"Chart_Series_W_Gain_AAPL"中的'C'更改为代码工作的任何其他字母.否则它会在Series.Formula分配中引发错误1004. ...
- Excel VBA“运行时错误40036应用程序定义或对象错误”。
我发现Excel VBA的解决方法是"运行时错误40036应用程序定义的错误或对象错误". 它不能解决原始问题,该问题在excel中存在. 我看到的一些响应显示了一个简单的程序,它 ...
- wordVBA运行时错误‘4198‘：应用程序定义或对象定义错误 解决方法
项目场景: Word VBA 问题描述: 最近在学习wordVBA时遇到以下问题:运行时错误'4198':应用程序定义或对象定义错误 这是我写的一段Excel VBA操作Word的代码,作用是打开已存 ...
- excel vba真正的动态数组实例-按需定义数组大小
excel vba真正的动态数组实例 一.动态数组的定义 动态数组的定义,一开始不需要给数组标明上界和下界.直接定义即可,如下面的代码: Dim MyStr() As String 这样,就定义了一个 ...
- Excel VBA:打开与关闭工作簿——Workbooks对象
Workbooks 对象 Microsoft Excel 应用程序中当前打开的所有 Workbook 对象的集合. 说明 有关使用一个 Workbook 对象的详细信息,请参阅 Workbook 对象 ...
- 【VBA报错1】--vba代码运行时错误1004 应用程序定义或对象定义错误
系列文章目录 文章目录 系列文章目录 前言 一.错误描述 二.原因调查 总结 前言 一.错误描述 将Excel所有工作表,汇总到一个工作表中: 在thisworkbook中运行如下: Sub 合并所有 ...
- 关于vba代码运行时错误1004 应用程序定义或对象定义错误问题
一.错误描述 将Excel所有工作表,汇总到一个工作表中: 在thisworkbook中运行如下: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 ...
- 运行时错误1004 应用程序定义或对象定义错误
这种情况,一定是哪里语法写错了,注意颜色 注意方法,print变量
- 运行时错误1004，应用程序定义或对象定义错误
Sheets("销售汇总").Select For i = 1 To Sheets("销售汇总").UsedRange.Rows.Count + 1 If Sh ...
最新文章
- OpenGL如何处理多个纹理
- python中的time库安装步骤-python中time库的实例使用方法
- Linux下Apache虚拟主机配置
- jenkins中Git Parameter Plugin使用
- page cache 与free
- 根据目标选择减肥方法 少做无用功
- java中get接口示例_Java LocalDateTime类| 带示例的get（）方法
- adb查看安卓设备系统Android版本
- Maven 编译打包时如何忽略测试用例
- 【刷题】BZOJ 3926 [Zjoi2015]诸神眷顾的幻想乡
- mysql 创建聚集索引_索引为什么会加快Mysql的查询速度？
- 11.30 iptables filter表案例 iptables nat表应用
- Java面向对象编程
- OC简介及基本语法(一)
- js 周期性定时器
- 移动硬盘安装ubuntu20.04.5（重装无数次的一个教程）
- 安防行业经销商渠道管理系统：完善经销商管控，助力企业做好渠道管理
- 网络信息安全攻防学习平台-基础关
- USB服务器赋能美团数字化建设
- 在佛山如何找到一个高质量的股票交易API平台？