WScript中调用js方法

最新推荐文章于 2021-08-14 21:22:52 发布

dianchaozong3657

最新推荐文章于 2021-08-14 21:22:52 发布

阅读量201

点赞数

文章标签： javascript ViewUI

原文链接：http://www.cnblogs.com/cuizhf/p/3161835.html

版权

http://zhidao.baidu.com/question/484374074.html

————————————————————————————————————————————————

Sub test()
Dim arr
Dim rs As Range
For Each rs In Selection
arr = Split(rs, ",")
Set js = CreateObject("msscriptcontrol.scriptcontrol")
js.Language = "javascript"
temp = Join(arr, ",")
js.addcode "function aa(bb){js=bb.split(',');js.sort();return js;}"
sortarr = js.eval("aa('" & temp & "')")
Debug.Print sortarr
rs.Value = sortarr
Next
End Sub
经测试符合要求，选中单元格以后执行宏，选中多少单元格执行多少，1楼理解错了，楼主的意思应该是给一个单元格的内容排序
注意，你第5行引号里的逗号为半角，如果你用的是全角把里面改成全角就可以了

转载于:https://www.cnblogs.com/cuizhf/p/3161835.html