51Testing软件测试论坛

标题: 从外部的Execl 文件实现参数化 [打印本页]

作者: weixiang1983 时间: 2010-1-21 17:47
标题: 从外部的Execl 文件实现参数化
各位大侠，小弟有2个基础问题想请教一下
1.我是在keyword view里面设置参数的，在选择location in data sheet，里面有globle sheet和current action sheet（local）（见附图），请问一下这2个的区别是什么啊？
2.我见过有人将一些参数先在本地新建一个execl 表格，把一些参数都先填写好，然后导入，请问这种方法如何实现啊？

请高手帮忙一下，谢谢~

作者: May_may 时间: 2010-1-22 09:44
globle sheet是全局的，该Test下的所有action都可以使用
current action sheet（local）是本地的，只在本action里有效
一般test循环globle有多少条就会自动跑多少遍
如果是在local里不论有几条，自己不加循环判断的话，Test只跑一遍
关于参数的
1.可以自己写代码导入
2.该用例的参数化都保存在该用例文件夹下的Default.xls文件里的，可以直接修改这个文件

作者: weixiang1983 时间: 2010-1-22 10:04
标题: 回复 2# 的帖子
非常感谢~~

作者: weixiang1983 时间: 2010-1-22 10:21
标题: 回复 2# 的帖子
呵呵，找到default.exl文件了，然后import file就可以导入进来，
对了，想再请问一下，如何写代码导入啊？可以把代码发过来吗？

作者: robinsgl 时间: 2010-1-22 15:58
I hope someone kindly send the code to share with us.

作者: May_may 时间: 2010-1-22 16:48
'#################################
'ImportTestData()
'导入测试数据
'将文件改为测试文件夹下另存为
'#################################
Sub ImportTestData()
msgbox("请选择要导入的数据文件，为Excel文件，(ps:表的Sheet名为Global和Local)")
Set objDialog = CreateObject("UserAccounts.CommonDialog")
objDialog.Filter = "所有文件|*.*|97-2003Excel文件|*.xls|2007Excel文件|*.xlsx"
objDialog.InitialDir = "D:\"
intResult = objDialog.ShowOpen
If intResult = 0 Then
      'Wscript.Quit
      Exit Sub
Else
      Fpath=objDialog.FileName
End If
msgbox("请选择要导入的测试文件的路径")
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.BrowseForFolder _
(0, "请选择文件夹:", 0, "D:\") '点代表总目录，也可以是类似于“C:\”的路径
If objFolder Is Nothing Then '如果用户单击了“取消“则退出脚本
'Wscript.Quit
Exit Sub
End If
Set objFolderItem = objFolder.Self
TestDir = objFolderItem.Path
Set oExcel = Createobject("Excel.Application")
oExcel.DisplayAlerts=FALSE
oExcel.Workbooks.Open Fpath
oExcel.ActiveWorkbook.SaveAs TestDir&"\Default.xls",True
oExcel.ActiveWorkbook.Close
oExcel.Quit
Set oExcel= Nothing
End Sub

上面是我自己写的一个选择一个测试数据文件和Test文件后就自动另存为替换了Default.xls文件
可以修改下把前面的选择文件本部分去掉

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)