首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > .NET > VB Dotnet >

Excel运行时异常'91',对象或变量块未设置

2012-03-09 
Excel运行时错误91,对象或变量块未设置之前项目用excel vba做的报表,一直都是OK的。今天上午打了系统补丁

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属性。

热点排行