Excel中UFT中的VBSCRIPT

场景：在Excel工作表中有100个网页的URL

UFT应该遍历每一行，从Excel工作表中读取单元格数据（URL）

导航到每个URL并

导航后打印每个URL的当前网址

---

使用：

Browser（“bname”）.Page（“pname”）.GetROProperty（“URL”）

需要知道每个导航URL的“pname”。这需要人工干预，而且非常繁忙。是否有其他方法可以打印每个导航网页的当前URL？

您可以尝试以下方法-

对于从excel读取数据的第一步，可以使用dictionary对象或其他方法存储每个URL 然后你可以用-

a = "www.google.com" 'here you are need to parameterize each URL read from dictionary'
 For i = 1 to 100 'this can made dynamic till the count of rows'
   Set objIE = CreateObject("InternetExplorer.Application")
   objIE.Visible = True
   objIE.Navigate a
   wait(2) 'you can use wait/sync dynamically'
   newURL = Browser("creationtime:=0").page("title:=.*").GetROProperty("URL")
   Print newURL 'here you can change it to log it to textfile or excel'
   objIE.quit()
Next

---

这只是一个简单的想法，您可以根据需要选择更新/更改。

浏览器

对象只有一个

页面

对象，它只是组织对象存储库的一种方法。因此，您不需要知道所有的

pname

值。我建议您查找描述性编程-否则您需要将所有100个浏览器对象存储在存储库中才能识别它们