Function EvalByHtml(strText As String) As String '解决64位office执行js的问题 With CreateObject("htmlfile") .write "<html><script></script></html>" EvalByHtml = CallByName(.parentwindow, "eval", VbMethod, strText) End With End Function
返回列表
VBA代码 执行js 解决64位office执行js的问题
发表于 2025年3月18日 14:59
