0

运行我的代码时出现以下错误。哪个正在使用 Excel DNA

System.AccessViolationException 未处理消息:尝试读取或写入受保护的内存。这通常表明其他内存已损坏。

第一次通过它工作正常,第二次它抛出上述错误。

这是我的代码:

Public Shared Function RangeExists(ByVal sName As String) As ExcelReference 

        Dim rRng As ExcelReference 

        Try 
             'This is where the error occurs
             rRng = XlCall.Excel(XlCall.xlfEvaluate, sName)  
         Catch 
             Try 
                 rRng = XlCall.Excel(XlCall.xlfEvaluate, "!" & sName) 
             Catch 
                 rRng = Nothing 
             End Try 
         End Try 

        Return rRng 

    End Function

我实际上在 UDF 中有类似的代码,它工作正常,从来没有问题。

4

0 回答 0