51Testing软件测试论坛

标题: Excel多页sheet打开问题--已解决 [打印本页]

作者: 月亮冰 时间: 2009-7-7 14:37
标题: 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 时间: 2009-7-7 14:44
QTP里有1 to 4这种写法么 ?

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

作者: 月亮冰 时间: 2009-7-7 15:07
QTP不是使用的VBS吗？
我不太知道，只知道vbs中有a（1to4）的写法
帮我再看看，谢谢哦

作者: 月亮冰 时间: 2009-7-7 15:32
标题: 已解决
vbs与vb数组表达方式不同，没有a（1 to 4）写法，并且下标从1开始

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