全國社科基金項目資料庫

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

運行這段代碼