我之前也踩过类似COM跨进程操作的坑，你遇到的Dim wChartData = wChart.ChartData触发Excel崩溃，大概率是COM对象资源管理混乱或者实例冲突导致的，试试下面这些针对性的解决方案：

1. 复用Excel实例，避免频繁创建销毁 #

每次访问ChartData时，Word可能会自动启动新的Excel实例，反复创建销毁很容易引发资源泄漏。建议提前手动创建一个Excel实例并复用：

' 提前初始化Excel实例，关闭交互避免干扰
Dim excelApp As New Excel.Application()
excelApp.Visible = False
excelApp.DisplayAlerts = False
excelApp.AutomationSecurity = Microsoft.Office.Core.MsoAutomationSecurity.msoAutomationSecurityForceDisable

' 遍历Word文档形状的核心逻辑
For Each shape As Word.Shape In wDoc.Shapes
    If shape.HasChart Then
        Dim wChart As Word.Chart = shape.Chart
        Dim chartWorkbook As Excel.Workbook = Nothing
        Try
            ' 关联已有的Excel实例，避免Word自动新建实例
            wChart.ChartData.Activate(excelApp)
            chartWorkbook = wChart.ChartData.Workbook
            
            ' 在这里执行你的数据库数据更新逻辑
            ' 示例：更新第一个工作表的单元格数据
            ' chartWorkbook.Worksheets(1).Range("A2").Value = 新数据
            
            chartWorkbook.Close(SaveChanges:=True)
        Catch ex As Exception
            ' 捕获异常并记录，防止崩溃扩散
            Console.WriteLine($"处理图表出错: {ex.Message}")
            ' 如果出错，强制关闭未保存的工作簿
            chartWorkbook?.Close(SaveChanges:=False)
        Finally
            ' 严格按逆序释放COM对象，不能依赖GC自动回收
            If chartWorkbook IsNot Nothing Then
                Marshal.ReleaseComObject(chartWorkbook)
            End If
            Marshal.ReleaseComObject(wChart)
        End If
    End If
Next

' 最后销毁Excel实例
excelApp.Quit()
Marshal.ReleaseComObject(excelApp)

2. 严格控制COM对象释放顺序 #

COM对象的释放必须遵循创建逆序，且要确保每个对象都被显式释放：

• 先释放Workbook，再释放ChartData关联资源，最后释放Chart和Shape
• 必须使用Marshal.ReleaseComObject，不能简单将对象设为Nothing
• 把释放逻辑放在Finally块中，确保即使出错也能清理资源

3. 给COM对象留足初始化时间 #

对于复杂图表或大文档，COM对象初始化可能需要时间，在访问ChartData前可以加短暂延迟：

System.Threading.Thread.Sleep(300) ' 延迟300毫秒，可根据实际情况调整

4. 排查文档本身的问题 #

如果崩溃只发生在特定文档，可能是图表损坏或使用了不兼容的图表类型：

• 手动打开Word文档，双击图表确认能否正常加载Excel数据源
• 尝试重新创建图表，替换原文档中的问题图表

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