网页数据采集---网页文档解析篇(json/html/xml)

zss427607

楼主很费心，写了n多东西，真正的良师呀，支持楼主

anve2008

多谢老师如此详细的分享，很有用

我的城市你来过

sub xuexi()
dim a!,b!
for a=1 to range("a10").end(xlup).row
...
next
end sub

pc_12

写的太好了,学习学习

c510000735

liu-aguang 发表于 2016-10-14 16:09
3.选择器

显示拒绝权限，怎么处理？ win10 office365

liu-aguang

c510000735 发表于 2021-6-7 12:01
显示拒绝权限，怎么处理？ win10 office365

365上没有测试过.  不知具体是指哪个句代码出错.

c510000735

liu-aguang 发表于 2021-6-7 14:00
365上没有测试过.  不知具体是指哪个句代码出错.

  Sub jTest()
      Set oDom = CreateObject("htmlfile")
      Set oWindow = oDom.parentWindow
      oDom.write "<script  src='http://www.w3school.com.cn/jquery/jquery.js'></script>"
      oDom.write "<p id='myid' name='test'>这是一个段落</p>"
      MsgBox oDom.DocumentElement.innerHTML  '你可以看到你写入的HTML文档
      MsgBox oWindow.eval("$('#myid').text()") '第一个msgbox 可以运行，没问题，本行这个msgbox无法执行。报错70.
    End Sub
点帮助后出现下面截图提示

我猜想是权限不足，但是不知道如何开启。求指导。

c510000735

liu-aguang 发表于 2021-6-7 14:00
365上没有测试过.  不知具体是指哪个句代码出错.

最后一个msgbox 报错， 显示70错误，点帮助后 提示见上图，可能是没有读取或者写入权限。请大神指导！

liu-aguang

c510000735 发表于 2021-6-7 20:36
最后一个msgbox 报错， 显示70错误，点帮助后 提示见上图，可能是没有读取或者写入权限。请大神指导！

w3school的jquery.js文件路径变了,用下面这个:

1. Sub jTest()
   
2.       Set oDom = CreateObject("htmlfile")
   
3.       Set oWindow = oDom.parentWindow
   
4.         With CreateObject("msxml2.xmlhttp")
   
5.             .Open "GET", "http://ajax.microsoft.com/ajax/jquery/jquery-1.4.min.js", False
   
6.             .send
   
7.         End With
   
8.       oDom.write "<script  src='http://ajax.microsoft.com/ajax/jquery/jquery-1.4.min.js'></script>"
   
9.       oDom.write "<p id='myid' name='test'>&#213;&#226;&#202;&#199;&#210;&#187;&#184;&#246;&#182;&#206;&#194;&#228;</p>"
   
10.       MsgBox oDom.DocumentElement.innerHTML  '&#196;&#227;&#191;&#201;&#210;&#212;&#191;&#180;&#181;&#189;&#196;&#227;&#208;&#180;&#200;&#235;&#181;&#196;HTML&#206;&#196;&#181;&#181;
    
11.       MsgBox oWindow.eval("$('#myid').text()")
    
12. End Sub
    

复制代码

zhhmok

liu-aguang 发表于 2016-10-7 14:27
HTML文档解析

终于在这找到答案了，谢谢！