求用javascrip 模仿手动选中网页上一个table，然后copy,再粘贴到excel里的代码？

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<TITLE> New Document </TITLE>
</HEAD><BODY id="mybody">
<TABLE id=tb WIDTH=75% BORDER=1 CELLSPACING=1 CELLPADDING=1>
<TR>
<TD>一</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>
<p>&nbsp;</p>
<table width="100%" border="2" cellspacing="0" cellpadding="0">
  <tr> 
    <td>1</td>
    <td>1</td>
    <td>1</td>
    <td>1</td>
    <td>000011</td>
  </tr>
  <tr> 
    <td>1</td>
    <td>1</td>
    <td>1</td>
    <td>1</td>
    <td>1</td>
  </tr>
  <tr> 
    <td>1</td>
    <td>1</td>
    <td colspan="2" rowspan="5">1</td>
    <td>1</td>
  </tr>
  <tr> 
    <td>1</td>
    <td>1</td>
    <td>1</td>
  </tr>
  <tr> 
    <td>1</td>
    <td>1</td>
    <td>1</td>
  </tr>
  <tr> 
    <td>1</td>
    <td>1</td>
    <td>1</td>
  </tr>
  <tr> 
    <td>1</td>
    <td rowspan="5">1</td>
    <td>1</td>
  </tr>
  <tr> 
    <td><table width="100%" border="1" cellspacing="0" cellpadding="0">
        <tr>
          <td>1</td>
          <td>2</td>
          <td>3</td>
          <td>4</td>
          <td>5</td>
        </tr>
      </table></td>
    <td>1</td>
    <td>1</td>
    <td>1</td>
  </tr>
  <tr> 
    <td>1</td>
    <td>1</td>
    <td>1</td>
    <td>1</td>
  </tr>
  <tr> 
    <td>1</td>
    <td>1</td>
    <td>1</td>
    <td>1</td>
  </tr>
  <tr> 
    <td>1</td>
    <td>1</td>
    <td>000011</td>
    <td>&nbsp;</td>
  </tr>
  <tr> 
    <td>000011</td>
    <td>1</td>
    <td>1</td>
    <td>1</td>
    <td>1</td>
  </tr>
  <tr> 
    <td>1</td>
    <td>1</td>
    <td>1</td>
    <td>1</td>
    <td>000011</td>
  </tr>
  <tr> 
    <td>1</td>
    <td>1</td>
    <td>1</td>
    <td>1</td>
    <td>1</td>
  </tr>
  <tr> 
    <td>1</td>
    <td>000011</td>
    <td>1</td>
    <td>1</td>
    <td>1</td>
  </tr>
  <tr> 
    <td>1</td>
    <td>000011</td>
    <td>1</td>
    <td>1</td>
    <td>1</td>
  </tr>
  <tr> 
    <td>1</td>
    <td>1</td>
    <td colspan="2" rowspan="4" bgcolor="#FFCC00">1</td>
    <td>1</td>
  </tr>
  <tr> 
    <td>1</td>
    <td>1</td>
    <td>1</td>
  </tr>
  <tr> 
    <td height="93" bgcolor="#00CC33">1</td>
    <td bgcolor="#00CC33">1</td>
    <td>1</td>
  </tr>
  <tr> 
    <td bgcolor="#00CC33">000011</td>
    <td bgcolor="#00CC33">1</td>
    <td>1</td>
  </tr>
  <tr> 
    <td bgcolor="#00CC33">1</td>
    <td bgcolor="#00CC33">1</td>
    <td bgcolor="#00CC33">1</td>
    <td>1</td>
    <td>1</td>
  </tr>
  <tr> 
    <td bgcolor="#00CC33">1</td>
    <td bgcolor="#00CC33">1</td>
    <td bgcolor="#00CC33">1</td>
    <td>000011</td>
    <td>1</td>
  </tr>
  <tr> 
    <td bgcolor="#00CC33">1</td>
    <td bgcolor="#00CC33">1</td>
    <td bgcolor="#00CC33">1</td>
    <td>1</td>
    <td>1</td>
  </tr>
  <tr> 
    <td>1</td>
    <td>1</td>
    <td>1</td>
    <td>1</td>
    <td>000011</td>
  </tr>
  <tr> 
    <td>1</td>
    <td>1</td>
    <td>1</td>
    <td>1</td>
    <td>1</td>
  </tr>
  <tr> 
    <td>1</td>
    <td colspan="4" rowspan="10">1</td>
  </tr>
  <tr> 
    <td>1</td>
  </tr>
  <tr> 
    <td>000011</td>
  </tr>
  <tr> 
    <td>1</td>
  </tr>
  <tr> 
    <td>1</td>
  </tr>
  <tr> 
    <td>1</td>
  </tr>
  <tr> 
    <td>1</td>
  </tr>
  <tr> 
    <td>1</td>
  </tr>
  <tr> 
    <td>1</td>
    <td>1</td>
    <td>1</td>
    <td>1</td>
    <td>000011</td>
  </tr>
  <tr> 
    <td>1</td>
    <td>1</td>
    <td>000011</td>
    <td>1</td>
    <td>1</td>
  </tr>
  <tr> 
    <td>1</td>
    <td>1</td>
    <td>1</td>
    <td>000011</td>
    <td>1</td>
  </tr>
  <tr> 
    <td bgcolor="#FF0000">1</td>
    <td bgcolor="#FF0000">1</td>
    <td>1</td>
    <td>1</td>
    <td>1</td>
  </tr>
  <tr> 
    <td bgcolor="#FF0000">1</td>
    <td bgcolor="#FF0000">1</td>
    <td>000011</td>
    <td>1</td>
    <td>1</td>
  </tr>
  <tr> 
    <td bgcolor="#FF0000">1</td>
    <td bgcolor="#FF0000">1</td>
    <td>1</td>
    <td>1</td>
    <td>000011</td>
  </tr>
  <tr> 
    <td bgcolor="#FF0000">1</td>
    <td bgcolor="#FF0000">1</td>
    <td>1</td>
    <td>1</td>
    <td>1</td>
  </tr>
  <tr> 
    <td bgcolor="#FF0000">1</td>
    <td bgcolor="#FF0000">1</td>
    <td>000011</td>
    <td>1</td>
    <td>1</td>
  </tr>
  <tr> 
    <td bgcolor="#FF0000">1</td>
    <td bgcolor="#FF0000">1</td>
    <td>1</td>
    <td>1</td>
    <td>1</td>
  </tr>
  <tr> 
    <td bgcolor="#FF0000">000011</td>
    <td bgcolor="#FF0000">1</td>
    <td>1</td>
    <td>1</td>
    <td>1</td>
  </tr>
  <tr> 
    <td>&nbsp;</td>
    <td>000011</td>
    <td bgcolor="#CC0000">1</td>
    <td bgcolor="#CC0000">1</td>
    <td>&nbsp;</td>
  </tr>
  <tr> 
    <td>1</td>
    <td>000011</td>
    <td bgcolor="#CC0000">1</td>
    <td bgcolor="#CC0000">1</td>
    <td>1</td>
  </tr>
  <tr> 
    <td>1</td>
    <td>1</td>
    <td bgcolor="#CC0000">1</td>
    <td bgcolor="#CC0000">1</td>
    <td>1</td>
  </tr>
  <tr> 
    <td>1</td>
    <td>1</td>
    <td bgcolor="#CC0000">1</td>
    <td bgcolor="#CC0000">1</td>
    <td>1</td>
  </tr>
  <tr> 
    <td>1</td>
    <td>1</td>
    <td bgcolor="#CC0000">1</td>
    <td bgcolor="#CC0000">1</td>
    <td>1</td>
  </tr>
  <tr> 
    <td>1</td>
    <td>1</td>
    <td bgcolor="#CC0000">1</td>
    <td bgcolor="#CC0000">1</td>
    <td>1</td>
  </tr>
  <tr> 
    <td>1</td>
    <td>1</td>
    <td>1</td>
    <td>1</td>
    <td>1</td>
  </tr>
  <tr> 
    <td>1</td>
    <td>0000111</td>
    <td>1</td>
    <td>1</td>
    <td>1</td>
  </tr>
  <tr> 
    <td>1</td>
    <td>000011</td>
    <td>1</td>
    <td>1</td>
    <td>1</td>
  </tr>
  <tr>
    <td>0000110000111</td>
    <td>0000111</td>
    <td>0000111</td>
    <td>0000111</td>
    <td>000011</td>
  </tr>
</table>
<p> 
  <INPUT type="button" value="Button" id=button1 name=button1 onclick="vbs:AutomateExcel">
</p>
</BODY>
</HTML>
<SCRIPT LANGUAGE=vbs> sub AutomateExcel() strCopy = document.selection.createRange().text

If strCopy = "" Then
strCopy = mybody.innerHTML
End If Set objIE = CreateObject("InternetExplorer.Application")
objIE.Navigate("about:blank")
objIE.document.parentwindow.clipboardData.SetData "text", strCopy
objIE.Quit set oXL = createobject("Excel.Application")
set oWB = oXL.Workbooks.Add
set oSheet = oWB.ActiveSheet
oSheet.Paste oXL.Visible = true
oXL.UserControl = true
set oXL = nothing
set oWB = nothing
set oSheet = nothing

end sub
</SCRIPT>
选择部分，粘贴部分的文字。不选择，输入所有的html

解决方案 »

  1.   

    这样：）<table id="tb">
    <tr>
    <td>1</td>
    <td>2</td>
    <td>3</td>
    </tr>
    <tr>
    <td>4</td>
    <td>5</td>
    <td>6</td>
    </tr>
    </table><script language="JavaScript">
    <!--//拷贝
    var elTable = document.getElementById("tb");
    var oRangeRef = document.body.createTextRange();
    oRangeRef.moveToElementText( elTable );
    oRangeRef.execCommand( "Copy" );//粘贴
    var appExcel = new ActiveXObject( "Excel.Application" );
    appExcel.Visible = true;
    appExcel.Workbooks.Add().Worksheets.Item(1).Paste();
    appExcel = null;//-->
    </script>