VBA 网页抓取数据进行翻页，单步执行可以，F5运行出错

HHAAMM

suwenkai 发表于 2014-9-27 22:36
试一下

还可以用js函数对字符串编码

1. Public Sub test()
   
2.     Set js = CreateObject("scriptcontrol")
   
3.     js.Language = "JavaScript"
   
4.     MsgBox js.Eval("encodeURIComponent('http://club.excelhome.net/forum.php')")
   
5. End Sub

复制代码

HHAAMM

解码

1. 
   
2. Public Sub test()
   
3.     Set js = CreateObject("scriptcontrol")
   
4.     js.Language = "JavaScript"
   
5.     MsgBox js.Eval("decodeURIComponent('http%3A%2F%2F%E5%BE%88%E6%99%9A%E4%BA%86%E8%AF%A5%E5%91%BC%E5%91%BC%E4%BA%86.com')")
   
6. End Sub

复制代码

VBA万岁

HHAAMM 发表于 2014-9-28 22:56
哦 谢谢！！

弄着玩，下载的数据我又添加几样，包括那个小图片

Mark一下，有空再研读。

VBA万岁

suwenkai 发表于 2014-9-27 22:36
试一下

Mark一下，有空再研读。

joey0415

HHAAMM 发表于 2014-9-28 22:56
哦 谢谢！！

弄着玩，下载的数据我又添加几样，包括那个小图片

版主的內容很棒！

可以再幫住解釋一下嗎？

網抓會了，但js.Language = "jscript"還有請大大幫忙註解一下

還是有哪些網站可以學到相關資訊呢？

感謝

张文洲

HHAAMM 发表于 2014-9-28 23:59
解码

今天在本地窗口看了scriptcontrol对象模型，结合具体示例，可以很容易的提取结构性信息，真是很给力啊
不过 URL 链接地址，通过火狐浏览器，能很方便的找到，选择相关链接，右键-编辑重新发送，会在右边列示所有参数名称和当前取值，很方便进行对比分析。
总之，又学了一招了

newexcel3

请问16楼，
“今天在本地窗口看了scriptcontrol对象模型，结合具体示例，可以很容易的提取结构性信息，真是很给力啊
不过 URL 链接地址，通过火狐浏览器，能很方便的找到，选择相关链接，右键-编辑重新发送，会在右边列示所有参数名称和当前取值，很方便进行对比分析。”
可不可以再解释下，方便我们新手学习。谢谢

VBA万岁

VBA万岁 发表于 2014-9-29 08:41
Mark一下，有空再研读。

scriptcontrol对象模型：
http://www.doc88.com/p-903567082742.html

suyunlong123

非常强悍，今天算是目睹了各位大神的风采

nishuodebai

学习，了解。