运行出错：类不支持 Automation 操作: 'worksheets'

FLY000

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

你在QTP里调试还是用专门调试VBS的工具？

FLY000

srcExcel.worksheets("JB4").activate   
是确实有“JB4”这个sheet，而且确保大小写一致，其中没有空格

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

FLY000

我是在QTP里调试的

FLY000

使用VBSEDIT也是提示这个错误，难道是我的操作系统的问题？

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

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

dreamever

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

FLY000

Set srcExcel=src.workbooks.open(sourceExcelPath)

是把set 去掉，就可以了

onlonely

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)

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