Excel多页sheet打开问题--已解决

月亮冰

问题一：
Dim ExcelApp,ExcelWorkBooks,ExcelSheet( 1 To 4),myTotalColumn( 1 To 4)
为什么老提示缺少')'呢？

问题二：
EfileName="D:\5.xls"
openexcel EfileName
Function OpenExcel(fileName)  
        Set ExcelApp=CreateObject("Excel.Application")
        Set ExcelWorkBooks=ExcelApp.WorkBooks.Open(fileName)
        For i= 1 To 4
        Set ExcelSheet(i)= ExcelWorkBooks.Worksheets("第"&i&"页")
        Next
        myTotalColumn(1)= ExcelSheet(1).UsedRange.Columns.Count
End Function

提示Set ExcelSheet(i)= ExcelWorkBooks.Worksheets("第"&i&"页")行ExcelSheet类型不匹配

那么Excel多页的怎么处理呢？
谢谢，大家给看看哦

[ 本帖最后由 月亮冰 于 2009-7-7 15:32 编辑 ]

wuei9090

QTP里有1 to 4这种写法么 ?

下面那个是VBS写法了  看下VBS的帮助文档能找到答案~

月亮冰

QTP不是使用的VBS吗？
我不太知道，只知道vbs中有a（1to4）的写法
帮我再看看，谢谢哦

月亮冰

vbs与vb数组表达方式不同，没有a（1 to 4）写法，并且下标从1开始