asp excel导出类

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. %>