循环读取Word文件表格时VB.NET窗体卡顿无响应问题求助

问题根源 #

你的代码存在几个关键问题导致速度慢和UI冻结：

• 频繁跨进程调用Office COM对象：逐个访问Cell会产生大量跨进程交互，开销极高
• UI线程被阻塞：耗时的文件读取操作在UI线程执行，导致窗体无法响应
• 冗余对象访问：重复调用doc.ActiveWindow.Document，多了不必要的层级
• 潜在COM对象泄漏：未及时释放Word相关对象，导致内存占用增加

优化方案 #

1. 批量读取表格内容，减少COM调用 #

一次性读取整个表格的文本内容，再通过Word内置的分隔符拆分解析，替代逐个单元格访问：

• 单元格分隔符：Chr(7)
• 行分隔符：Chr(13) & Chr(7)

2. 后台线程执行耗时操作 #

用Task.Run将文件处理逻辑放到后台线程，避免阻塞UI线程；通过Invoke安全更新UI控件。

3. 简化对象访问与资源释放 #

• 直接使用doc.Tables替代doc.ActiveWindow.Document.Tables
• 只读打开文档减少锁定开销
• 用Marshal.ReleaseComObject及时释放COM对象，避免内存泄漏

优化后代码示例 #

Imports Microsoft.Office.Interop
Imports System.Runtime.InteropServices
Imports System.Threading.Tasks

Private Async Sub btnProcessFiles_Click(sender As Object, e As EventArgs) Handles btnProcessFiles.Click
    btnProcessFiles.Enabled = False
    Dim targetPath As String = FolderBrowserDialog1.SelectedPath
    Dim wordFiles As String() = IO.Directory.GetFiles(targetPath, "*.docx")
    Dim ListStr As New List(Of (String, String))

    Await Task.Run(Sub()
                       Dim wordApp As New Word.Application()
                       wordApp.Visible = False
                       wordApp.ScreenUpdating = False
                       wordApp.DisplayAlerts = Word.WdAlertLevel.wdAlertsNone

                       For Each filePath In wordFiles
                           Dim doc As Word.Document = Nothing
                           Try
                               ' 只读打开文档，提升速度并减少文件锁定
                               doc = wordApp.Documents.Open(FileName:=filePath, ConfirmConversions:=False, ReadOnly:=True)
                               Dim tableCount As Integer = doc.Tables.Count

                               For tableIndex = 1 To tableCount
                                   ' 跨线程更新UI状态
                                   Me.Invoke(Sub()
                                                 Label2.Text = $"Table {tableIndex} of {tableCount}"
                                             End Sub)

                                   Dim currentTable As Word.Table = doc.Tables(tableIndex)
                                   ' 一次性读取整个表格文本
                                   Dim fullTableText As String = currentTable.Range.Text
                                   ' 拆分所有行
                                   Dim tableRows As String() = fullTableText.Split({Chr(13) & Chr(7)}, StringSplitOptions.RemoveEmptyEntries)

                                   ' 跳过表头，从第2行开始解析（对应数组索引1）
                                   For rowIndex = 1 To tableRows.Length - 1
                                       Dim rowCells As String() = tableRows(rowIndex).Split({Chr(7)}, StringSplitOptions.RemoveEmptyEntries)
                                       If rowCells.Length >= 2 Then
                                           ' 去除单元格末尾的多余控制字符
                                           Dim cell1Content = rowCells(0).TrimEnd(Chr(7))
                                           Dim cell2Content = rowCells(1).TrimEnd(Chr(7))
                                           ListStr.Add((cell1Content, cell2Content))
                                       End If
                                   Next
                               Next
                           Finally
                               ' 确保文档关闭并释放COM对象
                               If doc IsNot Nothing Then
                                   doc.Close(SaveChanges:=False)
                                   Marshal.ReleaseComObject(doc)
                               End If
                           End Try
                       Next

                       ' 释放Word应用对象
                       wordApp.Quit()
                       Marshal.ReleaseComObject(wordApp)
                   End Sub)

    btnProcessFiles.Enabled = True
    MessageBox.Show("表格读取完成")
End Sub

额外优化建议 #

• 替代方案：如果不需要处理Word格式，使用OpenXML SDK代替Office Interop，无需安装Word，性能提升显著且无COM对象泄漏风险
• 进度反馈：添加进度条控件，实时更新处理进度
• 错误处理：增加异常捕获逻辑，避免单个文件出错导致整个流程终止

内容的提问来源于stack exchange，提问作者sp64