批量查询影响因子的VBA代码（此处设定的上限为50篇，运行前需要先将期刊名中的空格替换成+号）：
Sub infactor()
Dim jname, i, last
last = Range("A65536").End(xlUp).Row
For i = 2 To 51
  jname = Cells(i, 2)
  Set Doc = CreateObject("htmlfile")
  RefUrl = "http://www.medsci.cn/sci/ssci.asp"
  psd = "fullname=" & jname & "&impact_factor_b=&impact_factor_s=&rank=number_rank_b&Submit=%E6%88%91%E8%A6%81%E6%9F%A5%E8%AF%A2"
  With CreateObject("msxml2.xmlhttp")
    .Open "POST", "http://www.medsci.cn/sci/ssci.asp", False
    .setRequestHeader "Referer", RefUrl
    .setRequestHeader "CONTENT-TYPE", "application/x-www-form-urlencoded"
    .send (psd)
    Doc.body.innerhtml = .responsetext
    Set r = Doc.all.tags("table")(1).Rows
    a = r.Length - 1
    Cells(i, 3) = r(2).Cells(3).innertext
    Set r = Nothing
  End With
Next i
End Sub

特别有帮助！很棒！！

楼主辛苦！

这个影响因子是怎么得到的啊？

太好了，谢谢楼主。这个原始资料是在哪里找到的呢？