UC知道关于asp后台导成Excel问题
来源：百度知道 编辑：UC知道 时间：2024/06/24 07:01:58
小弟asp菜鸟，搞不明白这个问题，请大家帮忙解决，小弟万分感激！
代码如下：
=================================页面1
<!--#include file="conn.asp"-->
<form id="form1" name="form1" method="post" action="2.asp?Op=DownLoad">
<p><%
set rs=server.createobject("adodb.recordset")
sql="select * from [User]"
rs.open sql,conn,1,1
%></p>
<table width="100%" border="0">
<%
do while not rs.eof
%> <tr>
<td><%=rs("UserName")%></td>
</tr>
<%
rs.movenext
loop
%>
</table>
<p> </p>
<p>
<input type="submit" name="Submit" value="将数据导成Excel格式" />
</p>
</form>
=====================================页面2
代码如下：
=================================页面1
<!--#include file="conn.asp"-->
<form id="form1" name="form1" method="post" action="2.asp?Op=DownLoad">
<p><%
set rs=server.createobject("adodb.recordset")
sql="select * from [User]"
rs.open sql,conn,1,1
%></p>
<table width="100%" border="0">
<%
do while not rs.eof
%> <tr>
<td><%=rs("UserName")%></td>
</tr>
<%
rs.movenext
loop
%>
</table>
<p> </p>
<p>
<input type="submit" name="Submit" value="将数据导成Excel格式" />
</p>
</form>
=====================================页面2
首先要新建一个模板XLS,把框架打好,接着再用程序打开这个文件,把内容加进去后再另存为新的文件就可以了.下面是代码演示,里面有的我也不明白是怎么回事,我也是COPY别人的,我知道的地方都有注释.
set objExcelApp = CreateObject("Excel.Application")
objExcelApp.WorkBooks.Open(Server.MapPath("\工资表\emptyTable.xls"))'这句为打开模板文件:emptyTable.xls.
set objExcelBook = objExcelApp.ActiveWorkBook
set objExcelSheets = objExcelBook.Worksheets
set objExcelSheet = objExcelBook.Sheets(1)
objExcelSheet.Range("A1").Value = "众为网络"&chkYear&"年"&chkMonth&"月工资发放表"'A1格的内容为******发放表
'也就是可以用objExcelSheet.Range("A1").Value=***这样的形式来为每个单元格赋值,其中"A1"可以为变量,可以用循环来操作
XLS_i=3
Set Rs=Conn.Execute("Select * From Wages Where [Year]="&chkYear&" And [Month]="&chkMonth)
Do WHile Not Rs.Eof
objExcelSheet.Range("A"&XLS_i).Value = Rs(3)
objExcelSheet.Range("B"&XLS_i).Value = Rs(4)
objExcelShee