桂花社科基金項目

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

運行這段代碼