A. 國家社科基金項目申報數據導出，
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
運行這段代碼
B. 承擔了國家社科子項目可以申報一般國家社科項目嗎
近日，教育部社科司發布了2020年度教育部人文社會科學研究一般項目申報工作的通知，不限項且沒有課題指南。
2020年度國家社會科學基金項目申報工作通知尚未公布，預計將繼續實行限項申報。
為統籌做好2020年度國家社科基金年度項目和教育部人文社會科學研究一般項目申報工作，現對相關工作做出安排如下：
1.第一階段（9月5日前）：明確意向。各單位對具有申報資格的人員進行摸底清查，針對性進行組織動員，填寫《2020年度國家社科基金年度項目、教育部一般項目申報意向調查表》，確定本單位教育部一般項目預評審方案並上報文科辦（電子版發送到工作郵箱）；
2.第二階段（9月11日-9月18日）：專家論證。各單位組織同行專家進行預評審及修改工作，申請者根據專家預評建議修改申報書；
3.第三階段（9月19日-9月23日）：系統申報。申請人在「教育部人文社會科學研究管理平台項目申報系統」上傳提交《申請評審書》定稿電子版，完成網上申報；
4.第四階段（9月24日）：提交材料。申請人提交紙質版一式兩份（A4紙雙面列印）按照要求簽名後報送文科辦。
理工科學院及其它單位的教師可直接發送《調查表》至工作郵箱，可以參與相關社科類學科的申請書論證會。
承擔過我校國家社科基金校內培育項目的教師必須申報。
C. 問高人，我09年申請到的國家社科基金，現在想加一個子課題項目，分撥一部分經費給其他單位。如何辦理
呵呵，有句行話這樣講的
你不買二手車沒人知道你沒錢
你一買二手車所有的人都知道你沒錢了
三思吧 二手車質量絕對嚇死你
9月
D. 主持國家社科基金重點項目子課題評職稱的時候算不算
具體問題具體分析，每個學校認定不同。這種級別的課題總經費大約在20多萬，子課題以5個計算，扣去總經費中預留的一部分，平均每個約3-4萬的經費。最後職稱的認定應該是以你總課題經費計算的。
我導師有一項國家社科重大項目，國家撥80萬，學校配套80萬，總經費160萬，擬定分10個子課題，每個子課題6萬（後續大概會再追加6萬）。這樣算下來，部分課題組成員最後轉教授就是以課題經費認定的，我們學校似乎就是這樣
E. 國家社科基金成果形式是否可以更改
國家社科基金成果形式是可以更改的。參照《國家社會科學基金管理辦法》的中規定條件實施。
F. 國家社科基金項目可不可以拿來作挑戰杯請解釋，並發挑戰杯具體規則，謝謝！！！！
完全可以，而且大家一般都這樣做，省力省錢！
還能那獎項的
G. 國家社科基金組申請組成成員需要同一個單位嗎
863項目是不是困難的國家自然科學基金大得多。一般863和973項目是多所大學合作，或由一個研究小組也申請下來，但相當多的資金，數以千萬計的身邊。國家自然科學基金是比較容易申請的條件不那麼苛刻，更多的基金中，以幾十萬的數以萬計。主持人863和973項目，成為首席科學家863或973，首席科學家。國家自然科學基金是副教授或以上職稱，只要你可以申請，沒有科學家稱號。