广交好友~~ 想要讨论的可以留下msn~~~ 希望群友网友经常能提出问题，一起解决，共同提高

QTP EXcel检查单元格检查点小程序

上一篇 / 下一篇 2010-09-06 17:02:39 / 个人分类：QTP

Option Explicit
Dim firstNum,secondNum,operator
Call DataFromExcelTest()
Sub DataFromExcelTest()
DataTable.Import "c:\data.xls"
Dim rowcount
   Dim i
         i = 1
       DataTable.SetCurrentRow i
       firstNum = DataTable.Value("firstnum")
        Call OutPutResult()
End Sub

Sub OutPutResult()
   Dim str
   str = firstNum
    msgbox str
End Sub

收藏举报

TAG: