建议找些VBA编程的资料看看,如果安装了office,机器上会有一个VBA编程参考,OWCVBA(XX).CHM(文件名没有括号,一般XX=10或11)

解决方案 »

  1.   

    <html xmlns:o="urn:schemas-microsoft-com:office:office"
    xmlns:x="urn:schemas-microsoft-com:office:excel"
    xmlns="http://www.w3.org/TR/REC-html40"><head>
    <meta http-equiv=Content-Type content="text/html; charset=GB2312">
    <script>
    function out(){ try{
    var elTable = document.getElementById("out");
    var oRangeRef = document.body.createTextRange();
    oRangeRef.moveToElementText( elTable );
    oRangeRef.execCommand( "Copy" ); var oXL = new ActiveXObject("Excel.Application")
    var oWB = oXL.Workbooks.Add ;
    var oSheet = oWB.ActiveSheet ;
    oSheet.Paste();
    oSheet.Cells.NumberFormatLocal = "@";
    oXL.Visible = true;
    oSheet = null;
    oWB = null;
    appExcel = null; }catch(e){alert(e)}

    }</script>
    </head><body><table id ='out'>
     <tr>
      <td x:str bgcolor="#FF0000">00001</td>
      <td x:str>0002</td>
     </tr>
     <tr>
      <td height=18 align=right style='height:13.5pt' x:str>00001</td>
      <td align=right x:str>000002</td>
     </tr>
     <tr>
      <td x:str>0003</td>
      <td x:str>00003</td>
     </tr>
    </table>
    <INPUT type="button" value="Button" id=button1 name=button1 onclick="out()">
    </body>
    </html>