其实是变通一下，呵呵，但是很有用！
Public Function onCalcFormular(ByVal formularStr As String) As String
Dim tmpSheet As New FarPoint.Win.Spread.SheetView
If formularStr.Trim <> "" Then
tmpSheet.Cells(0, 0).Formula = formularStr
Return IIf(tmpSheet.Cells(0, 0).Text = "#NAME?", "", tmpSheet.Cells(0, 0).Text)
Else
Return ""
End If
End Function
关于葡萄城
赋能开发者！葡萄城是专业的集开发工具、商业智能解决方案、低代码开发平台于一身的软件和服务提供商，为超过 75% 的全球财富 500 强企业提供服务。葡萄城专注控件软件领域30年，希望通过模块化的开发控件、灵活的低代码应用开发平台等一系列开发工具、解决方案和服务，帮助开发者快速响应复杂多变的业务需求，最大程度地发挥开发者的才智和潜能，让开发者的 IT 人生更从容更美好。
了解详情，请访问葡萄城官网。
