通过CreateObject("htmlfile")建立对象，写入内容后如何查看修改？

renahu

Set objDom = CreateObject("htmlfile")
Set objWin = objDom.parentWindow
strJS = strJS & "<script src=""" & ThisWorkbook.Path & "\signXX.js" & """></script>"
objDom.write strJS

如何操作objDom，对写入的内容进行修改？

duquancai

我也想知道！！！

renahu

duquancai 发表于 2018-8-4 10:16
我也想知道！！！

也不知道能不能用objDom.write 直接写入一个从js文件中截取出来的函数？

duquancai

renahu 发表于 2018-8-4 10:45
也不知道能不能用objDom.write 直接写入一个从js文件中截取出来的函数？

可以            

zpy2

eval不行吗？

renahu

duquancai 发表于 2018-8-4 11:00
可以

能不能给我演示一下，是不是需要前后加什么东西，加JS文件前面加 <script src=" 后面加 "></script> ，但函数我不知道怎么加，我直接把函数写进去不行，比如函数
function add(a, b)
    {
        return a+b
    }

duquancai

renahu 发表于 2018-8-4 11:36
能不能给我演示一下，是不是需要前后加什么东西，加JS文件前面加  ，但函数我不知道怎么加，我直接把函数 ...

1. Sub main()
   
2.     Set objDom = CreateObject("htmlfile")
   
3.     Set objWin = objDom.parentWindow
   
4.     strJS = "<script> function add(a, b){return a+b} </script>"
   
5.     objDom.write strJS
   
6.     MsgBox objWin.eval("add(3,2)")
   
7. End Sub

复制代码

renahu

zpy2 发表于 2018-8-4 11:20
eval不行吗？

行，用CallByName也行

Kaohsing

数据嵌套多了，用html看不到数据结构。

renahu

Kaohsing 发表于 2018-8-4 13:00
数据嵌套多了，用html看不到数据结构。

dom的节点里三层外三层，翻了半天也找不到写入的数据，这么说写入的数据是不能通过属性看到并进行修改的的吗？