Question

excel运行VBA，出现1004错误

Sub macro1()
'
'macro1 macro
'
'每六万分表

Dim AA As Long
Dim I As Long
Dim ZROW As Long

AA = 1 'AA为表头行数，默认1行
'sheet1为分割的表的工作簿名，需按情况改变，一共三处

Sheets("SHEET1").Select
'Range里的A300000为行数范围，如分割表有85万，则改为A900000（>85万）
For I = AA + 1 To Range("A300000").End(xlUp).Row Step 60001 - AA
Rows("1:" & Format(AA)).Copy
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = Format(I)
Range("A1").Select
ActiveSheet.Paste
Sheets("SHEET1").Select
Rows(Format(I) & ":" & Format(I - AA + 60000)).Copy
Sheets(Format(I)).Select
Range("A" & Format(AA + 1)).Select
ActiveSheet.Paste
Sheets("SHEET1").Select
Next
End Sub

代码内容如上，以前是能用的，近期用不了了，不知道是不是代码有问题？
就是想把一个表格文件，分成每六万行一张表。 求懂的帮忙指点一下，谢谢！

Answer 1

excel运行VBA，出现1004错误是因为未勾选“信任对VBA工程对象模型的访问”选项，勾选即可。 

工具/材料：Microsoft Office Excel2007版，Excel表格。

1、首先双击打开Excel表格。

2、其次在该窗口上，点击左上角的OFFICE图标。

3、接着在弹出窗口中，点击下方的“Excel选项”按钮。

4、其次在弹出窗口中，点击左侧里“信任中心”选项。

5、之后在弹出窗口中，点击右侧里“信任中心设置”按钮。

6、然后在弹出窗口中，点击左侧里“宏设置”选项。

7、再者在弹出窗口中，勾选右侧里“信任对VBA工程对象模型的访问”选项。 

8、最后在弹出窗口中，点击“确定”按钮即可。 

Answer 2

单击文件――选项――信任中心――打开“信任中心”对话框，宏设置――勾选“信任对VBA工程对象模型的访问”。再次运行，就不会出现运行时错误1004提示。

　　运行时错误1004不只是在上面这种情况才会有提示。比如通过使用 Visual Basic
对应用程序的宏创建一个数组公式时您也可能会收到运行时错误1004提示提示信息。造成excel
vba输入公式出现运行时错误1004的原因：当您试图将传递一个包含超过 255 个字符的公式时，会发生此问题，并为应用程序中 Visual Basic 中使用
FormulaArray 属性。

　　…………

　　运行时错误1004提示代码有很多研究，也是视具体环境不同而不同。

望采纳

追问

不是这个原因，之前我就有按这个做过设置。

Answer 3

　　单击文件――选项――信任中心――打开“信任中心”对话框，宏设置――勾选“信任对VBA工程对象模型的访问”。再次运行，就不会出现运行时错误1004提示。

Answer 4

版本一：方式1：选定文件，右键－属性，将文档属性中的只读选项的勾去掉后再打开文件修改，修改后即可保存； 方式2：打开文件，另存为其它文件名，修改后也可保存。 无法保存时候处理方法： 从开始菜单进入程序－office－office工具－应用程序恢复－选择不能保存的文件－结束应用程序（此时能保存文件的最近的状态兵退出）版本二、这是Excel文件中引用了一些你电脑里没有的Dll文件。在工具/宏/VBA编辑器中，工具/引用里，把丢失的引用去除即可。但有可能其中的程序就无法正常运行。版本三、这种现象一般都是发生在你的文档通过其他文件作为数据库或者是数据资料来源，同时又缺少或数据来源文件不在读取文档指定或相同目录下时出现，比如word文档通过邮件合并功能读取了excel文件中的数据生成邮件合并模板文件后，移除excel数据源文件或将word邮件合并模板文件转移到其他目录时就会出现这个现象，解决方法就是将数据源文件放到指定的位置或与读取文档放置在同一目录下就能解决。

Answer 5

解决
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