错误1004
发布日期：2021-01-04 03:20:00编辑：周老师
手机评站网今天精心准备的是《错误1004》，下面是详解！
excel 运行时 1004 错误,怎么解决?
以Windows7操作为例：
1、首先需要打开控制面板的界面进入，如图所示，点击右边程序和功能。
2、然后找到需要修复的软件，点击选中office软件鼠标右键，点击更改。
3、最后，再弹出的界面点击修复，如图所示，然后点击进行修复，这样操作即可解决问题。
为什么excel运行时错误1004？
要合并一个文件夹下面的EXCEL表格，网上找了个宏，代码如下：Sub合并当前目录下所有工作簿的全部工作表()DimMyPath,MyName,AWbNameDimWbAsWorkbook,WbNAsStringDimGAsLongDimNumAsLon...
要合并一个文件夹下面的EXCEL表格，网上找了个宏，代码如下：Sub 合并当前目录下所有工作簿的全部工作表()Dim MyPath, MyName, AWbNameDim Wb As Workbook, WbN As StringDim G As LongDim Num As LongDim BOX As StringApplication.ScreenUpdating = FalseMyPath = ActiveWorkbook.PathMyName = Dir(MyPath & "\" & "*.xls")AWbName = ActiveWorkbook.NameNum = 0Do While MyName <> ""If MyName <> AWbName ThenSet Wb = Workbooks.Open(MyPath & "\" & MyName)Num = Num + 1With Workbooks(1).ActiveSheet.Cells(.Range("B65536").End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4)For G = 1 To Sheets.CountWb.Sheets(G).UsedRange.Copy .Cells(.Range("B65536").End(xlUp).Row + 1, 1)NextWbN = WbN & Chr(13) & Wb.NameWb.Close FalseEnd WithEnd IfMyName = DirLoopRange("B1").SelectApplication.ScreenUpdating = TrueMsgBox "共合并了" & Num & "个工作薄下的全部工作表。如下：" & Chr(13) & WbN, vbInformation, "提示"End Sub运行这个的时候出错，提示是： 我估计问题是我的文件都是XLSX，然而以上公式是针对XLS的。求解决方法，谢谢 展开
你都知道扩展名不对劲了
只差最后那一哆嗦。。。
MyName = Dir(MyPath & "\" & "*.xls")
问题出在这一句
改成以下试试：
MyName = Dir(MyPath & "\" & "*.xlsx")
扩展
我有试过这样改过，依然是同样的提示，很奇怪
补充
折腾半天才找到原因
这段代码不能放在工作表、也不能插入模块
而是要粘贴到 Thisworkbook 中
PS:直接用MyName = Dir(MyPath & "\" & "*.xls") 这一句，能将.xls、.xlsx、.xlsm全都合并到一起
EXCEL合并多个表格出错 运行时错误1004
初次接触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 属性。
Excel 导致“运行时错误1004”的原因是什么
Sub合并当前目录下所有工作簿的全部工作表()DimMyPath,MyName,AWbNameDimWbAsworkbook,WbNAsStringDimGAsLongDimNumAsLongDimBOXAsStringApplication.ScreenUpdating=FalseMyPath=Act...
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
用这个代码运行后，就会弹出1004：应用程序定义或对象定义错误
这是怎么回事？求大神解答！
展开
excel合并出现1004错误
表格里面有sheet1，sheet2，sheet3，sheet1（1），sheet（1），sheet3（1），一直到sheet1（50），sheet2（50），sheet3（50）。...
表格里面有sheet1 ，sheet2 ，sheet3， sheet1（1） ，sheet（1），sheet3（1），一直到sheet1（50），sheet2（50），sheet3（50）。
Sub 合并()
Dim j, x&
Application.ScreenUpdating = False
For Each j In Sheets
If j.Name <> ActiveSheet.Name Then
x = Range("a65536").End(xlUp).Row + 1
j.UsedRange.Copy Cells(x, 1)
End If
Next
Range("a1").Select
Application.ScreenUpdating = True
MsgBox "完毕"
End Sub
试试这样
你的代码在少量表格运行并无错误，或者有的簿，或者方法（如copy、delete）会出现错误
excel代码 运行时错误1004 应用程序定义或对象定义...
网络电视显示错误代码1004的意思是：
1、这个代码本身的意思是指机顶盒无法正确访问电信IPTV服务器。
2、出现的原因大多是由于机顶盒与上网猫之间的连接不稳定，或是由于出户线故障，造成访问失败。
3、处理可自行重启下机顶盒与猫，重新插拔有关接头（机顶盒与猫之间的网线接头），如果故障仍然存在，报修，请电信维护人员上门处理。
网络电视显示错误代码1004是什么意思？
我要把多个EXCLE合并到一个表里边（每个EXCLE中有若干sheet）具体操作如下：1.将需合并的10个EXCEL，放到一个文件夹下2.新建一个EXCEL,sheet1右键查看代码，将下列代码写入对话框Sub合...
我要把多个EXCLE合并到一个表里边（每个EXCLE中有若干sheet）具体操作如下：1.将需合并的10个EXCEL，放到一个文件夹下2.新建一个EXCEL,sheet1右键查看代码，将下列代码写入对话框Sub 合并当前目录下所有工作簿的全部工作表()Dim MyPath, MyName, AWbNameDim Wb As Workbook, WbN As StringDim G As LongDim Num As LongDim BOX As StringApplication.ScreenUpdating = FalseMyPath = ActiveWorkbook.PathMyName = Dir(MyPath & "\" & "*.xls")AWbName = ActiveWorkbook.NameNum = 0Do While MyName <> ""If MyName <> AWbName ThenSet Wb = Workbooks.Open(MyPath & "\" & MyName)Num = Num + 1With Workbooks(1).ActiveSheet.Cells(.Range("B65536").End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4)For G = 1 To Sheets.CountWb.Sheets(G).UsedRange.Copy .Cells(.Range("B65536").End(xlUp).Row + 1, 1)NextWbN = WbN & Chr(13) & Wb.NameWb.Close FalseEnd WithEnd IfMyName = DirLoopRange("B1").SelectApplication.ScreenUpdating = TrueMsgBox "共合并了" & Num & "个工作薄下的全部工作表。如下：" & Chr(13) & WbN, vbInformation, "提示"End SubF5计算后，出现1004错误提示，更改宏设置后故障依旧
我是I5处理器
展开
MyName = Dir(MyPath & "\" & "*.xls")
xls 改成 xls*
扩展
还是不行呢
补充
+1052974911@qq.com 你要合并什么 我给你写个， 网上找的 不一定适合自己， 不一样的格式需要不同 的处理方案
excel多表合一时出现运行时错误1004，更改宏设置后...
今天从网页复制了几个数据，粘帖在excel里面，未启用宏或VB。关闭文件时，弹出VB提示窗，提示：运行时错误“1004”，应用程序定义或对象定义错误。现在打开每个表格，再关闭时都会弹出...
今天从网页复制了几个数据，粘帖在excel里面，未启用宏或VB。关闭文件时，弹出VB提示窗，提示：运行时错误“1004”，应用程序定义或对象定义错误。
现在打开每个表格，再关闭时都会弹出该提示窗，不知道是哪儿出了问题？我的版本是office2010
展开
解决
Excel 2003
出现“运行时错误“
1004
”问题的方法
打开
Excel
时，弹出以下对话框：
经
多
次
实
践
发
现
，
解
决
这
个
问
题
，
只
要
删
除
这
个
文
件
夹
"XLSTART
”
，即可。
具体路径是：
C:\Documents
andSettings\Administrator\Application
Data\Microsoft\Excel\XLSTART
删除后，电脑重新启动下。然后再打开
Exce
C:\Documents
andSettings\Administrator\Application
Data\Microsoft\Excel\XLSTART
删除后，电脑重新启动下。然后再打开
Exce
解决
Excel 2003
出现“运行时错误“
1004
”问题的方法
打开
Excel
时，弹出以下对话框：
经
多
次
实
践
发
现
，
解
决
这
个
问
题
，
只
要
删
除
这
个
文
件
夹
"XLSTART
”
，即可。
具体路径是：
C:\Documents
andSettings\Administrator\Application
Data\Microsoft\Excel\XLSTART
删除后，电脑重新启动下。然后再打开
Exce