第一种:利用 Description 对象For intLoop = 1 to N
strText=DataTable.Value(...)
Set LinkDesc = Description.Create()
LinkDesc ("Text").Value = strText
Browser("").Page("").Link(LinkDesc).Click
DataTable.GetSheet("").SetNextRow
Next
第二种:描述性编程For intLoop = 1 to N
strText=DataTable.Value(...)
Browser("").Page("").Link("text:=" & strText).Click
DataTable.GetSheet("").SetNextRow
Next
第三种:利用SetToproperty方法(以sina为例)
Step1:录制
Browser("新浪首页").Page("新浪首页").Link("墨尔本北航热招营销硕士").click
Step2:欲点击其他新闻
Browser("新浪首页").Page("新浪首页").Link("北大私募基金/企业上市").Click
'点击北大...新闻
Browser("新浪首页").Page("新浪首页").Link("北大私募基金/企业上市").SetTOProperty"text","清华深圳创业板/私募班"
Browser("新浪首页").Page("新浪首页").Link("北大私募基金/企业上市").Click
'点击清华...新闻
Setp3:写循环语句
For intLoop = 1 to N
strText=DataTable.Value(...)
Browser("新浪首页").Page("新浪首页").Link("北大私募基金/企业上市").SetTOProperty"text","strText"
DataTable.GetSheet("").SetNextRow
Next
第四种:利用参数化对象的Text属性实现
Step1:录制
Browser("新浪首页").Page("新浪首页").Link("墨尔本北航热招营销硕士").click
Step2:参数化Text属性,见下图2,步骤省略
Step3:写循环或者设置Action run call properties为run on all rows即可