召回原因分类汇总统计自动化（第二部分）

本文链接：https://blog.youkuaiyun.com/weixin_44081794/article/details/127489686

该博客介绍了一个VBA宏代码，用于读取Word文档中的召回原因信息，并将其导入到Excel表格中进行后续分析。通过遍历Word表格，定位到召回原因所在列，然后提取并写入Excel。此过程对于处理批量召回信息的统计和分析非常有用。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

将召回原因作为行标题添加到汇总表。
在汇总表里添加一张新表，用于接收从word文件里读取所有的召回原因的信息。

分析“召回原因”在表中的位置和结构，提取的思路如下：遍历word的Table确定“召回原因”信息所在的Table定位“召回原因”所处的列遍历定位的Table和列获取所有信息将信息写入新添加的表。

Public Sub RecallInfo(filename As Range)
Dim rng
Dim WD As Object, WT, filename
Dim myPath As String, fn, i, j, k, n As Long, colNum As Integer
Set WD = CreateObject(“Word.Application”)
r = filename.Row
On Error Resume Next
Application.ScreenUpdating = False
Sheet2.Cells.Clear
Path = Sheet3.TextBox1.Text & “”
fn = Path & filename.Text & “.doc*”
filename = Dir(fn)
Filepath = Path & filename

If filename <> “” Then
Set myDoc = WD.Documents.Open(Filepath)
Counter = 0
For Each WT In myDoc.Tables
For i = 1 To WT.Rows.Count
n = n + 1
For j = 1 To WT.Columns.Count
If Left(WT.cell(i, j).Range.Text, 4) = “召回原因” Then
colNum = j
Exit For
End If
Next
Sheet2.Cells(n, 1) = WorksheetFunction.Clean(WT.cell(i, colNum).Range.Text)
Next
Next
Set WT = Nothing
myDoc.Close

End If
WD.Quit
Set myDoc = Nothing
Set WD = Nothing
Sheet3.Activate
End Sub
程序执行后读取内容到excel表，之后就可以对EXCEL表的信息进行处理和统计分析。
在这里插入图片描述
未完待续，下一篇介绍如何处理获取的信息，获得统计汇总给的信息。