<SCRIPT LANGUAGE="JavaScript">
function CopyToExcel() 
{
holdtext.innerText =document.all("myTable").outerHTML
Copied = holdtext.createTextRange();
Copied.execCommand("Copy");
excelObj = new ActiveXObject("Excel.Application");
excelObj.Visible = true;
excelObj.WorkBooks.Add;
excelObj.ActiveSheet.Paste;
}
</SCRIPT>
<TEXTAREA ID="holdtext" STYLE="display:none;">
</TEXTAREA>
<table id=mytable>
<tr><td>1</td></tr>
<tr><td>2</td></tr>
<tr><td>3</td></tr>
<tr><td>4</td></tr>
</table>
<input type="button" value="转到Excel" onClick="CopyToExcel()" >

解决方案 »

  1.   

    <TABLE id=tb WIDTH=75% BORDER=1 CELLSPACING=1 CELLPADDING=1>
    <TR>
    <TD>01</TD>
    <TD>二</TD>
    <TD>三</TD>
    </TR>
    <TR>
    <TD rowspan=3>四</TD>
    <TD>五</TD>
    <TD>六</TD>
    </TR>
    <TR>
    <TD>七</TD>
    <TD>八</TD>
    </TR>
    <TR>
    <TD>九</TD>
    <TD>一○</TD>
    </TR>
    <TR>
    <TD>一一</TD>
    <TD>一二</TD>
    <TD>一三</TD>
    </TR>
    </TABLE>
    <INPUT type="button" value="Button" id=button1 name=button1 onclick="vbs:AutomateExcel">
    <SCRIPT LANGUAGE=vbs>sub AutomateExcel()
    set oXL = createobject("Excel.Application")
    set oWB = oXL.Workbooks.Add
    set oSheet = oWB.ActiveSheet
    hang = tb.rows.length
    lie = tb.rows(0).cells.length
    '前?行
    for i=0 to 1
    for j=0 to lie-1
    oSheet.Cells(i+1,j+1).NumberFormatLocal = "@"
    oSheet.Cells(i+1,j+1).value = tb.rows(i).cells(j).innerText
    next
    next
    '3行?始的中?行
    for  i=2 to hang-2
    j=1
    for each c in tb.rows(i).cells
    'msgbox  c.innerText 
     oSheet.Cells(i+1,j+1).value = c.innerText 
    j=j+1
    next
    next
    '最后行
    for j=0 to lie-1
    oSheet.Cells(hang,j+1).value = tb.rows(i).cells(j).innerText
    next
    oSheet.range("A2:A"& hang-1 ).merge
    oSheet.range("A2:A"& hang-1 ).value=tb.rows(1).cells(0).innerText
    oXL.Visible = true
    oXL.UserControl = true
    set oXL = nothing
    set oWB = nothing
    set oSheet = nothing

    end sub
    </SCRIPT >如果要控制excel的每个cell的格式,那么需要你去看看vba的相关资料。
      

  2.   

    如果客户端没有安装execl,一切都是白费