头痛……，这样还出错！

[I2K]

Do While Not objRS.EOF
iRow = iRow + 1
iCol = iColOffset
For Each objField in objRS.Fields
If IsNull(objField.Value) or (objField.Value & "" = "") or (isEmpty(objField.Value)) then
objSpreadsheet.Cells(iRow, iCol).Value = ""
Else
objSpreadsheet.Cells(iRow, iCol).Value = objField.Value
End if
……

这一行还是报错： objSpreadsheet.Cells(iRow, iCol).Value = objField.Value
字段的空值问题，救命啊？！！

[yezai]

具体提示什么错误，要会使用打印sql。。。

[I2K]

原来不是ADO的错误，是Microsoft Office Web Components 9.0 错误 '80070057' ！

当数据库的数据类型是decimal的时候出错！

[I2K]

谢谢 yezai(阿川)的关注！接分！