如何从Visio加载项中读取Excel单元格的字符串值

错误原因 #

你遇到的异常主要由以下几个代码缺陷导致：

• 未校验用户交互的取消操作：文件选择框、区域选择框点击取消后，后续代码直接访问空对象抛出COM异常
• 单元格索引逻辑冗余：选中区域的第一个单元格可直接通过rng.Cells(1,1)获取，无需通过工作表行号列号二次索引，减少COM对象访问链路
• 混合使用弱类型与强类型声明Excel对象：XlApp声明为Object导致反射调用开销和类型转换异常
• 未正确释放COM对象：Excel进程残留会导致后续文件访问、对象调用异常

修复后完整代码 #

注意使用前需要引入System.Runtime.InteropServices命名空间，否则Marshal类无法识别

Imports Excel = Microsoft.Office.Interop.Excel

Sub GetExcelCellValue()
    Dim XlApp As Excel.Application = Nothing
    Dim XlWrkbook As Excel.Workbook = Nothing
    Dim rng As Excel.Range = Nothing
    Dim docPath As String = Application.ActiveDocument.Path
    Dim FirstValue2 As String = String.Empty

    Try
        XlApp = New Excel.Application()
        ' 处理文件选择逻辑，增加取消判断
        Using fileDialog = XlApp.FileDialog(3) ' msoFileDialogFilePicker = 3
            fileDialog.Filters.Clear()
            fileDialog.Filters.Add("Excel Files", "*.xls, *.xlsx, *.xlsm")
            fileDialog.InitialFileName = docPath
            ' 用户点击取消直接退出
            If fileDialog.Show() <> 1 Then Exit Sub
            XlWrkbook = XlApp.Workbooks.Open(fileDialog.SelectedItems(1))
        End Using

        XlApp.Visible = True
        ' 处理区域选择逻辑，增加取消判断
        rng = TryCast(XlApp.InputBox("请选中目标单元格区域", "选择区域", Type:=8), Excel.Range)
        If rng Is Nothing Then Exit Sub

        ' 直接取选中区域第一个单元格值，无需多余索引
        FirstValue2 = Convert.ToString(rng.Cells(1, 1).Value2)
        MsgBox("选中区域第一个单元格值为：" & FirstValue2)

        ' 此处可添加将值写入Visio形状的逻辑

    Catch ex As Exception
        MsgBox("操作失败：" & ex.Message)
    Finally
        ' 强制释放所有COM对象，避免Excel残留进程
        If rng IsNot Nothing Then Marshal.ReleaseComObject(rng)
        If XlWrkbook IsNot Nothing Then
            XlWrkbook.Close(SaveChanges:=False)
            Marshal.ReleaseComObject(XlWrkbook)
        End If
        If XlApp IsNot Nothing Then
            XlApp.Quit()
            Marshal.ReleaseComObject(XlApp)
        End If
    End Try
End Sub

关键优化说明 #

• 所有交互步骤增加取消判断，避免空对象访问异常
• 直接访问选中区域的Cells(1,1)属性，减少COM对象调用链路降低异常概率
• 新增Try Catch捕获所有操作异常，避免程序直接崩溃
• Finally块强制释放所有COM对象，确保Excel进程正常退出，不会锁文件或导致后续调用异常
• 统一使用强类型声明Excel对象，避免反射调用相关的TargetInvocationException异常

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