月亮冰 发表于 2009-7-7 14:37:46

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:42

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

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

月亮冰 发表于 2009-7-7 15:07:30

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

月亮冰 发表于 2009-7-7 15:32:05

已解决

vbs与vb数组表达方式不同，没有a（1 to 4）写法，并且下标从1开始
页: [1]
查看完整版本: Excel多页sheet打开问题--已解决