Question

Excel表格合并出现1004，应用程序定义或对象定义错误是为什么？

表1和表2可以成功合并，但是加入表3就不行了，表3什么问题造成以下错误的？
代码如下：
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

Answer 1

这是宏设置出了问题。解决的方法和操作步骤如下：

1、首先，以Excel 2016为例，单击工具栏中的“文件”菜单，如下图所示。

2、其次，完成上述步骤后，在弹出的列表中选择“选项”，如下图所示。

3、接着，在弹出的“ Excel选项”对话框中，在界面左侧选择“信任中心”选项，然后单击右侧的“信任中心设置”按钮，如下图所示。

4、最后，在弹出的“信任中心”对话框中，在界面左侧中选择“宏设置”选项，勾选“信任对VBA工程对象模型的访问”这一项，然后单击“确定”即可，如下图所示。这样，问题就解决了。

Answer 2

可以如下方式解决：
1、当按F5键，就报：运行时错误1004。可以这样操作，单击文件――选项――信任中心――打开“信任中心”对话框，宏设置――勾选“信任对VBA工程对象模型的访问”。再次运行，就不会出现运行时错误1004提示。

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