调用excel错误问题

matsumi

Sub ab() '声明一个对象变量来存放该对象的引用。Dim as Object 采用后期绑定方式。 Dim ExcelSheet As Object Set ExcelSheet = CreateObject("Excel.Sheet")

'设置 Application 对象使 Excel 可见 ExcelSheet.Application.Visible = True '在表格的第一个单元中写些文本 ExcelSheet.Application.Cells(1, 1).Value = "This is column A, row 1" '将该表格保存到C:\test.xls 目录 ExcelSheet.SaveAs "C:\TEST.XLS" '使用应用程序对象的 Quit 方法关闭 Excel。 ExcelSheet.Application.Quit '释放该对象变量 Set ExcelSheet = Nothing End Sub 以上是帮助中示例,已经对"MICROSOFT EXCEL 10.0 OBJECT LIBRARY"引用,但"运行时错误'91',对象变量或With块变量未设置",何故?

守柔

我这儿运行正常,另外,这是一个后期绑定的过程,无需引用"MICROSOFT EXCEL 10.0 OBJECT LIBRARY",请逐语句(F8)调试,看出错在哪行代码上.

[此贴子已经被作者于2005-10-19 9:52:19编辑过]

matsumi

您好!在家里电脑格式化后重装系统和应用软件后运行正常,单位里电脑格式化后重装系统和应用软件后运行却不行,真是丈二和尚……!!

问题出现在 ExcelSheet.Application.Visible = True

守柔

以下是引用matsumi在2005-10-19 10:42:09的发言： 您好!在家里电脑格式化后重装系统和应用软件后运行正常,单位里电脑格式化后重装系统和应用软件后运行却不行,真是丈二和尚……!!

问题出现在 ExcelSheet.Application.Visible = True

你单位是什么操作系统与OFFICE版本?

不应该啊?不过,我在EXCEL中调用WORD时,RANGE对象(WORD)出错倒是很多见.

matsumi

守柔您好，重装office后,问题解决了。真是一个好心肠的人！！！