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，首席科学家。国家自然科学基金是副教授或以上职称，只要你可以申请，没有科学家称号。