从外部的Execl 文件实现参数化

weixiang1983

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

请高手帮忙一下，谢谢~

May_may

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

weixiang1983

非常感谢~~

weixiang1983

呵呵，找到default.exl文件了，然后import file就可以导入进来，
对了，想再请问一下，如何写代码导入啊？可以把代码发过来吗？

robinsgl

I hope someone kindly send the code to share with us.

May_may

'#################################
'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文件
可以修改下把前面的选择文件本部分去掉