欧美性受xxxxxx黑人xyx性爽_国产精品后入内射日本在线观看_91日韩视频在线观看_亚洲一级免费在线观看_成人在线免费高清视频_亚洲色图欧美自拍_国精产品一区一区三区视频_中文字幕第22页_日韩欧美在线免费观看视频_日本xxx免费_91制片厂免费观看_黄色网在线视频

　　主要代碼如下：

寫查詢字符串

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 = "比賽獲獎積分"

//循環(huán)輸出下面的數據

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、如果不配置標識這個玩意兒，在執(zhí)行“Set xlWorkBook=xlApplication.Workbooks.Add '添加工作簿 ”時，會報內存不足請關閉相關進行之類的錯誤。