VBA代码 执行js 解决64位office执行js的问题2025年3月18日 14:59
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
全部回复（0）