51Testing软件测试论坛

标题: 运行出错：类不支持 Automation 操作: 'worksheets' [打印本页]

作者: FLY000 时间: 2009-7-21 18:52
标题: 运行出错：类不支持 Automation 操作: 'worksheets'
Dim sourceExcelPath,distinctExcelPath
sourceExcelPath="E:\CompareExcel\source-tras\JB4.XLS"
distinctExcelPath="E:\CompareExcel\distinct-bi\JB4分行业总体税负（比率）情况表.xls"

Dim src,srcExcel
Set src=CreateObject("Excel.Application")
Set srcExcel=src.workbooks.open(sourceExcelPath)

Dim dis,disExcel
Set dis=CreateObject("Excel.Application")
Set disExcel=src.workbooks.open(sourceExcelPath)

srcExcel.worksheets("JB4").activate //运行到这行，出错：类不支持 Automation 操作: 'worksheets'
rowcount1=srcExcel.worksheets("JB4").usedrange.rows.count
columncount1=srcExcel.worksheets("JB4").usedrange.columns.count

srcExcel.worksheets("JB4分行业总体税负（比率）情况表").activate
rowcount2=disExcel.worksheets("JB4分行业总体税负（比率）情况表").usedrange.rows.count
columncount2=disExcel.worksheets("JB4分行业总体税负（比率）情况表").usedrange.columns.count

[ 本帖最后由 FLY000 于 2009-7-21 18:53 编辑 ]

作者: peterz 时间: 2009-7-21 19:17
你在QTP里调试还是用专门调试VBS的工具？

作者: FLY000 时间: 2009-7-22 10:29
srcExcel.worksheets("JB4").activate
是确实有“JB4”这个sheet，而且确保大小写一致，其中没有空格

srcExcel.worksheets(1).activate
运行也是提示：类不支持 Automation 操作: 'worksheets'

作者: FLY000 时间: 2009-7-22 10:34
标题: 回复 2# 的帖子
我是在QTP里调试的

作者: FLY000 时间: 2009-7-22 10:42
使用VBSEDIT也是提示这个错误，难道是我的操作系统的问题？

---------------------------
VbsEdit
---------------------------
Line: 13
Column: 1
Error: 类不支持 Automation 操作: 'worksheets'
Code: 800A01AE
Source: Microsoft VBScript 运行时错误

Do you want to stop debugging ?
---------------------------
是(Y) 否(N)
---------------------------

作者: dreamever 时间: 2009-7-22 10:43
Dim dis,disExcel
Set dis=CreateObject("Excel.Application")
Set disExcel=src.workbooks.open(sourceExcelPath)
把这三行删除掉。
你前面已经打开了这个EXCEL，在显式的关闭它之前，不要再用open语句打开。

作者: FLY000 时间: 2009-8-4 20:34
Set srcExcel=src.workbooks.open(sourceExcelPath)

是把set 去掉，就可以了

作者: onlonely 时间: 2009-8-5 08:57
Dim src,srcExcel
Set src=CreateObject("Excel.Application")
Set srcExcel=src.workbooks.open(sourceExcelPath)

Dim dis,disExcel
Set dis=CreateObject("Excel.Application")
Set disExcel=src.workbooks.open(sourceExcelPath)

怎么能打开了,不关闭,又再打开一个工作表来操作呢.

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)