VBA 读取WORD表格中的内容并写入到EXCEL中

JC30年的业余程序员

已于 2022-05-04 10:25:08 修改

阅读量1w

点赞数 17

分类专栏： VBA+EXCEL 文章标签：经验分享算法数据结构

于 2020-09-28 14:27:20 首次发布

本文链接：https://blog.csdn.net/JPC27/article/details/108848797

版权

本文介绍如何使用VBA创建Word对象，打开Word文档，并遍历文档中的表格内容，将数据清洗后写入Excel。关键步骤包括建立Word对象、打开Word文档、遍历表格单元格以及应用WorksheetFunction.Clean()去除无效字符。

摘要由CSDN通过智能技术生成

很多时候，我们需要从WORD文档，特别是WORD表格中提取信息，进行分析处理后放入EXCEL表中作为输出。
下面的示例是本人编写且正确运行的某软件中的代码片断，对EXCE+VBA编程读取WORD表格内容进行了演示。

    Dim iFileName As String
    Dim mFileName As String
   
    Dim i, n, c, r As Integer
                     
    Dim mWord, mDoc As Object
    Dim mTable, mCell
    Dim S, S1, S2 As String
With Application.FileDialog(msoFileDialogFilePicker)
            .Title = "请选择【WORD勘察报告】"
            .Filters.Clear
            .Filters.Add "Word文档", "*.doc;*.docx"
            If .Show Then
                    iFileName = .SelectedItems(1)
            End If
    End With
    If iFileName = "False" Or Len(iFileName) = 0 Then Exit Sub
    Set mWord = CreateObject("Word.Application")
    Application.ScreenUpdating = False   ''WORD打开不要显示出来
    Set mDoc = mWord.Documents.Open(iFileName) ''一定要加上完整的路径
    If mDoc.tables.Count < 1 Then    ''至少需要有一个表
        MsgBox "文档中没有表格！", vbCritical
        GoTo err1
    End If
   n = 1   
   On Error Resume Next   
   For Each mTable In mDoc.tables ''定位到 分层统计表
   
      S = ""
      
      For c = 1 To mTable.Columns.Count
          mCell = mTable.cell