Question

QTP中赋值与set区别及以下如何实现code循环部分执行

以下code本人有两个问题。
（1）ExcelDataPath = "C:\123.xls" 路径赋值与Set objXL = CreatObject("Excel.Application")区别。主要体现在set用法的迷惑。可否用set ExcelDataPath = "C:\123.xls"这种形式？请举例说明。
（2）在function中当执行完一整次的输入后。由于此代码是调用Excel表格数据，因此当完成一整次输入后不想再次执行minput "aa",""1,1及minput "bb","",1,1 语句。只想执行minput Num1,"",1,1及minput Num2,"",1,1。请加入合适语句实现功能。

DIM Command, ExcelDataPath
ExcelDataPath = "C:\123.xls"
Set objXL = CreatObject("Excel.Application")
Set objWB = objXL.WorkBooks.Open(ExcelDataPath)
objXL.Visible = True
Set objExcel = objXL.ActiveWorkBook.workSheets(1)
For m = 2 to objExcel.UsedRange.Rows.Count
Num1 = objExcel.Cells(m,1).Value
Num2 = objExcel.Cells(m,2).Value

Works Num1,Num2

Next

Function Works(Num1,Num2)

minput "aa","",1,1
minput "bb","",1,1

minput Num1,"",1,1
minput Num2,"",1,1
end function

Answer 1

1. set只能取绝对路径，就是说一旦你的脚本位置变了，那可能就运行failed。
str_testpath = SF.GetPath("test\testdata.xsl")
这样就会获取相对路径拉，一层一层往上找，直到找到testdata.xsl

2. set ExcelDataPath = "C:\123.xls" 不可以，必须用显示声明，先DIM之后才能用
3. 当完成一整次输入后不想再次执行minput "aa",""1,1及minput "bb","",1,1 语句。只想执行minput Num1,"",1,1及minput Num2,"",1,1。
这个加入一个简单的循环就可以了，if else、

Answer 2

区别不大，循环用for 或者loop