谁能给个生成excl的范例

panner 2009-02-24 05:27:27

如题

...全文

58 2 打赏收藏转发到动态举报

写回复

用AI写文章

2 条回复

切换为时间正序

请发表友善的回复…

发表回复

lzp4881 2009-02-25

打赏
举报

<%
Dim xmlStr
xmlStr = "<table border='1' cellspacing='0' cellpadding='0'>"
xmlStr = xmlStr & "<tr height='30'><th colspan='10'>配件申领明细表</th></tr>"
xmlStr = xmlStr & "<tr height='30'>"
xmlStr = xmlStr & "<td>单位名称</td><td>配件名称</td><td>规格型号</td><td>领出数量</td><td>单价</td><td>金额</td>"
xmlStr = xmlStr & "</tr>"

hjStr=hjStr & "<tr>"
hjStr=hjStr & "<td>合计</td>"
hjStr=hjStr & "<td>234</td>"
hjStr=hjStr & "<td>234</td>"
hjStr=hjStr & "<td>dfg</td>"
hjStr=hjStr & "<td></td>"
hjStr=hjStr & "<td>dfg</td>"
hjStr=hjStr & "</tr>"

xmlStr = xmlStr & hjStr & dataStr& "</table>"

Response.ContentType="application/vnd.ms-excel"
Response.AddHeader "content-disposition","attachment;filename=apply.xls"
Response.Write xmlStr
%>