桂花社科基金项目

A. 教育部人文社科基金和国家社科基金西部项目哪个更有分量

国家社科基金西部项目不过是国基中的一个类别而已，课题级别仍是国家级。教育部人文社科规划项目就不是国家级课题，而是部级，虽然级别也搞过省社科基金项目，但往往省部级项目很多学校是一视同仁的，这就是不公平的地方。单论级别，自然是国基高了，这不是学校认定，因为本来就如此。但按分量来算，也有一部分学校将教育部人文社科规划项目认定为国家级，虽然它不是。

B. 两年5项国家社科基金重点项目，什么水平

社科基金重点项目是现阶段国家社科基金中层次最高、资助力度最大、权威性最强的项目类别，包括应用对策研究、重大基础理论研究和跨学科研究三类。
重点支持一批弘扬民族精神、传承民族文化、对学术发展和学科建设起关键作用的重大基础理论和文化研究课题，着力推出具有原创性或开拓性、具有重要文化传承价值的经典之作。
从2011年起设立跨学科研究重大项目，旨在鼓励通过不同学科的视角、知识、方法和人员的交叉融合，研究解决单一学科难以解决的复杂性、前沿性、综合性问题。

C. 社科基金项目成果形式如果为专著，其中的论文可否发表

可以。你提取出来一部分就行。

D. 国家社科基金项目申报数据导出，

Sub mydata()

Dim Html As Object, XmlHttp As Object, URL$, i%, arr(), t

Dim m%, n%, k%

Set Html = CreateObject("htmlfile")

Set XmlHttp = CreateObject("MSXML2.XmlHttp")

Application.ScreenUpdating = False

t = Timer

'If Not IsEmpty(ActiveSheet.UsedRange) Then ActiveSheet.UsedRange.ClearContents

'[A1:T1] = Array("项目批准号", "项目类别 ", "学科分类 ", "项目名称 " _

, "立项时间 ", "项目负责人 ", "专业职务 ", "工作单位 ", "单位类别", _

"所在省区市", "所属系统", "成果名称", "成果形式", "成果等级", _

"结项时间", "结项证书号", "出版社", "出版时间", "作者", "获奖情况")

For i = 1 To 2425 '这里抓了第1页到2425页

DoEvents

URL = "http://fz.people.com.cn/skygb/sk/index.php/Index/seach?&p=" & i

With XmlHttp

.Open "GET", URL, False

.Send

Html.body.innerhtml = .ResponseText

End With

Set tb = Html.all.tags("table")(2).Rows

For m = 1 To tb.Length - 1

k = k + 1

ReDim Preserve arr(1 To 20, 1 To k)

For n = 0 To tb(m).Cells.Length - 1

arr(n + 1, k) = tb(m).Cells(n).innertext

Next n

Next m

If i Mod 250 = 0 Then

Set Rng = Cells(Rows.Count, 1).End(3)(2)

Rng.Resize(k, 20) = WorksheetFunction.Transpose(arr)

Erase arr: k = 0

End If

Next i

If k > 0 Then

Set Rng = Cells(Rows.Count, 1).End(3)(2)

Rng.Resize(k, 20) = WorksheetFunction.Transpose(arr)

End If

Application.ScreenUpdating = True

MsgBox "耗时" & Timer - t & "秒!"

End Sub

运行这段代码