excel运行时错误1004，应用程序定义或者对象定义错误，是因为宏设置出了问题。
解决的方法和操作步骤如下：
1、第一步，以Excel 2016为例，单击工具栏中的“文件”菜单，然后进入下一步，见下图。
2、第二步，在弹出列表中选择“选项”，然后进入下一步，见下图。
3、第三步，完成上述步骤后，选择界面左侧的“信任中心”选项，然后单击右侧的“信任中心设置”按钮，然后进入下一步，见下图。
4、第四步，完成上述步骤后，选择界面左侧的“宏设置”选项，选中“信任对VBA工程对象模型的访问”项，然后单击“确定”，见下图。 这样就解决了问题。
vba运行时错误1004 应用程序定义或对象定义错误
可以如下方式解决：
1、当按F5键，就报：运行时错误1004。可以这样操作，单击文件――选项――信任中心――打开“信任中心”对话框，宏设置――勾选“信任对VBA工程对象模型的访问”。再次运行，就不会出现运行时错误1004提示。
2、再在搜索引擎查询，才知道运行时错误1004不只是在上面这种情况才会有提示。比如通过使用
Visual
Basic
对应用程序的宏创建一个数组公式时您也可能会收到运行时错误1004提示提示信息。造成excel
vba输入公式出现运行时错误1004的原因：当试图将传递一个包含超过
255
个字符的公式时，会发生此问题，并为应用程序中
Visual
Basic
中使用
FormulaArray
属性。
运行时错误‘1004’ 应用程序定义或对象定义错误
vba运行时错误1004 应用程序定义或对象定义错误是设置错误造成的，解决方法为：
1、先打开一个文件。
2、单击文件―选项―信任中心―信任中心设置。
3、打开“信任中心”对话框 宏设置。
4、勾选“信任对VBA工程对象模型的访问” 点击确定。就不会出现运行时错误1004提示。
excel运行VBA，出现1004错误
出现实时错误1004 应用程序定义或对象定义错误的原因是：
在 Adodc中，该字段的数据类型是图片或多媒体等，而Excel不能识别，故出现上述错误。
修改如下：
intField) = Adodc1.Recordset(intField – 1).Value
具体代码如下
Private Sub Command2_Click()
Dim priXLS As Excel.Application
Dim priWorkbook As Excel.Workbook
Dim priSheet As Excel.Worksheet
Dim lngRow, lngRows, intField, intFields, lngID As Long
Set priXLS = New Excel.Application
Set priWorkbook = priXLS.Workbooks.Add
Set priSheet = priXLS.Sheets(1)
With priSheet
intFields = Adodc1.Recordset.Fields.Count
For intField = 1 To intFields
.Cells(1, intField) = Adodc1.Recordset(intField – 1).Name
Next
Adodc1.Recordset.MoveLast
Adodc1.Recordset.MoveFirst
On Error Resume Next ’防止字段类型Excel不识而出错！
For lngID = 1 To Adodc1.Recordset.RecordCount
For intField = 1 To intFields
.Cells(lngID + 1, intField) = Adodc1.Recordset(intField – 1).Value
Next
Adodc1.Recordset.MoveNext
Next
End With
priXLS.Visible = True
End Sub
excel运行VBA，出现1004错误是因为未勾选“信任对VBA工程对象模型的访问”选项，勾选即可。
工具/材料：Microsoft Office Excel2007版，Excel表格。
1、首先双击打开Excel表格。
2、其次在该窗口上，点击左上角的OFFICE图标。
3、接着在弹出窗口中，点击下方的“Excel选项”按钮。
4、其次在弹出窗口中，点击左侧里“信任中心”选项。
5、之后在弹出窗口中，点击右侧里“信任中心设置”按钮。
6、然后在弹出窗口中，点击左侧里“宏设置”选项。
7、再者在弹出窗口中，勾选右侧里“信任对VBA工程对象模型的访问”选项。
8、最后在弹出窗口中，点击“确定”按钮即可。
以上就是关于excel运行时错误1004,应用程序定义或者对象定义错误，这个怎么办全部的内容，如果了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！
更多相关资讯
