【软件自动化测试-QTP实战技能 16】==QTP_调用外部EXCEL数据替换DataTable中的数据

'Sheet1: The name or index of the sheet in the file that you want to import. Index values begin with
1.

'Action1: The name or index of the sheet in the Data Table that you want to replace with the
SheetSource. Index values begin with
1.



DataTable.ImportSheet "C:/JX/WorkSpace/test.xls","Sheet1","Action1"

Dim xl

Set xl = createobject("excel.application")

xl.Visible = true

xl.Workbooks.Open("C:/JX/WorkSpace/test.xls")

Set xl = nothing