运行我的代码时出现以下错误。哪个正在使用 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 中有类似的代码,它工作正常,从来没有问题。