运行时错误1004

手机评站网今天精心准备的是《运行时错误1004》，下面是详解！

excel 运行时 1004 错误,怎么解决?

以Windows7操作为例：

1、首先需要打开控制面板的界面进入，如图所示，点击右边程序和功能。

2、然后找到需要修复的软件，点击选中office软件鼠标右键，点击更改。

3、最后，再弹出的界面点击修复，如图所示，然后点击进行修复，这样操作即可解决问题。

运行时错误‘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 应用程序定义或对象定义...

选择了对表格进行编辑的时候，出现该提示，点“调试”后出现：Toolbars.AddName:="工具栏1"（这个是黄背景的）Toolbars("工具栏1").ToolbarButtons.AddButton:=211,Before:=1WithTool...

选择了对表格进行编辑的时候，出现该提示，点“调试”后出现：
Toolbars.Add Name:="工具栏1"（这个是黄背景的）

Toolbars("工具栏1").ToolbarButtons.Add Button:=211, Before:=1
With Toolbars("工具栏1")
.Visible = True
.Position = xlTop
.Left = 1
.Top = 65
请高手帮忙解决，谢谢！ 展开

已经存在了一个名字是：工具栏1 的Toolbar，再次添加就会造成冲突了。

在Toolbars.add 的前面加一句：On Error Resume Next，就不会提示出错了。

扩展

请问出现中断，无法调试，怎么办？

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”的原因是什么

要合并一个文件夹下面的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里面，未启用宏或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

excel运行时错误1004

EXCEL表在运行宏时总出现"运行时错误1004"方法"save"作用于对象"-wrokbook"时失败代码如下：Sub新增课时()DimiAsInteger,jAsInteger,aAsString,bAsString,cAsString,dAsString,eAsStr...

EXCEL表在运行宏时总出现"运行时错误1004"方法"save"作用于对象"-wrokbook"时失败

代码如下：
Sub 新增课时()
Dim i As Integer, j As Integer, a As String, b As String, c As String, d As String, e As String, f As String, g As String
Worksheets("考勤登记表").Activate
z = Cells(4, 2).Value
a = Cells(12, 3).Value
b = Cells(12, 4).Value
c = Cells(12, 5).Value
d = Cells(12, 6).Value
e = Cells(12, 7).Value
f = Cells(12, 8).Value
g = Cells(12, 9).Value
h = Cells(12, 10).Value
Worksheets("学员信息汇总").Activate
Sheets("学员信息汇总").Unprotect
For j = 1 To 10000
If Cells(j, 1).Value = z Then
i = Cells(j, 1).End(xlToRight).Column
Cells(j, i + 1).Activate
Cells(j, i + 1).Value = a
Cells(j, i + 2).Activate
Cells(j, i + 2).Value = b
Cells(j, i + 3).Activate
Cells(j, i + 3).Value = c
Cells(j, i + 4).Activate
Cells(j, i + 4).Value = d
Cells(j, i + 5).Activate
Cells(j, i + 5).Value = e
Cells(j, i + 6).Activate
Cells(j, i + 6).Value = f
Cells(j, i + 7).Activate
Cells(j, i + 7).Value = g
Cells(j, i + 8).Activate
Cells(j, i + 8).Value = h
End If
Next j
Sheets("学员信息汇总").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True '
Worksheets("考勤登记表").Activate
Sheets("考勤登记表").Unprotect
Sheets("考勤登记表").Range("C12:J12").Select
Selection.ClearContents
Sheets("考勤登记表").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True '
ActiveWorkbook.Save
End Sub 展开

没有数据 运行不起来
Application.DisplayAlerts = False
加上这个试下
应该是保存代码因为某些原因冲突了吧

更多扩展补充

扩展

加在什么位置呢？

补充

开头吧  感觉应该不可以 应该是 保存代码和什么冲突了

开头吧  感觉应该不可以 应该是 保存代码和什么冲突了

扩展

这么说吧，两台电脑相同版本的软件，在A电脑上能正常使用，但在B电脑上就总是出现这个问题。这是为什么呢？

补充

额 你在哪个不能运行的电脑上面 用录制宏  保存excel  看看代码是什么

扩展

代码同一组代码，没有差异。

补充

不是 我是想问下 你录制宏代码 可以运行不？如果录制宏代码都不可以的话 应该是电脑的问题，
如果录制宏可以，你再检查下代码有啥区别！！

EXCEL表在运行宏时总出现"运行时错误1004"方法"sav...

Sub折人民币万元()Sets1=ThisWorkbook.Sheets(1)Sets4=ThisWorkbook.Sheets(4)Dimc1,c4AsStringDimh,j,lAsDoubleDimr1,r4AsLongs1.Cells(1,8)="折人民币万元"'列名r1=2r4=2While(s1.C...

Sub 折人民币万元()
Set s1 = ThisWorkbook.Sheets(1)
Set s4 = ThisWorkbook.Sheets(4)
Dim c1, c4 As String
Dim h, j, l As Double
Dim r1, r4 As Long
s1.Cells(1, 8) = "折人民币万元" '列名
r1 = 2
r4 = 2
While (s1.Cells(r1, 1) <> "")
If s1.Cells(r1, 6) = s4.Cells(r4, 1) Then
s1.Cells(r1, 8) = s4.Cells(r4, 4) * s1.Cells(r1, 7)
End If
r4 = r4 + 1
Wend

End Sub 展开

估计是你代码前面有强制声明语句：Option Explicit，而你的S1和s4并没有声明，所以出错。删除那句或将变量全部声明即可。
另外从代码看出了一个重要问题，在While (s1.Cells(r1, 1) <> "")循环体内并没有改变r1的值，所以 s1.Cells(r1, 1) 是永远不会变的，如果满足条件进入循环就成了死循环。另外While (s1.Cells(r1, 1) <> "")这句的外层括号是多余的

更多扩展补充

扩展

谢谢，请问下s1,s4怎么声明，原以为写成Set s1 = ThisWorkbook.Sheets(1)就算声明了。

补充

Dim s1,s2

扩展

谢谢，声明了以后还是报一样的错，能再帮忙看看么，谢谢！

补充

前面没有强制声明语句，所以不会是没声明变量引起的错误
出错时按“调试“，看哪句出错了再分析问题吧

扩展

点调试后图中的部分标黄，麻烦帮忙看看这是为啥，报的还是一样的错。

补充

估计是工作表的问题，s4不是工作表，是图表吧
别扩展了，没有文件也无帮你，要不然用百度云分享文件

扩展

不好意思，还是得麻烦您帮忙看看，百度网盘链接: https://pan.baidu.com/s/1smIsEZV 密码: m5xe 。如果您能帮我解决，我给您发个红包吧。多谢！

补充

我运行程序并没有出错，而是进入了死循环，不是提醒过你嘛，还要犯同样的错。
不明白你程序的目的，没法帮你修改代码。

扩展

给您描述下现在的问题：页签1和页签4，当页签1和页签4中的CCY列相等的时候，用页签1中的G列*页签4中对应币种的D列，EXCEL版本是2010，我执行的时候也是会卡住，然后，过一会就会报那个1004的错。