标题: QTP调用VBS取vbs函数返回值的问题 [打印本页] 作者: linei 时间: 2008-9-2 14:08 标题: QTP调用VBS取vbs函数返回值的问题 我有一个vbs代码如下：
Public Function readExcel(rowno)
Dim xlApp,xlWorkBook,xlSheet
Dim iColumnCount,iLoop,numAdd
Set xlApp= CreateObject("Excel.Application")
xlApp.Visible= True
Set xlWorkBook= xlApp.Workbooks.Open("c:\data.xls")
Set xlSheet= xlWorkBook.Sheets("Sheet1")
iColumnCount = ActiveSheet.UsedRange.Columns.Count
If iColumnCount <> Null Then
For iLoop= 1 To iColumnCount
numAdd= xlSheet.Cells(RowNo,iLoop)
Next
xlWorkBook.Save
xlWorkBook.Close
xlApp.Quit
Set xlSheet= Nothing
Set xlWorkBook= Nothing
Set xlApp= Nothing
readExcel=numAdd
Else
MsgBox "iColumnCount is null!"
End If
End Function
我在QTP中取其返回值的代码如下：
ExecuteFile "C:\common.vbs"
Dim rowno ,res
rowno = 1
res = readExcel rowno
但是QTP在res = readExcel rowno处老报语句未结束的错误，请教怎么回事？作者: xiaonan 时间: 2008-9-2 14:49
在函数里 把最后要取的值传给函数名，然后就在脚本里res=readExcel(rowno) 就能得到了作者: linei 时间: 2008-9-3 09:59
谢谢了，已经OK，斑竹真的很好哦！