<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()" >
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()" >
<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的相关资料。