读书人

Excel运行时异常#039;91#039;,对象或变量块未设

发布时间: 2012-03-09 21:42:52 作者: rapoo

Excel运行时错误'91',对象或变量块未设置
之前项目用excel vba做的报表,一直都是OK的。今天上午打了系统补丁之后,主要还是Excel的补丁。现在不能导出excel了,错误如题。
Set rowList1 = doc.DocumentElement.SelectNodes("//row") --------这里就会出错
For Each row1 In rowList1
Cells(irow, 1) = CStr(iNo) '序号
Cells(irow, 2) = Trim(row1.getAttribute(LCase("user_name")) & "") '姓名
Cells(irow, 3) = Trim(row1.getAttribute(LCase("msg_content")) & "") '短信内容
Cells(irow, 4) = Trim(row1.getAttribute(LCase("msg_Style")) & "") '状态
Cells(irow, 5) = Trim(row1.getAttribute(LCase("msg_time")) & "") '确认时间
Cells(irow, 6) = Trim(row1.getAttribute(LCase("msg_Day")) & "") '星期
Cells(irow, 7) = Trim(row1.getAttribute(LCase("msg_phoneNo")) & "") '联系方式

irow = irow + 1
iNo = iNo + 1
Next
'Cells(1, 1) = Trim(doc.DocumentElement.getAttribute("dept_name") & "") & "物资效期报警清单" '标题
Cells(2, 6) = Trim(doc.DocumentElement.getAttribute("Attendance") & "") '考勤日期
Call Border(Range(Cells(4, 1), Cells(irow - 1, 7)))

完整错误信息为:
运行时错误 '91'
对象变量或with变量块未设置


烦请各位帮忙,谢谢咯!

[解决办法]
是不是你的excel升级了啊?版本问题吧!
[解决办法]
错误信息很明显啊,“对象变量或with变量块未设置”。
可能是由于Excel升级,所以将vba的语法更加严格化,以前可能只写一个with而没有end with没有问题,更新后就会出现编译错误是有可能的。重新看看你的代码是否规范吧

[解决办法]
好像是你当前doc.DocumentElement是只读的。
改一下Excel属性。

读书人网 >VB Dotnet

热点推荐