asp excel导出类

Biegral 2018/12/24 22:03:42 2679

  1. 导出Excel报表的类asp学习网 来自:leadbbs 作者：一千零一个愿望 
  2. 类文件Excel.asp 
  4. <% 
  5. ''/**************************************/ 
  6. ''/* written by yzcangel */ 
  7. ''/* version : v1.0 */ 
  8. ''/* createdata:2005-09-01 */ 
  9. ''/* lastmodifydate:2005-09-01 */ 
  10. ''/* Eamil:yzcangel@sohu.com */ 
  11. ''/* QQ:80214600 */ 
  12. ''/**************************************/ 
  13. ''类开始 
  14. Class Cls_Excel 
  15. ''声明常量、变量 
  16. Private objRs 
  17. Private objExcelApp 
  18. Private objExcelBook 
  19. Private Conn 
  20. Private Sql 
  21. Private Title 
  22. Private FieldName 
  23. Private FieldValue 
  24. Private FilePath 
  25. Private FileName 
  26. Private Col 
  27. Private Row 
  28. ''Class_Initialize 类的初始化 
  29. Private Sub Class_Initialize() 
  30. Row = 1 ''设定生成的Excel默认起始行 
  31. Col = 1 ''设定生成的Excel默认起始列 
  32. End Sub 
  33. ''ReportConn得到数据库连接对象 
  34. Public Property Let ReportConn(ByVal objConn) 
  35. Set Conn = objConn 
  36. End Property 
  37. ''ReportSql得到SQL字符串 
  38. Public Property Let ReportSql(ByVal strSql) 
  39. Sql = strSql 
  40. End Property 
  41. ''ReportTitle得到所要生成报表的标题 
  42. Public Property Let ReportTitle(ByVal strTitle) 
  43. Title = strTitle 
  44. End Property 
  45. ''RsFieldName得到所要生成报表的列名称 
  46. Public Property Let RsFieldName(ByVal strName) 
  47. FieldName = Split(strName,"||") 
  48. End Property 
  49. ''RsFieldValue得到所要生成报表的列值的数据库标识字段 
  50. Public Property Let RsFieldValue(ByVal strValue) 
  51. FieldValue = Split(strValue,"||") 
  52. End Property 
  53. ''SaveFilePath得到Excel报表的保存路径 
  54. Public Property Let SaveFilePath(ByVal strFilePath) 
  55. FilePath = strFilePath 
  56. End Property 
  57. ''SaveFileName得到Excel报表的保存文件名 
  58. Public Property Let SaveFileName(ByVal strFileName) 
  59. FileName = strFileName 
  60. End Property 
  61. ''ColumnOffset得到Excel报表默认起始列 
  62. Public Property Let ColumnOffset(ByVal ColOff) 
  63. If ColOff > 0 then 
  64. Col = ColOff 
  65. Else 
  66. Col = 1 
  67. End If 
  68. End Property 
  69. ''RowOffset得到Excel报表默认起始行 
  70. Public Property Let RowOffset(ByVal RowOff) 
  71. If RowOff > 0 then 
  72. Row = RowOff 
  73. Else 
  74. Row = 1 
  75. End If 
  76. End Property 
  77. ''生成报表 
  78. Sub Worksheet() 
  79. Dim iCol,iRow,Num 
  80. iCol = Col 
  81. iRow = Row 
  82. Num = 1 
  83. Call DBRs() 
  84. Call ExcelApp() 
  85. Set objExcelBook = objExcelApp.Workbooks.Add 
  86. ''写Excel标题 
  87. ''-------------------------------------------------------- 
  88. objExcelBook.WorkSheets(1).Cells(iRow,iCol).Value = Title 
  89. ''-------------------------------------------------------- 
  90. ''写Excel各列名 
  91. ''-------------------------------------------------------- 
  92. iRow = Row + 1 
  93. objExcelBook.WorkSheets(1).Cells(iRow,iCol).Value = "序号" 
  94. iColiCol = iCol + 1 
  95. For i = 0 to Ubound(FieldName) 
  96. objExcelBook.WorkSheets(1).Cells(iRow,iCol).Value = FieldName(i) 
  97. iColiCol = iCol + 1 
  98. Next 
  99. ''-------------------------------------------------------- 
  100. ''写Excel各列值 
  101. ''-------------------------------------------------------- 
  102. iRow = Row + 2 
  103. Do While Not objRS.EOF 
  104. iCol = Col 
  105. objExcelBook.WorkSheets(1).Cells(iRow,iCol).Value = Num 
  106. iColiCol = iCol + 1 
  107. For i = 0 to Ubound(FieldValue) 
  108. If IsNull(objRS(FieldValue(i))) then 
  109. objExcelBook.WorkSheets(1).Cells(iRow,iCol).Value = "" 
  110. Else 
  111. objExcelBook.WorkSheets(1).Cells(iRow,iCol).Value = objRS(FieldValue(i)) 
  112. End If 
  113. iColiCol = iCol + 1 
  114. Next 
  115. objRS.MoveNext 
  116. iRowiRow = iRow + 1 
  117. NumNum = Num + 1 
  118. Loop 
  119. ''-------------------------------------------------------- 
  120. Call SaveWorksheet() 
  121. End Sub 
  122. ''创建Adodb.Recordset对象 
  123. Sub DBRs() 
  124. If IsObject(objRs) = True Then Exit Sub 
  125. Set objRs = Server.CreateObject("Adodb.Recordset") 
  126. objRs.Open Sql,Conn,1,1 
  127. If Err.Number > 0 Then 
  128. Response.End 
  129. End If 
  130. End Sub 
  131. ''创建Excel.Application对象 
  132. Sub ExcelApp() 
  133. If IsObject(objExcelApp) = True Then Exit Sub 
  134. Set objExcelApp = Server.CreateObject("Excel.Application") 
  135. objExcelApp.Application.Visible = True 
  136. If Err.Number > 0 Then 
  137. Response.End 
  138. End If 
  139. End Sub 
  140. ''保存Excel报表 
  141. Sub SaveWorksheet() 
  142. objExcelbook.SaveAs FilePath & FileName & ".xls" 
  143. If Err.Number = 0 Then 
  144. Call Message("导出数据成功！") 
  145. Else 
  146. Call Message("导出数据失败！") 
  147. End If 
  148. End Sub 
  149. ''信息提示 
  150. Sub Message(msg) 
  151. Response.Write("<script language=''JavaScript''>") 
  152. Response.Write("alert(''"&msg&"'');") 
  153. Response.Write("</script>") 
  154. Response.End 
  155. End Sub 
  156. ''Class_Terminate 类注销 
  157. Private Sub Class_Terminate() 
  158. objExcelApp.Application.Quit 
  159. Set objExcelBook = Nothing 
  160. Set objExcelApp = Nothing 
  161. objRs.Close 
  162. Set objRs = Nothing 
  163. End Sub 
  164. ''类结束 
  165. End Class 
  166. %> 
  168. 示例文件test.asp 
  170. <!--#include file="Lib/conn.asp"--> 
  171. <!--#include file="Excel.asp"--> 
  172. <% 
  173. Dim MyExcel 
  174. Set MyExcel = new Cls_Excel 
  175. With MyExcel 
  176. .ReportConn = conn 
  177. .ReportSql = "SELECT b.pm AS A_PM, b.dqccl AS A_Num, b.dqccl * 100 / SUM(a.dqccl) AS A_Percent FROM dbo.V_DQTJWHP a CROSS JOIN dbo.V_DQTJWHP b GROUP BY b.pm, b.dqccl order by A_Num desc" 
  178. .ReportTitle = "MyExcel 报表" 
  179. .RsFieldName = "品名||数量||百分比" 
  180. .RsFieldValue = "A_PM||A_Num||A_Percent" 
  181. .SaveFilePath = "d:/" 
  182. .SaveFileName = "Excel" 
  183. .ColumnOffset = 1 
  184. .RowOffset = 1 
  185. End With 
  186. MyExcel.Worksheet() 
  187. MyExcel = Null 
  188. Set MyExcel = Nothing 
  189. %>
本文转载:CSDN博客

阅读排行

分类

归档