一直用动易平台的ASP做新闻发布网站，直到现在才接触导出数据到Excel的问题，目的在于公司要统计各部门的投稿量，要做这么个东西，实现起来是挺简单的，但是第一次做，还是费了一些功夫的，特此记录一下
主要代码如下：
写查询字符串
rsAll为查询字符串
rsAll.open sqlAll,conn,1,3
Set xlApplication =server.CreateObject( "Excel.Application") '调用excel对象
xlApplication.Visible = false '无需打开excel Set xlWorkBook=xlApplication.Workbooks.Add '添加工作簿 j=1//定义一些表格样式
xlWorkBook.Worksheets(1).Columns(1).ColumnWidth=30 xlWorkBook.Worksheets(1).Columns(1).HorizontalAlignment=3 xlWorkBook.Worksheets(1).Columns(2).ColumnWidth=30 xlWorkBook.Worksheets(1).Columns(2).HorizontalAlignment=3 xlWorkBook.Worksheets(1).Columns(3).ColumnWidth=30 xlWorkBook.Worksheets(1).Columns(3).HorizontalAlignment=3xlWorkBook.Worksheets(1).Range( "A2 ").font.bold=true '粗体
xlWorkBook.Worksheets(1).Range( "B2 ").font.bold=true '粗体 xlWorkBook.Worksheets(1).Range( "C2 ").font.bold=true '粗体 xlWorkBook.Worksheets(1).Range( "A1 ").HorizontalAlignment=3 '水平对齐 xlWorkBook.Worksheets(1).Range( "A1 ").VerticalAlignment=3 '垂直对齐//写excel表头了
xlWorkBook.Worksheets(1).Cells(1,1).Value = "集团新闻中心各记者站积分统计"
xlWorkBook.Worksheets(1).Cells(2,1).Value = "记者站名称" xlWorkBook.Worksheets(1).Cells(2,2).Value = "要闻文章数量" xlWorkBook.Worksheets(1).Cells(2,3).Value = "要闻文章积分"xlWorkBook.Worksheets(1).Cells(2,4).Value = "综合新闻文章数量"xlWorkBook.Worksheets(1).Cells(2,5).Value = "综合新闻文章积分"xlWorkBook.Worksheets(1).Cells(2,6).Value = "其它栏目文章数量"xlWorkBook.Worksheets(1).Cells(2,7).Value = "其它栏目文章数量"xlWorkBook.Worksheets(1).Cells(2,8).Value = "微信公众号数量"xlWorkBook.Worksheets(1).Cells(2,9).Value = "微信公众号积分"xlWorkBook.Worksheets(1).Cells(2,10).Value = "报刊杂志数量"xlWorkBook.Worksheets(1).Cells(2,11).Value = "报刊杂志积分"xlWorkBook.Worksheets(1).Cells(2,12).Value = "网络电视台数量"xlWorkBook.Worksheets(1).Cells(2,13).Value = "网络电视台积分"xlWorkBook.Worksheets(1).Cells(2,14).Value = "比赛获奖数量"xlWorkBook.Worksheets(1).Cells(2,15).Value = "比赛获奖积分"//循环输出下面的数据
DO WHILE NOT rsAll.EOF
xlWorkBook.Worksheets(1).Cells(2+j,1).Value = rsAll("CopyFrom")xlWorkBook.Worksheets(1).Cells(2+j,2).Value = rsAll("YWNo")xlWorkBook.Worksheets(1).Cells(2+j,3).Value = rsAll("YWFS")xlWorkBook.Worksheets(1).Cells(2+j,4).Value = rsAll("ZHNo")xlWorkBook.Worksheets(1).Cells(2+j,5).Value = rsAll("ZHFS")xlWorkBook.Worksheets(1).Cells(2+j,6).Value = rsAll("QTNo")xlWorkBook.Worksheets(1).Cells(2+j,7).Value = rsAll("QTFS")xlWorkBook.Worksheets(1).Cells(2+j,8).Value = rsAll("weixinno")xlWorkBook.Worksheets(1).Cells(2+j,9).Value = rsAll("weixinfs")xlWorkBook.Worksheets(1).Cells(2+j,10).Value = rsAll("baozishu")xlWorkBook.Worksheets(1).Cells(2+j,11).Value = rsAll("baozifenshu")xlWorkBook.Worksheets(1).Cells(2+j,12).Value = rsAll("shipinshu")xlWorkBook.Worksheets(1).Cells(2+j,13).Value = rsAll("shipinfs")xlWorkBook.Worksheets(1).Cells(2+j,14).Value = rsAll("zuopinshu")xlWorkBook.Worksheets(1).Cells(2+j,15).Value = rsAll("zuopinfenshu") j=j+1 rsALL.movenextLOOPxlWorkBook.SaveAs tfile //保存文件Set xlWorksheet = Nothing //释放工作表
xlApplication.Quit //释放对象 //生成链接，供用户下载response.write("<center><table width='700' align='center'><tr><td>导出成功！点击下载：<a href='jftj.xlsx'>jftj.xlsx</a></td></tr></table></center>")response.Write("<script><alert>Excel导出成功，请到列表下方点击下载！</alert></script>")END IF
程序写完了，那么要从服务器上运行，还需要给服务器安装word组件，安装word的过程不再赘述，安装上word还要给IIS赋予使用word组件中excel组件的使用权限，方法是win+R，运行框里输入dcomcnfg，然后选择“组件服务”--》计算机--》我的电脑--》DCOM配置，找到Microsoft Excel Application，然后右键--》属性--》安全--》启动和激活权限--》自定义，然后选择编辑，然后添加Everyone，然后给everyone赋予权限，然后选择“标识”选项卡，改成交互式用户。
上述安装配置excel组件的原因是，1、如果不配置“启动和激活”权限，在server.CreateObject( "Excel.Application")时，服务器会报错，没有权限。2、如果不配置标识这个玩意儿，在执行“Set xlWorkBook=xlApplication.Workbooks.Add '添加工作簿 ”时，会报内存不足请关闭相关进行之类的错误。
本次记录完毕。