| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 344 人关注过本帖
标题:页面中的表格怎么才能导出一个真的.XLS的Excel的文件,请大家帮忙!
只看楼主 加入收藏
QQ273080973
Rank: 2
等 级:论坛游民
帖 子:14
专家分:39
注 册:2011-7-7
结帖率:100%
收藏
已结贴  问题点数:20 回复次数:3 
页面中的表格怎么才能导出一个真的.XLS的Excel的文件,请大家帮忙!
我的页面代码:
Excel.rar (1.28 KB)


代码如下:
程序代码:
<!--#include file="Inc/conn.asp"-->
<table border="1" cellpadding="3" cellspacing="1">
  <tr style="font-weight:bold;" align="center">
    <td>单号</td>
    <td>仓库</td>
    <td>经手人</td>
    <td>日期</td>
    <td>商品编号</td>
    <td>商品名称</td>
    <td>规格型号</td>
    <td>大类</td>
    <td>小类</td>
    <td>单位</td>
    <td>产地</td>
    <td>成本价</td>
    <td>零售价</td>
    <td>商品条码</td>
    <td>商品仓库</td>
    <td>库存数量</td>
    <td>盘点数量</td>
    <td>备注</td>
  </tr>
<%
  dim Number
  Number=request("Number")
  sql="select * from Inventory_SmallClass where Inventory_Number = '"&Number&"' order by ID asc"
  set rs=server.CreateObject("adodb.recordset")
  rs.open sql,conn,1,1
  if rs.bof and rs.eof then
  response.Write("<table width=100% border=0>")
  response.Write("<tr>")
  response.Write("<td style=font-size:13px;color:#FF0000 height=100>对不起,没有找到您需要的记录!</td>")
  response.Write("</tr>")
  response.Write("</table>")
  else
  do while not rs.eof

 
  sqlt="select * from Inventory_BigClass where Inventory_Number = '"&rs("Inventory_Number")&"'"
  set rst=server.CreateObject("adodb.recordset")
  rst.open sqlt,conn,1,1
  %>
  <tr>
    <td><%=rst("Inventory_Number")%></td>
    <td><%=rst("Warehouse")%></td>
    <td><%=rst("Head")%></td>
    <td><%=rst("Date")%></td>
   
    <td><%=rs("Coding")%></td>
    <td><%=rs("Name")%></td>
    <td><%=rs("Specification")%></td>
    <td><%=rs("BigClass")%></td>
    <td><%=rs("SmallClass")%></td>
    <td><%=rs("Unit")%></td>
    <td><%=rs("Origin")%></td>
    <td><%=rs("Cost")%></td>
    <td><%=rs("Retail")%></td>
    <td><%=rs("Barcode")%></td>
    <td><%=rs("Warehouse")%></td>
    <td><%=rs("Currently_Quantity")%></td>
    <td><%=rs("Inventory_Quantity")%></td>
    <td><%=rs("Remarks")%></td>
  </tr>
<%
  rs.movenext
  loop
  end if
  Response.ContentType="application/vnd.ms-excel"
  Response.AddHeader "content-disposition","attachment filename=订单表.xls"
  rs.close
  set rs=nothing
  conn.close
  set conn=nothing
  %>
</table>

使用Response.ContentType="application/vnd.ms-excel"是可以将页面以excel的方式保存,但是发现不是真正的.XLS文件,因为不支持再导入到数据库中。

请问怎么才能保存为一个支持导入数据库的.XLS的Excel呢?
搜索更多相关主题的帖子: 表格 Excel 
2011-07-14 15:44
dzt0001
Rank: 13Rank: 13Rank: 13Rank: 13
等 级:蒙面侠
威 望:5
帖 子:1281
专家分:4998
注 册:2005-10-12
收藏
得分:20 
用这种方式导出的Excel其实仍是HTML,用Excel打了开后,用“文件”菜单-“另存为”,保存类型选“Microsoft Office Excel 工作簿”,就成为真正的Excel文档了。

----我怎能在别人的苦难面前转过脸去----
2011-07-14 17:28
QQ273080973
Rank: 2
等 级:论坛游民
帖 子:14
专家分:39
注 册:2011-7-7
收藏
得分:0 
没有其它办法可以实现了吗?
2011-07-14 18:07
QQ273080973
Rank: 2
等 级:论坛游民
帖 子:14
专家分:39
注 册:2011-7-7
收藏
得分:0 
如果用Excel自带的“Web 查询”输入网址,再将表格导入的话,这样就可以了呢。
2011-07-14 18:11
快速回复:页面中的表格怎么才能导出一个真的.XLS的Excel的文件,请大家帮忙!
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.053613 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved