测试文件名：datasheet   路径为E:\TestInstance\qtp\ForexampleTest\
要导入的数据保存在C:\NameTickets.xls 内容为
name tickets
aa         1
bb        2
cc         3
在导入数据前E:\TestInstance\qtp\ForexampleTest\datasheet\Default.xls有两个缺省的Sheet 分别为Global Action1均无数据
运行如下程序：

DataTable.AddSheet("MySheet")  '在缺省的Default.xls添加一个标单MySheet      
DataTable.ImportSheet "C:\NameTickets.xls", 1, "MySheet"                                               ' 第二行
DataTable.ExportSheet "E:\TestInstance\qtp\ForexampleTest\datasheet\Default.xls", 3        ' 第三行
  
'其中第二行中的1参数 是指从文件“"C:\NameTickets.xls"的第一列开始导入数据到新建的MySheet 中
'其中第二行中的3参数 是指讲运行过程的数据导出到文件"E:\TestInstance\qtp\ForexampleTest\datasheet\Default.xls"第三个Sheet即新建的MySheet中。
运行完毕，则在下次打开该测试时就能看见添加了表单MySheet，并且数据已经导入。
也可以手工打开文件 E:\TestInstance\qtp\ForexampleTest\datasheet\Default.xls来查看。

创建文件
dim fso, f
set fso = server.CreateObject("scrīpting.FileSystemObject")
set f = fso.CreateTextFile("C:\test.txt", true) '第二个参数表示目标文件存在时是否覆盖
f.Write("写入内容")
f.WriteLine("写入内容并换行")
f.WriteBlankLines(3) '写入三个空白行（相当于在文本编辑器中按三次回车）
f.Close()
set f = nothing
set fso = nothing

打开并读文件
dim fso, f
set fso = server.CreateObject("scrīpting.FileSystemObject")
set f = fso.OpenTextFile("C:\test.txt", 1, false) '第二个参数 1 表示只读打开，第三个参数表示目标文件不存在时是否创建
f.Skip(3) '将当前位置向后移三个字符
f.SkipLine() '将当前位置移动到下一行的第一个字符，注意：无参数
response.Write f.Read(3) '从当前位置向后读取三个字符，并将当前位置向后移三个字符
response.Write f.ReadLine() '从当前位置向后读取直到遇到换行符（不读取换行符），并将当前位置移动到下一行的第一个字符，注意：无参数
response.Write f.ReadAll() '从当前位置向后读取，直到文件结束，并将当前位置移动到文件的最后
if f.atEndOfLine then
    response.Write("一行的结尾！")
end if
if f.atEndOfStream then
    response.Write("文件的结尾！")
end if
f.Close()
set f = nothing
set fso = nothing

打开并写文件
dim fso, f
set fso = server.CreateObject("scrīpting.FileSystemObject")
set f = fso.OpenTextFile("C:\test.txt", 2, false) '第二个参数 2 表示重写，如果是 8 表示追加
f.Write("写入内容")
f.WriteLine("写入内容并换行")
f.WriteBlankLines(3) '写入三个空白行（相当于在文本编辑器中按三次回车）
f.Close()
set f = nothing
set fso = nothing

判断文件是否存在
dim fso
set fso = server.CreateObject("scrīpting.FileSystemObject")
if fso.FileExists("C:\test.txt") then
    response.Write("目标文件存在")
else
    response.Write("目标文件不存在")
end if
set fso = nothing

移动文件
dim fso
set fso = server.CreateObject("scrīpting.FileSystemObject")
call fso.MoveFile("C:\test.txt", "D:\test111.txt") '两个参数的文件名部分可以不同
set fso = nothing

复制文件
dim fso
set fso = server.CreateObject("scrīpting.FileSystemObject")
call fso.CopyFile("C:\test.txt", "D:\test111.txt") '两个参数的文件名部分可以不同
set fso = nothing

删除文件
dim fso
set fso = server.CreateObject("scrīpting.FileSystemObject")
fso.DeleteFile("C:\test.txt")
set fso = nothing

创建文件夹
dim fso
set fso = server.CreateObject("scrīpting.FileSystemObject")
fso.CreateFolder("C:\test") '目标文件夹的父文件夹必须存在
set fso = nothing

判断文件夹是否存在
dim fso
set fso = server.CreateObject("scrīpting.FileSystemObject")
if fso.FolderExists("C:\Windows") then
    response.Write("目标文件夹存在")
else
    response.Write("目标文件夹不存在")
end if
set fso = nothing

删除文件夹
dim fso
set fso = server.CreateObject("scrīpting.FileSystemObject")
fso.DeleteFolder("C:\test") '文件夹不必为空
set fso = nothing

新建一个文本，输入一些新建Action时常包含的信息，然后保存为ActionTemplate.MST文件,
　并复制到QTP/dat目录下；这样每次新建action都会包含固定的信息了;
例如:
'-------------------脚本说明---------------
'产品版本:      __Build(  )
'测试员:
'编写日期:
'测试功能:
'脚本类型:
'被测试对象初始状态:
'进展程度:
'基本思路:
'主要功能函数:
'历史修改:
'没解决的问题:
'--------------------脚本内容-------------

当然了，脚本的说明内容可以随意修改，但必须保存到dat目录下，并且文件的名字为：ActionTemplate.MST

Action之间的参数传递
例如:在Action1中，有如下代码:
out_str="This is out_string"
RunAction "Action2",oneIteration,out_str
在Acton2中，在其step->Action Properties中的，input参数栏，加入out_str后,
msgbox(parameter("out_str"))，就能正确显示参数了　

按照该方法如下:

1.加入Action1后，输入：out_str="This is out_string"
RunAction "Action2",oneIteration,out_str

2.然后再加入Action2，注意：Action1和Action2是并列关系，

在其step->Action Properties中的，input参数栏，加入out_str后,

这是在Action2中输入：msgbox(parameter("out_str"))

当运行的时候会出现两个msgbox，其中第一个显示内容为："This is out_string" ；第二个msgbox显示内容为：空；

当把和Action1并列的那个Action2去掉后就可以出现一个msgbox，其中显示内容为："This is out_string"，

结论: Action1和Action2为父子关系时，才会出现传递的参数内容。

QTP为用户提供了两种操作对象的接口，一种就是对象的封装接口，另一种是对象的自身接口。
对象的自身接口是对象控件本身的接口，只要做过软件开发，使用过控件的人应该很清楚。
对象的封装接口是QTP为对象封装的另一层接口，它是QTP通过调用对象的自身接口来实现的。


两种接口的脚本书写格式的差别在于：
  自身接口需要在对象名后面加object再加属性名或方法名，
  封装接口就不用在对象名后面加object。

比如操作JavaEdit对象，通过QTP封装的封装接口，脚本如下：
  设置JavaEdit的内容：
     JavaDialog("Add NE").JavaEdit("NE Name").Set "NE1"
  读取JavaEdit的内容：
     msgbox JavaDialog("Add NE").JavaEdit("NE Name").GetROProperty("value")

如果通过JavaEdit的自身接口，脚本如下：
  设置JavaEdit的内容：
     JavaDialog("Add NE").JavaEdit("NE Name").object.setText("NE1")
  读取JavaEdit的内容：
     Msgbox JavaDialog("Add NE").JavaEdit("NE Name").object.getText()

QTP执行JavaEdit().Set语句时，是通过执行JavaEdit().object.setText()来实现的。
QTP执行JavaEdit().GetROProperty("value"),是通过执行JavaEdit().object.getText()来实现的。
JavaEdit对象的封装接口Set()和GetROProperty("value")，是QTP封装JavaEdit对象的自身接口setText()和getText()而得来的。

对象的封装接口是QTP使用的缺省接口，我们录制出来的脚本都是使用封装接口，大家用的也都是封装接口。
但是封装接口不如自身接口丰富，因为QTP只是封装了部分常用的自身接口嘛。
所以我们在需要时，可以绕过封装接口，直接调用对象的自身接口。
不过有些自身接口不够稳定，在实践中偶尔会出现问题，但是概率很少。
封装接口有相应功能的话，就尽量用封装接口吧！


理解了封装接口和自身接口的原理，我们就可以更加灵活的操作对象了。

但是我们怎么知道对象都有哪些封装接口和自身接口呢？
其实很简单，用对象查看器（Object Spy）查看对象，在查看窗口里有列出这些接口，包括属性和方法。
窗口中间有选择栏让你选择Run-time Object或者Test Object，
当你选择Run-time Object时，它显示的就是对象的自身接口（自身的属性和方法）
当你选择Test Object时，它显示的就是对象的封装接口（封装的属性和方法）

明白了这些，你还等什么呢？快拿起对象查看器，看看对象都有哪些封装接口和自身接口，肆意的操作它，玩弄它吧！

比如执行
  JavaDialog("Add NE").JavaEdit("NE Name").object.setVisible(false)
哈哈，你的JavaEdit对象就当场消失不见了！！！

应该说TO是仓库文件里定义的仓库对象，RO是被测试软件的实际对象
QTP要求先在仓库文件里定义仓库对象，里面存有实际对象的特征属性的值，
运行的时候，QTP会根据仓库对象的特征属性描述，寻找到实际对象，然后操作实际对象。

仓库对象TO一般在录制/编写脚本时加入仓库文件，它不仅可以在编写时进行修改，
也可以在运行过程中进行动态修改，以匹配实际对象。

相关的几个函数有：

GetTOProperty():取得仓库对象的某个属性的值
GetTOProperties():取得仓库对象的所有属性的值
SetTOProperty():设置仓库对象的某个属性的值

GetROProperty():取得实际对象的某个属性的值


理解了TO的含义，你就可以自由的用SetTOProperty()定义TO，以灵活的操作RO

比如有个测试任务，窗口上有很多待检查的记录，每条记录右边都有一个Check按钮，用来检查各条记录。
记录个数不定，所以Check按钮个数也就不定，只有一个Edit显示记录个数。
我们要对每条记录进行检查，也就是要点击每个Check按钮。
但是Check按钮个数不定，不好录制，而且个数可能也很多（上百个），即使能一一录制，那也很麻烦。

那我有一个好办法，只录制一个按钮对象，它设有两个特征属性 label=OK, index=0
然后用下面的脚本，就可以完成测试

buttonNum = CInt(JavaWindow("Test").JavaEdit("Record Num").GetROProperty("value"))
For buttonIndex = 0 to buttonNum - 1
  JavaWindow("Test").JavaButton("Check").SetTOProperty("index", buttonIndex)
  JavaWindow("Test").JavaButton("Check").Click
Next


或者窗口上有New、Modify、Delete、Check等好几个按钮，要把这几个按钮一一按过去
我在对象仓库里只设置一个按钮对象AnyButton，label特征属性值填任意值，然后用下面脚本执行测试

JavaWindow("Test").JavaButton("AnyButton").SetTOProperty("label", "New")
JavaWindow("Test").JavaButton("AnyButton").Click

JavaWindow("Test").JavaButton("AnyButton").SetTOProperty("label", "Modify")
JavaWindow("Test").JavaButton("AnyButton").Click

JavaWindow("Test").JavaButton("AnyButton").SetTOProperty("label", "Delete")
JavaWindow("Test").JavaButton("AnyButton").Click

JavaWindow("Test").JavaButton("AnyButton").SetTOProperty("label", "Check")
JavaWindow("Test").JavaButton("AnyButton").Click


另外，QTP还支持脚本描述的方法来定义和访问对象，即不需要在仓库里定义，也能访问和操作实际对象

如上面两个任务，可以如下实现

1. 不需要在仓库里定义Check按钮对象，直接用下面脚本来实现测试

buttonNum = CInt(JavaWindow("Test").JavaEdit("Record Num").GetROProperty("value"))
For buttonIndex = 0 to buttonNum - 1
  JavaWindow("Test").JavaButton("label:=Check", "index:="+CStr(buttonIndex)).Click
Next

2. 不需要在仓库里定义New、Modify、Delete、Check按钮对象，直接用下面脚本来实现测试

JavaWindow("Test").JavaButton("label:=New").Click
JavaWindow("Test").JavaButton("label:=Modify").Click
JavaWindow("Test").JavaButton("label:=Delete").Click
JavaWindow("Test").JavaButton("label:=Check").Click