如何将网页中的表格导入到word文件中去？

我现在想将输出在网页中的表格（动态输出的）写入到word文件中去，我试了一下，能创建word文档,字符串也能够随便写进,但是如何将表格也完完整整的写进去呢,请高手指点!!! 问题点数：50、回复次数：10Top

1 楼liuxiaoyi666（MSMVP 小猪妹荣誉马甲之八卦兔子）回复于 2004-09-04 08:28:50 得分 5

word.application…………Top

2 楼huhanshan013（飞兵团将军）回复于 2004-09-04 08:33:59 得分 0

标记，跟着认真学习Top

3 楼liuxiaoyi666（MSMVP 小猪妹荣誉马甲之八卦兔子）回复于 2004-09-04 08:34:20 得分 5

<%@     Language=VBScript     %>      
  <%      
  Response.Buffer     =     True      
  Response.ContentType     =     "application/vnd.ms-word"      
  %>      
  <table     border="1">      
            <tr>      
                        <th>项目     A</th>      
                        <th>项目     B</th>      
                        <th>合计</th>      
                        <th>项目     C</th>      
                        <th>项目     D</th>      
                        <th>合计</th>      
            </tr>      
            <tr>      
                        <td     height="30"><%=Request.form("aa")%></td>      
                        <td>3</td>      
                        <td>5</td>      
                        <td>6</td>      
                        <td>7</td>      
                        <td><font     color="red">=sum(a2:e2)*100</font></td>      
            </tr>      
            <tr>      
                        <td>2</td>      
                        <td>1</td>      
                        <td     colspan="4"><font     color="red">=sum(a3:b3)+f2</font></td>      
            </tr>      
  </table>      
  Top

4 楼evilzydar（zydar）回复于 2004-09-04 13:58:10 得分 0

<meta   http-equiv='Content-Type'   content='application/vnd.ms-word'>Top

5 楼19az（相信我，没错的！）回复于 2004-09-06 12:11:17 得分 0

谁有详细的代码，贴山来吧  
  能实现将一个简单的表格插到word文档中即可  
  最好能举个例子，我在这里多谢了，即决立马结贴Top

6 楼aspczlover（你的骄傲...）回复于 2004-09-06 15:25:23 得分 40

<title>将浏览器表格导入到word</title>  
  <input   type="button"   name="out_word"   onclick="vbscript:buildDoc(data)"   value="导出到word"   class="notPrint">    
  <%  
  %>  
   
  <SCRIPT   LANGUAGE=VBScript>  
  <!--  
  Private   Sub   buildDoc(tbl)  
          Dim   objWordApp  
          Dim   objWordDoc  
          Dim   objParagraph  
          Dim   objRange  
          Dim   objTable  
          Dim   row,   col  
          Dim   i,   j  
   
          row   =   tbl.rows.length  
          col   =   tbl.rows.item(0).cells.length  
          Set   objWordApp   =   CreateObject("Word.Application")  
          Set   objWordDoc   =   objWordApp.Documents.Add  
          objWordApp.Visible   =   True  
          Set   objWordApp   =   Nothing  
           
          Set   objParagraph   =   objWordDoc.Paragraphs.Add  
          Set   objRange   =   objParagraph.Range  
          With   objRange  
                  .InsertBefore   "哈哈哈"  
                  .ParagraphFormat.Alignment   =   1  
                  .Bold   =   True  
  .Font.Name   =   "隶书"   //设定标题字体  
                  .Font.Size   =   15  
          End   With  
          Set   objRange   =   Nothing  
          Set   objParagraph   =   Nothing  
           
          Set   objParagraph   =   objWordDoc.Paragraphs.Add  
          Set   objRange   =   objParagraph.Range  
          objRange.InsertBefore   ("")  
          Set   objTable   =   objWordDoc.Tables.Add(objRange,   row,   col)  
          Set   objRange   =   Nothing  
          Set   objParagraph   =   Nothing  
           
          For   i   =   1   To   row  
                  For   j   =   1   To   col  
                          objTable.Cell(i,   j).Range.Text   =   tbl.rows.item(i-1).cells.item(j-1).innerText  
                  Next  
          Next  
          Set   objTable   =   Nothing  
          Set   objWordDoc   =   Nothing  
  End   Sub  
  //-->  
  </SCRIPT>  
  <table   id="data"   width="200"   border="1">  
      <tr>  
          <td>11</td>  
          <td>11</td>  
      </tr>  
      <tr>  
          <td>22</td>  
          <td>22</td>  
      </tr>  
      <tr>  
          <td>33</td>  
          <td>33</td>  
      </tr>  
      <tr>  
          <td>44　</td>  
          <td>44</td>  
      </tr>  
  </table>Top

7 楼devinjiang（老怪）回复于 2004-09-06 15:43:36 得分 0

同意aspczlover(执子之手...)Top

8 楼19az（相信我，没错的！）回复于 2004-09-06 16:38:38 得分 0

aspczlover(执子之手...)   ，你的代码，我试了一下，报以下错误：  
  ActiveX部件不能创建"word.Application".  
  是不是还需要什么组件啊？  
  请详细告知，谢谢！Top

9 楼aspczlover（你的骄傲...）回复于 2004-09-06 17:34:02 得分 0

浏览器－internet选项－安全－自定义安全级别－对没有标记为安全的activx控件初始化和运行改为“启用”Top

10 楼19az（相信我，没错的！）回复于 2004-09-06 17:53:37 得分 0

好了，问题已经解决  
  谢谢  
  Top

相关问题

• 表格
• word
• 项目
• 安全

• 帖主：19az
• liuxiaoyi666
• liuxiaoyi666
• aspczlover

• Web开发类图书