word表格数据提取到excel

yc-prc

闻启学 发表于 2015-10-2 08:12
笨方法 复制粘贴

测试了一下，拷贝过来的都是乱码！！！

闻启学

yc-prc 发表于 2015-10-4 13:45
测试了一下，拷贝过来的都是乱码！！！

啊 不会吧 你怎样复制的  我测试好好的

huang1314wei

1. Sub text()
   
2.     Dim wd As New Word.Application
   
3.     Dim arr(1 To 39, 1 To 14), i%, j%
   
4.     On Error Resume Next
   
5.     With CreateObject(ThisWorkbook.Path & "" & "1.doc")
   
6.         For i = 1 To 39
   
7.            For j = 1 To 14
   
8.               arr(i, j) = Application.Clean(.tables(3).cell(i, j).Range.text)
   
9.            Next
   
10.         Next
    
11.     End With
    
12.     Cells.Clear
    
13.     Range("A1").Resize(38, 14) = arr
    
14.     wd.Quit
    
15. End Sub
    

复制代码

huang1314wei

看你说只需要导入表格3，其实可以把所有的表格数据都导过来，加个循环就好了
以下只是导入表格3的数据

新建文件夹.rar (23.42 KB, 下载次数: 153)

2015-10-4 16:06 上传

点击文件名下载附件

yc-prc

闻启学 发表于 2015-10-4 14:52
啊 不会吧 你怎样复制的  我测试好好的

下了一个2007兼容包就好了！呵呵！我想自动以A1单元格为起始点，不然每次在运行程序前，都要用鼠标定位A1单元格，如果不这么做，粘贴的单元格一会儿在上，一会儿在右！忘记怎么搞了？

yc-prc

huang1314wei 发表于 2015-10-4 16:07
看你说只需要导入表格3，其实可以把所有的表格数据都导过来，加个循环就好了
以下只是导入表格3的数据

打开出错！

huang1314wei

yc-prc 发表于 2015-10-4 17:44
打开出错！

引用 里面需要勾选

yc-prc

huang1314wei 发表于 2015-10-4 17:47
引用 里面需要勾选

好了！引用了一下11.0的，就OK了！~这个真好！就是要的这种效果。也是我所想要的代码。再来研究一下，应该就可以解决问题了！非常感谢哦！

yc-prc

huang1314wei 发表于 2015-10-4 16:07
看你说只需要导入表格3，其实可以把所有的表格数据都导过来，加个循环就好了
以下只是导入表格3的数据

Sub text()
    Dim wd As New Word.Application
    Dim arr(1 To 39, 1 To 14), i As Integer, j As Integer
    On Error Resume Next
    With CreateObject(ThisWorkbook.Path & "\" & "1.doc")
        For i = 1 To 39
           For j = 1 To 14
              arr(i, j) = Application.Clean(.tables(3).cell(i, j).Range.text)                          
               '请教，红色字体的这部分比较难以理解？  个人认为，应该是将word表格内数据赋值到变量数组
               '难理解的是    Application.Clean()   完全不懂！
                                                     .tables(3)   word中第三个表吗？   
                                                     .cell()    word表格中的单元格？   
                                                     .Range.text      text是单元格中的值？那这个Range是什么意思呢？
           Next
        Next
    End With
    Cells.Clear                   ’这里是EXCEL里的吧？
    Range("A1").Resize(38, 14) = arr
    Columns().AutoFit
    wd.Quit
End Sub


这个程序一点问题都没有，就是红色字体的部分不能理解！！！


谢谢回复！！！

huang1314wei

yc-prc 发表于 2015-10-4 21:00
Sub text()
    Dim wd As New Word.Application
    Dim arr(1 To 39, 1 To 14), i As Integer, j As  ...

你理解的都没有错，就是将word表格中的数据赋值给数组，然后一次性写入excel,其中的application.clean是引用工作表函数clean目的是清除一切非打印字符，因为word表格中每个单元格数据当中可能有回车换行符，这个如果不清除，写入excel就会有无关字符，比如一个大圆点，你可以试下，不加application.clean是什么效果

.tables(3)表示word当中从上往下，从左往右第3个表格,tables是word当中表格的集合
cell是table当中的一个对象，用 Cell(row, column) 或 Cells(index)可返回 Cell对象，其中 row 为行号，column 为列号，index 为索引序号
range.text是word VBA当中最常用的一个属性，相当于excel当中的value属性，返回或设置指定的区域或所选内容中的文本

cells.clear是清除工作表的内容，以便把数组赋值给单元格