重庆社科基金规划项目申报系统

❶ 怎样申请有关科技项目政府补贴

正常的步骤是这样的：政策-指南-企业组织申报（可行性分析等）-答辩-下达补贴-验收。
指南及政策，可经常上 中国政府扶持资金申报网 即可。如需申报辅导，可以联系申报辅导中心。不过现在快放假了。

❷ 请问科技项目申报工作的一般流程是怎样的

一、获取信息。

二、项目可行性初步判定。

三、先了解项目指南，把要准备的资料列好清单，召集相关部门开会协调工作内容和时间。

四、准备资料。

五、关注相关网站公示。

六、申报成功--立项--开启动会--跟科研和财务部门沟通工作细节，及时划归财务数据和科研进展中期报告等。

八、项目验收-科研和财务准备审计材料。

九、结题-奖励相关人员-归档资料。

拓展知识：

项目申报是指政府机关针对企业或其他研究单位作出的一系列优惠政策，企业或相关研究单位再根据政府的政策进行编写申报文件然后根据相关申报要求和流程进行申报。

可申请的项目包括国家省市资助计划体系及各部委资助计划比如863计划，973计划，科技型中小企业创新基金，中小企业发展专项资金，企业科技新技术，国家社科基金，国家自科基金，省社科基金、省自科基金等不同级别的项目，申请时难度不同，申请人的资格和条件也各有不同。

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

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

运行这段代码