vba运行时错误1004_VBA运行时错误1004的解决方法_vba
来源：网络
作者：福州电脑之家
初次接触excel的VBA，刚学习一段代码，VBA就运行报错，提示：运行时错误1004。如下图所示：运行时错误1004。这段代码是测试当前VBA版本的：复制代码代码如下: Sub 获取VBA版本() MsgBox Application.VBE.Version End Sub 　　当按F5键，就报：运行时错误1004。经老师指点，单击文件――选项――信任中心――打开&信任中心&对话框，宏设置――勾选&信任对VBA工程对象模型的访问&。再次运行，就不会出现运行时错误1004提示。　　后来在微软官方也看到了此消息。　　再在搜索引擎查询，才知道运行时错误1004不只是在上面这种情况才会有提示。比如通过使用 Visual Basic 对应用程序的宏创建一个数组公式时您也可能会收到运行时错误1004提示提示信息。造成excel vba输入公式出现运行时错误1004的原因：当您试图将传递一个包含超过 255 个字符的公式时，会发生此问题，并为应用程序中 Visual Basic 中使用 FormulaArray 属性。　　&&&&　　看来仅一个运行时错误1004提示代码也有很多研究，也是视具体环境不同而不同。558x490558x490-83K-JPGVBA运行时错误1004的解决方法_办公软件- 千...相关搜索：vba运行时错误1004 vba 1004 vba运行时错误13 vba运行时错误91 vba运行时错误9 运行时错误1004 运行错误1004 vb运行时错误1004 vba 错误处理
友情链接：
福州电脑网(福州iThome)专业电脑/计算机学习网站.提供电脑维修知识,包括计算机软件/硬件维修知识,路由器/交换机/网络设置,电脑蓝屏,网络/it知识学习等等电脑技术学习资料.
免责声明:本站所有信息内容仅供参考,如有冒犯您的权益请联系我们删除!请大家注意：本站删帖完全免费。邮箱:
Copyright (C) , All Rights Reserved.
版权所有 闽ICP备号-3查看: 1402|回复: 3
合并工作表时，运行代码出现错误1004
阅读权限10
在线时间 小时
本帖最后由 jianlixman 于
15:40 编辑
在网上找到了 一个代码，可以合并当前目录下所有工作簿的全部工作表。但是在应用时，出现 “运行错误，代码1004”的提示，并弹出需合并的其中一个表格。
不知道是什么原因，请各位大神和老师请教！
现上传所使用代码和所需合并的表格在附件（需合并附件所有表格的第一个工作表）。若能远程指导更为感谢，电话或者QQ可私信给我，谢谢！
Sub 合并当前目录下所有工作簿的全部工作表()
Dim MyPath, MyName, AWbName
Dim Wb As Workbook, WbN As String
Dim G As Long
Dim Num As Long
Dim BOX As String
Application.ScreenUpdating = False
MyPath = ActiveWorkbook.Path
MyName = Dir(MyPath & && & &*.xls&)
AWbName = ActiveWorkbook.Name
Num = 0
Do While MyName && &&
If MyName && AWbName Then
Set Wb = Workbooks.Open(MyPath & && & MyName)
Num = Num + 1
With Workbooks(1).ActiveSheet
.Cells(.Range(&B65536&).End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4)
For G = 1 To Sheets.Count
Wb.Sheets(G).UsedRange.Copy .Cells(.Range(&B65536&).End(xlUp).Row + 1, 1)
Next
WbN = WbN & Chr(13) & Wb.Name
Wb.Close False
End With
End If
MyName = Dir
Loop
Range(&B1&).Select
Application.ScreenUpdating = True
MsgBox &共合并了& & Num & &个工作薄下的全部工作表。如下：& & Chr(13) & WbN, vbInformation, &提示&
End Sub
复制代码
09:34 上传
点击文件名下载附件
117.45 KB, 下载次数: 7
合并第一个工作表
15:40 上传
点击文件名下载附件
7.02 KB, 下载次数: 11
内涵代码WORD文件
阅读权限95
在线时间 小时
楼主把代码文件一同上传到附件里看看吧
阅读权限10
在线时间 小时
楼主把代码文件一同上传到附件里看看吧
好的。现在上传
阅读权限10
在线时间 小时
请各位大神帮看看，相关附件已经传至帖子中，不知道是行数限制还是什么原因，请帮看看
最新热点 /1
ExcelHome每周都有线上直播公开课，
国内一流讲师真身分享，高手贴身答疑，
赶不上直播还能看录像，
关键居然是免费的！
厚木哥们都已经这么努力了，
你还好意思说学不好Office。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师1.我那部台式电脑开机的时候 点了开机的那个按钮可是 不像以前那样会发光 然后显示器也没显示画面 显示屏那个按钮一直在闪 什么硬件出问题了求解
2.还个就是第一个问题没出来之前 我机子是正常开的 可是还在开机画面 到了会显示电脑操作系统 那个滚来滚去那里的时候 又重新起了 一
1.我那部台式电脑开机的时候 点了开机的那个按钮可是 不像以前那样会发光 然后显示器也没显示画面 显示屏那个按钮一直在闪 什么硬件出问题了求解
2.还个就是第一个问题没出来之前 我机子是正常开的 可是还在开机画面 到了会显示电脑操作系统 那个滚来滚去那里的时候 又重新起了 一直都是这样
1、极可能是硬盘的电源线、内存条接触不好。建议：
1）首先拨下电源，取下内存条，用橡皮擦一下整个接触点，再用干软纸擦干净，安装回去。
2）拨下硬盘电源接线，对小铜园柱用小螺丝刀压紧后，重新装上。
重新启动，一般可解决你的问题。
2、也可能硬盘存在坏道，下载附件中的小程序，进入纯Dos状态，运行fbdisk，可以自动检测分析你的硬盘，是否存在坏道，并且可以将坏道屏蔽起来，重新分区，避免磁头读取坏道区域，可以象好硬盘一样工作。
注意：修复硬盘前，先将有用的资料备份出来。
3、电脑慢还可能是由于电脑运行产生的临时文件太多，被调入内存占用了较多的内存资源造成的，此时，可以双击运行附件中的“清除系统.bat”文件，即可自动清除电脑没有用的临时文件。
祝你顺利！...
其他答案（共53个回答）
你的问题可以有以下情况：
1.打开CPU的时候没有装好CPU，松动的CPU是不会为你工作的。或者你不会插CPU直接把针脚插坏了。
2.电源箱可能坏了。但从你后面补充的来看，系统也有问题。
3.或者是主板的电源线插松了，紧一紧试下看。如果主板有通电还出现你的上面的问题看有没有开机时的叫声，叫声有长短之分的，然后记下声音的提示，再在网络里查是出了什么问题就好了。
个人觉得：CPU没插好（不会出现任何提示音的。但主板有通电）。
开关按钮的问题。照你说的，第一个问题没出来之前，到了滚动条又重启，是因为那时候的按钮按下未能弹回，而这带来的问题就是开机还没开好就又重启了，我们平时按住按钮不放来强制关机或重启就是这个道理。
现在来讲你第二个问题，开机没反应。因为这时候按钮已经彻底不能接触了，也就不能启动机箱里面的电源了，没电当然没反应了。显示器是独立供电的，指示灯一闪一闪是因为显示信号还没送过来，等显卡送来信号也就不闪了。
怎么解决：最简单的办法就是打开机箱、用前面板“重启按钮连线”的插头插在“电源按钮连线”的针脚上（后者空着不插），因为重启键基本用不到，这就相当于用重启键来开机，一切OK！
电脑开机按钮不灵的现象很常见，出理办法有以下几种：
1.拆开前面板，换一个好的开关。此法最后。
2.把电脑设置成键盘密码开机，这需要主板支持。
3.把开关上的两...
如果重装的是正版的系统，在硬件不动的情况下开机应该是不变的。如果装的是ghost的系统，比如大地，开机的时候会多出一个一键恢复的3秒倒计时，其他应该是一样的。如...
硬盘是负责存储我们的资料的软件的仓库，硬盘的故障如果处理不当往往会导致系统的无法启动和数据的丢失，那么，当我们应该如何应对硬盘的常见故障呢？
常见故障一：系统不...
这个病毒很普遍
尤其通过U盘传染很厉害
建议你下载最新的杀毒软件杀毒
软件下载地址
杀完后打开我的电脑在上边工具拦选工具,文件夹选项
选择"...
答: 产后满月发汗是怎么回事呀？第一次遇到这种情况真是有点担心呀。
答: 比如常见的网吧电脑用的就是无盘网络技术。
优点：资源共享，节省资金。
缺点：访问速度慢，容易中毒！
答: dos下,输入netsh winsock reset 回车后重起.
或开始--运行--输入cmd --确定--弹出窗口后输入netsh winsock rese...
大家还关注
确定举报此问题
举报原因(必选)：
广告或垃圾信息
激进时政或意识形态话题
不雅词句或人身攻击
侵犯他人隐私
其它违法和不良信息
报告，这不是个问题
报告原因(必选)：
这不是个问题
这个问题分类似乎错了
这个不是我熟悉的地区
相关问答：123456789101112131415安全学院-腾讯游戏安全中心-腾讯游戏
您现在的位置： & 安全学院
点击错误码类型快速定位查询
TENVF警告码
TESS警告码
错误码：（230）
处理建议：建议您在安全的系统环境下修改密码。及时使用杀毒软件或者“腾讯游戏木马专杀”工具进行查杀，并以系统管理员身份重新登录游戏或者重启机器后再试（右键点击游戏图标，在“兼容性”栏目中选择“以管理员身份运行”后再试）。
错误码：（1,xxx,0）
处理建议：您的电脑存在游戏帐号盗号风险，建议您在安全的系统环境下修改密码并使用手机令牌和二级密码提高帐户安全性，同时使用杀毒软件或者“腾讯游戏木马专杀”工具进行查杀。
错误码：（2,xxx,0）
处理建议：您的电脑中存在非法模块，请重启电脑后登陆游戏，同时请不要使用第三方非法软件进行游戏，并建议您使用“腾讯游戏木马专杀”提高帐户安全性。
错误码：（2, 700, xxx）
处理建议：您的电脑中存在非法模块，请使用"腾讯游戏木马专杀"清除游戏目录下的非法模块。
错误码：（2,520,10x）
处理建议：您的电脑Tenslx.dat文件损坏，建议您重启游戏或者重新下载游戏客户端来获取正确的Tenslx.dat文件。
错误码：（2,800,x）
处理建议：您的电脑目录下存在异常文件，建议您下载“腾讯游戏木马专杀”工具进行修复。
错误码：(3,1730xxxx,x) ，(3,1008,xx)
处理建议：请关闭多开的客户端后再试。如无法解决，请重启机器后再试。
错误码：(3，105000xx，x) ，(3,1012,xx)
处理建议：请勿使用外挂等非法软件；请重启机器后再试。
错误码：(3，155000xx，x)
处理建议：卸载第三方非法软件后重启机器再试。
错误码：(3，103000xx，x) ，(3,1010,xx)，(3,1011,xx)，(3,1015,xx)
处理建议：您的游戏环境异常，请查杀病毒和木马，重启机器后再试。
错误码：(3，，x) ,(3,0,xx)，(3,1000,xx)，(3,1001,xx)，(3,1003,xx)，(3,1004,xx)，(3,1005,xx)， (3,1007,xx)，(3,1009,xx)，(3,1016,xx)，(3,1018,xx)，(3,1019,xx)，(3,1020,xx)，(3,1021,xx)，(3,1022,xx)，(3,1024,xx)
处理建议：请勿使用非法工具修改游戏，重启机器后再试。
错误码：(3，107000xx，x)
处理建议：请勿使用第三方非法软件，重启机器后再试。
错误码：(3，1770xxxx，x)
处理建议：请勿使用第三方非法软件，游戏存在被篡改风险，请重启机器后再试。
错误码：(3，1200xxxx，x)
处理建议：请勿使用第三方非法软件，重启机器后再试。
错误码：(3，2050xxxx，x)
处理建议：请勿使用第三方非法软件，重启机器后再试。
错误码：(3，1080xxxx，x)
处理建议：操作系统更新补丁，请重启机器后再试。
错误码：(3，，x)
处理建议：请勿使用第三方非法软件，重启机器后再试。
错误码：(3，151000xx，x)
处理建议：您的环境中已启动其他游戏，请关闭其他游戏或重启机器后再试。
错误码：(3，110000xx，x)
处理建议：请勿使用第三方非法软件，重启机器后再试。
错误码：(3，202xxxxx，x)
处理建议：请勿使用第三方非法软件，重启机器后再试。
错误码：(3，1780xxxx，x)
处理建议：游戏环境异常，存在木马风险，请查杀病毒和木马后重启机器再试。
错误码：(3，1760xxxx，x)，(3,1017,xx)，(3,1023,xx)
处理建议：游戏环境异常，存在文件被篡改风险，请重新安装游戏。
错误码：(3，220xxxxx，x)
处理建议：游戏环境异常，请重启游戏后再试；如使用第三方非法软件，请重启机器后再试。
错误码：(3，172000xx，x)
处理建议：请查杀病毒和木马，重启机器后再试。
错误码：(3，99，x)
处理建议：游戏客户端已损坏，请重新安装游戏客户端。
错误码：(x，，x) ，(3,1013,xx)，(3,1014,xx)
处理建议：安全系统检测到您在使用虚拟机登入游戏，该游戏不支持虚拟机登入，请使用非虚拟机操作系统登入该游戏。
错误码：(3,1002,xx)
处理建议：安全系统检测到游戏文件缺失或损坏，请获取正确文件进行替换，或重装游戏客户端。
错误码：(3,1006,xx)
处理建议：游戏初始化失败，请您以系统管理员身份重新登录游戏或者重启机器后再试。
错误码：(x,2008,52)
处理建议：游戏客户端同时多开会影响您的游戏体验，请关闭多开的客户端后再试。如无法解决，请重启机器后再试。
错误码：(x,804,x)
处理建议：您已超过游戏多开数量限制，请勿开启过多的游戏。如无法解决，请重启机器后再试。
错误码：(x, 404, x)
处理建议：请参考《》
错误码：(x, 20004, x)
处理建议：建议您在安全的系统环境下修改密码，并及时使用杀毒软件或者“腾讯游戏木马专杀”工具进行查杀。如无法解决，请重启机器后再试。
错误码：(x, 22, x)
处理建议：请参考《》
错误码：(x, 1, x)
处理建议：请选择管理员权限启动运行游戏（win vista&win7系统中，右键点击游戏图标，在“兼容性”栏目中选择“以管理员身份运行”后再试）。
错误码：(x,42, x)
处理建议：建议您及时使用杀毒软件或者“腾讯游戏木马专杀”工具进行查杀。如无法解决，可尝试暂时关闭杀软并重启机器后再试。
错误码：(x,100000, x)
处理建议：您的游戏环境异常，建议您及时使用杀毒软件或者“腾讯游戏木马专杀”工具进行查杀。如无法解决，请联系客服咨询或游戏论坛反馈。
错误码：(x,1008, x)
处理建议：游戏驱动异常，您的机器存在游戏多开情况或已启动过不支持win8系统的游戏，请重启机器后再试。
错误码：(x,104, x)
处理建议：建议您在安全的系统环境下修改密码。及时使用杀毒软件或者“腾讯游戏木马专杀”工具进行查杀，并以系统管理员身份重新登录游戏或者重启机器后再试（右键点击游戏图标，在“兼容性”栏目中选择“以管理员身份运行”后再试）。
错误码：(x,4, x)
处理建议：以系统管理员身份重新登录游戏（右键点击游戏图标，在“兼容性”栏目中选择“以管理员身份运行”后再试）。
错误码：(x,81008, x)
处理建议：如果您已使用win8系统的快速启动功能，请关闭该功能后再重启机器：打开“控制面板”，点击“硬件和声音”->“电源选项”->“更改电源按钮的功能”->“更改当前不可用的设置”，不要勾选“启用快速启动”选项，最后点击“保存”，重启电脑即可。
错误码：(x,12, x)
处理建议：重启机器后重试。如无法解决，可尝试关闭杀软并重启机器后再试。如仍无法解决，请联系客服咨询或官方论坛反馈。
错误码：(x,204000, x)
处理建议：关闭QQ客户端后重新登录游戏。
错误码：(x,, x)
处理建议：游戏启动异常，请重启游戏后再试。如仍无法解决，请联系客服咨询或官方论坛反馈。
错误码：(x,4000, x)
处理建议：游戏启动异常，请重启游戏后再试。如仍无法解决，请联系客服咨询或官方论坛反馈。
错误码：(x,40000, x)
处理建议：游戏客户端同时多开会影响您的游戏体验，请关闭多开的客户端后再试。如无法解决，请重启机器后再试。
错误码：(x,80000, x)
处理建议：您的环境中已启动其他游戏，请关闭其他游戏或重启机器后再试。
错误码：(x,2008, x)
处理建议：游戏客户端同时多开会影响您的游戏体验，请关闭多开的客户端后再试。如无法解决，请重启机器后再试。
TENVF 警告码
错误码：TENVF(0)
处理建议：请参照游戏官网TENVF 0解决公告尝试解决。
错误码：TENVF(1)
处理建议：建议您重启游戏或者重新下载游戏客户端来获取正确的tenslx.dll文件。
错误码：TENVF(2)
处理建议：建议您重新下载游戏客户端来获取正确的tersafe.dll文件。
错误码：TENVF(3)
处理建议：建议您重启游戏或者重新下载游戏客户端来获取正确的tenparty.dat文件。
错误码：TENVF(4)
处理建议：建议您重启游戏或者重新下载游戏客户端来获取正确的tenslx.dat文件。
TESS 警告码
错误码：(TESS警告)
处理建议：请勿使用第三方非法软件，重启机器后再试。
微信扫一扫关注
游戏安全尽在掌握中