最新经济类SSCI目录及影响因子(THOMSON ISI)2015年7月发布，342种

相似文件 换一批

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

2016/1/18查到的第一手资料，希望对大家有帮助。

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏8 回帖

关键词：Thomson HOMS 影响因子 SSCI 经济类 影响因子 资料

批量查询影响因子的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

特别有帮助！很棒！！

楼主辛苦！

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

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

谢谢楼主，请问如何查询每年的最新版本呢？

谢谢楼主，请问如何查询每年的最新版本呢？