查询内页 PR 数据需要如下软件：parameter。官方地址：http://www.cleverstat.com/。我提供 Dropbox 备份下载。

启动软件后，第一步是导入网址，有两种方法：

1. 用 Extract URLs 功能，优点是方便，缺点是耗时较多，无用链接较多

2. 使用 sitemap.xml 里的数据，然后通过文本文件导入到 parameter，方法是：Url –> import

导入后，点击绿色的箭头，即可运行，得到每个页面的 PR 数据了。

运行结束后，可以 Project –> Export to CSV，然后在 Excel 里面进行操作，如编写 VBA 读取标题等。我给出一段很傻的代码供大家参考：

Sub test()
n = Worksheets(1).UsedRange.Rows.Count
For i = 2 To n
With CreateObject( “Msxml2.XMLHTTP” )
.Open “GET”, “http://” & Worksheets(1).Cells(i, 1), False
.Send
mainstr = .ResponseText
End With
a = InStr(1, mainstr, “<title>”, vbTextCompare)
b = InStr(a, mainstr, “</title>”, vbTextCompare)
Worksheets(1).Cells(i, 3) = Mid(mainstr, a + 7, b – a – 7)
Next i
End Sub