软件测试论坛 › [QuickTest Professional] › QTP调用VBS取vbs函数返回值的问题

linei 发表于 2008-9-2 14:08:18

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 = readExcelrowno
但是QTP在res = readExcelrowno处老报语句未结束的错误，请教怎么回事？

xiaonan 发表于 2008-9-2 14:49:37

在函数里　把最后要取的值传给函数名，然后就在脚本里res=readExcel(rowno) 就能得到了

linei 发表于 2008-9-3 09:59:32

谢谢了，已经OK，斑竹真的很好哦！

查看完整版本: QTP调用VBS取vbs函数返回值的问题