3044am姘稿埄(闆嗗洟)绉戞妧鏈夐檺鍏�鍙� - 鐧惧害鐧剧��

　　主要代码如下：

写查询字符串

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("

导出成功！点击下载：jftj.xlsx")
response.Write("")
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 '添加工作簿 ”时，会报内存不足请关闭相关进行之类的错误。