TC 参数化--excel

上一篇 / 下一篇 2013-07-01 17:45:57 / 个人分类：QTP

Sub CurDriverExample

' Creates a driver

Call DDT.ExcelDriver("E:\test.xls", "Sheet1")

' Iterates through records

While Not DDT.CurrentDriver.EOF()

'...

log.Message(DDT.CurrentDriver.Value(0))

log.Message(DDT.CurrentDriver.Value(1))

log.Message(DDT.CurrentDriver.Value(2))

DDT.CurrentDriver.Next()

WEnd

' Closes the driver

DDT.CloseDriver(DDT.CurrentDriver.Name)

End Sub

TAG: