ASP導出數據到excel遇到的一些問題
一直用動易平臺的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遇到的一些問題