将默认的表改为其他的路径

上一篇 / 下一篇 2009-03-15 19:42:00

.Er:m0^(d"X!m0当我们需要讲数

据集中管理的时候，讲所有的表都放置于某个路径下是最好的方法，这样不同的脚本都可以调用自己的表。

7xXume$e0

DimqtApp'As QuickTest.Application ' Declare the Application object variable

DimqtTestResources'As QuickTest.Resources' Declare aResourcesobject variable

SetqtApp = CreateObject("QuickTest.Application")' Create the Application object

qtApp.Launch' Start QuickTest

qtApp.Visible =True' Make the QuickTest application visible

qtApp.New' Open a new test

' Return theResourcesobject

SetqtTestResources = qtApp.Test.Settings.Resources

' Specify an external Data Table file

qtTestResources.DataTablePath ="C:\Resources\Default.xls"

j1a-_:`%eeN_0另外使用'在数据前讲使其成为文本格式，就算是时间格式的列都可以保持需要的样子，比如2009/02/02如果不加'会自动变为2009-2-2，这样使得数据不再好用，所以当加入'后依然为2009/02/02，满足测试的需要和方便。

TAG: