关于长于254字符的计算式结果问题？

lm3312

我编辑以下自定义函数，用以计算长于254字符的计算式，但MSScriptControl在WINDOWS10以上版本中不再安装，以致无法调用MSScriptControl来实现这个目的，请问能否使用其他方法来计算长于254字符的计算式，或者提供MSScriptControl在WIN10或WIN11中安装，来实现计算。



Function XXX(JSGS)
    Dim sc As Object
    Dim JSJG As Variant
    On Error Resume Next
    Set sc = CreateObject("MSScriptControl.ScriptControl")
    sc.Language = "vbscript"
    JSJG = sc.Eval(JSGS)
    Set sc = Nothing
    XXX = JSJG
End Function

ykcbf1100

试试这个，不是我写的，据说32位和64位通用。

1. Function eval(aa)
   
2.     eval = ""
   
3.     On Error GoTo ERR00 '''防止报错
   
4.     Set oDom = CreateObject("htmlfile")
   
5.     Set oW = oDom.ParentWindow
   
6.     oW.execScript " var aa=eval(" & aa & ");"
   
7.     eval = oW.aa '''获取计算结果
   
8.     Set oDom = Nothing
   
9.     Set oW = Nothing
   
10.     ERR00
    
11. End Function
    

复制代码

lm3312

ykcbf1100 发表于 2024-2-19 19:51
试试这个，不是我写的，据说32位和64位通用。

可以计算，谢谢！不过最后一句写错了，应该是：
ERR00：

还有一个问题，第一句 eval = "" 有必要么？

gglili

lm3312 发表于 2024-2-20 00:06
可以计算，谢谢！不过最后一句写错了，应该是：
ERR00：

这个怎么用啊，老师，求教

lingshimizi

其实一个是VBScript ，一个是JavaScript

lm3312

gglili 发表于 2024-2-20 08:36
这个怎么用啊，老师，求教

在EXCEL工作表中，一个单元格写入计算表达式，在另一个单位元写入公式=eval(计算表达式单元格)，就可以得到计算结果。

lm3312

lingshimizi 发表于 2024-2-20 10:16
其实一个是VBScript ，一个是JavaScript

我不懂这些，只会用。请问你能用VBScript 来解决这个问题吗？

lingshimizi

lm3312 发表于 2024-2-20 10:26
我不懂这些，只会用。请问你能用VBScript 来解决这个问题吗？

用什么解决不重要，能用不就好了

lm3312

lingshimizi 发表于 2024-2-20 10:27
用什么解决不重要，能用不就好了

多几种方法，总是好的，一种方法失效了，另一种还能用，岂不美哉。

gglili

lm3312 发表于 2024-2-20 10:25
在EXCEL工作表中，一个单元格写入计算表达式，在另一个单位元写入公式=eval(计算表达式单元格)，就可以得 ...

老师，看看这是什么问题