怎样按表格的格式倒出excel文件到客户端

<SCRIPT LANGUAGE="JScript">
function importExcel()
{
var hwnd=window.open('','','');
hwnd.document.write("<object classid='clsid:0002E510-0000-0000-C000-000000000046' id='Spreadsheet' codebase='msowc.cab' width='100%' height='100%'><param name='HTMLURL' value='"+window.location.pathname+"'><param name='DataType' value='HTMLURL'><param name='AutoFit' value='0'><param name='DisplayColHeaders' value='-1'><param name='DisplayGridlines' value='-1'><param name='DisplayHorizontalScrollBar' value='-1'><param name='DisplayRowHeaders' value='-1'><param name='DisplayTitleBar' value='-1'><param name='DisplayToolbar' value='-1'><param name='DisplayVerticalScrollBar' value='-1'><param name='EnableAutoCalculate' value='-1'><param name='EnableEvents' value='-1'><param name='MoveAfterReturn' value='-1'><param name='MoveAfterReturnDirection' value='0'><param name='RightToLeft' value='0'><param name='ViewableRange' value='1:65536'></object>");
}
</script>

解决方案 »

免费领取超大流量手机卡，每月29元包185G流量+100分钟通话, 中国电信官方发货

能不能给我个例子,我就是要把从数据库里面按条件查询得到的数据倒入excel表中,而且是按原来表格的格式
手头没有什么具体例子，临时拿个报表作示范：
<HTML>
<HEAD>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"></HEAD>
<BODY bgcolor="#ffffff">
<TABLE WIDTH=100% BORDER=0 CELLSPACING=1 CELLPADDING=1 bgcolor="#000000">
  <TR bgcolor="#006699" align="center">
    <TD height="10"><font color="#ffffff" >订单编号</font></TD>
    <TD height="10"><font color="#ffffff" >支付流水号</font></TD>
    <TD height="10"><font color="#ffffff" >姓名</font></TD>
  </TR>
  <TR align="center" bgcolor="#ffffff">
    <td valign=top> C0408220026 </td>
    <td valign=top> 20040822530023 </td>
    <td valign=top> 李文卫 </td>
  </TR>
  <TR align="center" bgcolor="#ffffff">
    <td valign=top> B0408211056 </td>
    <td valign=top> 20040821529569 </td>
    <td valign=top> 陈思奇 </td>
  </TR>
  <TR align="center" bgcolor="#ffffff">
    <td valign=top> B0408211056 </td>
    <td valign=top> 20040821529569 </td>
    <td valign=top> 何仲鑫 </td>
  </TR>
  <TR align="center" bgcolor="#ffffff">
    <td valign=top> B0408211056 </td>
    <td valign=top> 20040821529569 </td>
    <td valign=top> 黄汝军 </td>
  </TR>
  <TR align="center" bgcolor="#ffffff">
    <td valign=top> B0408211056 </td>
    <td valign=top> 20040821529569 </td>
    <td valign=top> 马若瑜 </td>
  </TR>
  <TR align="center" bgcolor="#ffffff">
    <td valign=top> B0408211056 </td>
    <td valign=top> 20040821529569 </td>
    <td valign=top> 杨金成 </td>
  </TR>
  <TR align="center" bgcolor="#ffffff">
    <td valign=top> B0408211056 </td>
    <td valign=top> 20040821529569 </td>
    <td valign=top> 邓伟 </td>
  </TR>
  <TR align="center" bgcolor="#ffffff">
    <td valign=top> B0408211056 </td>
    <td valign=top> 20040821529569 </td>
    <td valign=top> 洪梅 </td>
  </TR>
  <TR align="center" bgcolor="#ffffff">
    <td valign=top> B0408211056 </td>
    <td valign=top> 20040821529569 </td>
    <td valign=top> 黄永琪 </td>
  </TR>
  <TR align="center" bgcolor="#ffffff">
    <td valign=top> B0408211056 </td>
    <td valign=top> 20040821529569 </td>
    <td valign=top> 汪贞辉 </td>
  </TR>
  <TR align="center" bgcolor="#ffffff">
    <td valign=top> B0408211056 </td>
    <td valign=top> 20040821529569 </td>
    <td valign=top> 周新维 </td>
  </TR>
  <TR align="center" bgcolor="#ffffff">
    <td valign=top> B0408211056 </td>
    <td valign=top> 20040821529569 </td>
    <td valign=top> 何善通 </td>
  </TR>
  <TR align="center" bgcolor="#ffffff">
    <td valign=top> B0408211056 </td>
    <td valign=top> 20040821529569 </td>
    <td valign=top> 黄朝婷 </td>
  </TR>
</TABLE>
<INPUT id=button1 type=button value="Excel" onclick="importExcel()">
<SCRIPT LANGUAGE="JScript">
function importExcel()
{
var hwnd=window.open('','','');
hwnd.document.write("<object classid='clsid:0002E510-0000-0000-C000-000000000046' id='Spreadsheet' codebase='msowc.cab' width='100%' height='100%'><param name='HTMLURL' value='"+window.location.pathname+"'><param name='DataType' value='HTMLURL'><param name='AutoFit' value='0'><param name='DisplayColHeaders' value='-1'><param name='DisplayGridlines' value='-1'><param name='DisplayHorizontalScrollBar' value='-1'><param name='DisplayRowHeaders' value='-1'><param name='DisplayTitleBar' value='-1'><param name='DisplayToolbar' value='-1'><param name='DisplayVerticalScrollBar' value='-1'><param name='EnableAutoCalculate' value='-1'><param name='EnableEvents' value='-1'><param name='MoveAfterReturn' value='-1'><param name='MoveAfterReturnDirection' value='0'><param name='RightToLeft' value='0'><param name='ViewableRange' value='1:65536'></object>");
}
</script>
</BODY>
</HTML>
新开了页面生成excel，工具栏中可直接保存为excel文件在本地打开
能否控制所生成的excel的某个单元格的格式？比如以TEXT格式显示？谢谢！
'导出为Excel存储
sub ExportToExcel(Param)
if not window.confirm("导出为Excel文件吗？" & chr(13) & chr(10) & "提示:导出为Excel文件必须将IE本地安全级别设置为默认级别或者把自定义" & chr(13) & chr(10) & "          级别里第二个选项设置为禁用,否则Excel文件将直接保存到C盘目录下") then
Exit sub
end if

if not isObject(EXPORT_OBJECT) then
document.body.insertAdjacentHTML "afterBegin","<OBJECT style='display:none' classid=clsid:0002E510-0000-0000-C000-000000000046 id=EXPORT_OBJECT></Object>"
end if

                  dim webToExcelobj '这个是page页面导入的，替换成表格
set webToExcelobj = document.frames("MainFrame")
for i = 0 to webToExcelobj.document.all.length - 1
if webToExcelobj.document.all(i).tagName = "HTML" then
WebToExcel webToExcelobj.document.all(i).outerHTML
Exit for
end if
next
end sub sub WebToExcel(htmlString)
On Error Resume next
dim fileName
fileName = ExcelDescript

if Trim(fileName) = "" then
fileName = "HtmlToExcel"
end if

fileName = fileName & "_" & Report_ID
fileName = fileName & "_"  & FormatDateTime(now, vbShortDate) & ""

if not isObject(EXPORT_OBJECT) then
document.body.insertAdjacentHTML "afterBegin","<OBJECT style='display:none' classid=clsid:0002E510-0000-0000-C000-000000000046 id=EXPORT_OBJECT></Object>"
end if

if isObject(EXPORT_OBJECT) then
EXPORT_OBJECT.DataType = "HTMLData"
EXPORT_OBJECT.HTMLData = htmlString
EXPORT_OBJECT.ActiveSheet.Export "C:\" & fileName & ".xls", 0
if Err.Number = 0 then
alert( "导出成功!")
end if
else
msgbox "导出为Excel文件失败，请确定已安装Excel2000(或更高版本)."
end if
end sub