关于用将网页表格输出到excel上的一个问题？急，在线等待100分

<TABLE border=1 id="srctb">
<TR><TD rowspan=2>asdasd</TD><TD>asdf</TD><TD>asdf</TD><TD>asdf</TD></TR>
<TR><TD>asdf</TD><TD>adf</TD><TD>asdf</TD></TR>
<TR><TD colspan=3>dfff</TD><TD>sdf</TD></TR>
</TABLE>
<object classid="clsid:0002E510-0000-0000-C000-000000000046" id="Spreadsheet1"  codebase="" width="100%" height="1400">  
</object><SCRIPT LANGUAGE="JavaScript">
<!--
function showExcelbyTB(tb,title){
var s_head="<html xmlns:x=\"urn:schemas-microsoft-com:office:excel\" xmlns=\"http://www.w3.org/TR/REC-html40\">"
+"<head><style type=\"text/css\">"
+"<!--"
+"tr {mso-height-source:auto;}"
+"td {white-space:nowrap;}"
+".wcC24FAB9 {white-space:nowrap;font-family:宋体;mso-number-format:General;font-size:auto;font-weight:auto;font-style:auto;text-decoration:auto;mso-background-source:auto;mso-pattern:auto;mso-color-source:auto;text-align:general;vertical-align:bottom;border-top:none;border-left:none;border-right:none;border-bottom:none;mso-protection:locked;}"
+".wcCF5FAB9 {white-space:nowrap;font-family:宋体;mso-number-format:General;font-size:auto;font-weight:auto;font-style:auto;text-decoration:auto;mso-background-source:auto;mso-pattern:auto;mso-color-source:auto;text-align:general;vertical-align:bottom;border-top:none;border-left:none;border-right:none;border-bottom:none;mso-protection:unlocked;}"
+"-->"
+"</style></head><body>"
+"<!--[if gte mso 9]>"
+"<xml>"
+"<x:ExcelWorkbook>"
+"<x:ExcelWorksheets>"
+"<x:ExcelWorksheet>"
+"<x:OWCVersion>9.0.0.2710</x:OWCVersion>"
+"<x:Label Style='border-top:solid .5pt silver;border-left:solid .5pt silver;   order-right:solid .5pt silver;border-bottom:solid .5pt silver'>"
+"<x:Caption>"+ title +"</x:Caption>"
+"</x:Label>"
+"<x:Name>Sheet1</x:Name>"
+"<x:WorksheetOptions>"
+"<x:Selected/>"
+"<x:Height>7620</x:Height>"
+"<x:Width>15240</x:Width>"
+"<x:TopRowVisible>0</x:TopRowVisible>"
+"<x:LeftColumnVisible>0</x:LeftColumnVisible>"
+"<x:ProtectContents>False</x:ProtectContents>"
+"<x:DefaultRowHeight>210</x:DefaultRowHeight>"
+"<x:StandardWidth>2389</x:StandardWidth>"
+"</x:WorksheetOptions>"
+"</x:ExcelWorksheet>"
+"</x:ExcelWorksheets>"
+"<x:SpreadsheetAutoFit/>"
+"<x:MaxHeight>100%</x:MaxHeight>"
+"<x:MaxWidth>100%</x:MaxWidth>"
+"</x:ExcelWorkbook>"
+"</xml><![endif]-->";
//s_head+=eval("document.all(\""+tb+"\").outerHTML");
var obj = eval("document.all(\""+tb+"\")");
s_head+=obj.outerHTML;

s_head+="</body></html>";
return s_head;

}
Spreadsheet1.HTMLData=showExcelbyTB("srctb","for test");
//-->
</SCRIPT>