一直用动易平台的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=3
xlWorkBook.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.movenext
LOOP
xlWorkBook.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 ‘添加工作簿 ”时，会报内存不足请关闭相关进行之类的错误。
本次记录完毕。
ASP导出数据到excel遇到的一些问题
原文地址：http://www.cnblogs.com/liujiekun/p/7808610.html