运行时错误1004应用程序或对象定义错误
一、运行时错误1004应用程序或对象定义错误
当定义key_row变量后，key_row的值是，IfWorksheets(i+).Ce
二、vba运行时错误1004 应用程序定义或对象定义错误
估计是你代码前面有强制声明语句：Option Explicit，而你的S1和s4并没有声明，所以出错。删除那句或将变量全部声明即可。
另外从代码看出了一个重要问题，在While (s1.Cells(r1, 1) “”)循环体内并没有改变r1的值，所以 s1.Cells(r1, 1) 是永远不会变的，如果满足条件进入循环就成了死循环。另外While (s1.Cells(r1, 1) “”)这句的外层括号是多余的
三、运行时错误‘1004’，应用程序定义或对象定义错误？
出现实时错误1004 应用程序定义或对象定义
在 Adodc中，该字段的数据类型是图片或多媒体等，而Excel不能识别，故
修改如下：
intField) = ecordset(ie
具体代码如下
Private Sub Command2_Click()
Dim priXLS As Exce
Dim priWorkbook As Excel.Wor
Dim priSheet As Excel.Worksheet
Dim lngRowtField, intFields, lngID
Set priXLS = New Excel.Application
kbook = priXLS.Workbooks.Add
Set priSheet = priXLS.Sheets(1)
With priSheet
intFields = Adodc1.Recordset.Fields.Count
For intField = 1 To intFields
.Cells(1, intFieldrdset(int
Next
Adodc1.Recordset.MoveLa
Adodc1.RMoveFirst
On Error Resume Next ‘防止字段类型Excel不识而出错！
For lngID = 1 To AdoRecordCount
For intField = 1 To intFields
.Ce + 1, intField) = Adodc1.Recordset(intField - 1).Value
Next
Adodc1.ReNext
Next
priXLS.Visible =
End Sub
