Option ExplicitSub test()Dim a As Stringa = "1+2"Debug.Print Application.ExecuteExcel4Macro(a)Debug.Print Application.Evaluate(a)End Sub
试试上面的代码你就知道了,Application.ExecuteExcel4Macro 或者 Application.Evaluate 都可以达到效果!