我的一个代码在excel2016for32位最近突然无法正常工作了

kinglight1988

1. Function js(s)
   
2. s = Replace(Replace(s, "（", "("), "）", ")")
   
3. Set x = CreateObject("MSScriptControl.ScriptControl")
   
4. x.Language = "vbscript"
   
5. With CreateObject("VBSCRIPT.REGEXP")
   
6.   .Global = True
   
7.   .Pattern = "\[.*?\]|{(.*?)}|[^0-9.+-/^*()]"
   
8.   js = x.Eval(.Replace(s, "$1"))
   
9.   End With
   
10. End Function

复制代码

原来都能正常工作的，最近不正常了。出现值错误，系统是win7的64位，但是office是32位的。因为这个代码好像只能用在32位的office上。原来都是正常的，现在都不正常了。