全国社科基金项目数据库

A. 国家级和部级人文社科基金/项目都有哪些

国家级的社科类有，国家社科基金、艺术基金
部级的人文社科项目除了教育部有很多，比如说文化部、统战部等等，要具体咨询

B. 2020年国家社科基金项目结果什么时候公布呀

你想知道今年的国家社科基金项目结果什么时候公布？这个应该是国家政府的事情啊，我们普通老百姓怎么可能提前知道哇？到时候公布了你就知道啦。

C. 2009年国家社会科学基金项目名单2009年度国家社科基金项目名单

昨天正式公布的，请查阅，祝你金榜题名！
http://blog.sina.com.cn/s/blog_5fee6e2a0100dwxq.html

或者http://bbs.club.sina.com.cn/thread-336-0/table-53251-6528.html

D. 今年的国家社科基金项目出来了

《2018年国家社科基金项目课题指南》公布了23个学科共1696个条目，与往年略有不同的是，今年课题指南中的具体条目以星号*标识出来了，而有些方向性的条目也做了进一步的说明。

E. 2009年国家社会科学基金项目名单2009年度国家自然科学基金项目名单

今天网站上可以查到了,但是人太多,多数登不上,你可以过两天上

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

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

运行这段代码