刚学VBA网页数据获取，请教一些问题

脱壳的蜗牛 · 发表于 2017-3-31 22:44

现在有这么一段网页数据，要抓取到EXCEL上，
我只能写到这样，然后到了最关键的步骤怎么去处理数据就写不下去了，望大家指教一下

Sub test1()
Set oDom = CreateObject("htmlfile")
Set oWindow = oDom.parentWindow
strHtml = "var gs={Summary:{pages:123,page:1,total:267,DateTime:""2017-03-31 22:00:07""},Item:[{name:""精雕机"",id:""A100001"",code:""307451"",price:252.1,zj:-1.3,stats:1,time:""08:30:00"",total:329849.2},{name:""角磨机"",id:""A100351"",code:""683426"",price:138.05,zj:0.28,stats:1,time:""08:42:03"",total:142197.5}]}"
End Sub

复制代码

这几天也都在论坛上学习资料，没有见过有这样的例子（例子的数据都是var gs=后面的数就可以直接取了，而我这个开头还有段话，总页数、当前页码之类的），光是看资料，实在是无法想出来怎么写。我的思路是要么从ITEM开始取（用Pattern定位到ITEM，把这之前的都REPLCAE成空，然后数据最后的}也REPLACE成空），要么就把页数那个也算作一行，有没有高手能帮忙看一下，应该怎么写，先谢谢了

kings12333 · 发表于 2017-4-1 03:59

这个得请教猫神啦，他是这个专家

Kaohsing · 发表于 2017-4-1 08:21

取得数据不多的话，用split或正则，或者用就js函数。但是看你的代码的变量名，你就学习liu-aguang大神的[原创] 网页数据采集---网页文档解析篇(json/html/xml)------http://club.excelhome.net/forum. ... digest%26digest%3D1

脱壳的蜗牛 · 发表于 2017-4-1 12:00

Kaohsing 发表于 2017-4-1 08:21
取得数据不多的话，用split或正则，或者用就js函数。但是看你的代码的变量名，你就学习liu-aguang大神的[原 ...

又看了一遍光哥的文章，还是无法参透其中的奥秘。哎！！！有没有人帮忙先写一段学习学习，谢谢了

lsdongjh · 发表于 2017-4-1 12:08

说实话，没明白你说啥。要不，把你要处理的内容放上来看看

脱壳的蜗牛 · 发表于 2017-4-1 13:31

lsdongjh 发表于 2017-4-1 12:08
说实话，没明白你说啥。要不，把你要处理的内容放上来看看

"var gs={Summary:{pages:123,page:1,total:267,DateTime:""2017-03-31 22:00:07""},Item:[{name:""精雕机"",id:""A100001"",code:""307451"",price:252.1,zj:-1.3,stats:1,time:""08:30:00"",total:329849.2},{name:""角磨机"",id:""A100351"",code:""683426"",price:138.05,zj:0.28,stats:1,time:""08:42:03"",total:142197.5}]}"

就是这段内容，想导到EXCEL上，pages:123,page:1,total:267,DateTime:""2017-03-31 22:00:07""这段内容有没有无所谓，有的话最好，可以学习下 QQ截图20170401132822.png

lsdongjh · 发表于 2017-4-1 13:47

试试这个方式：

Sub Test()
Dim objJS As Object
Dim strTemp As String
Dim intPageTotal As Integer
strTemp = "var gs={Summary:{pages:123,page:1,total:267,DateTime:""2017-03-31 22:00:07""},Item:[{name:""精雕机"",id:""A100001"",code:""307451"",price:252.1,zj:-1.3,stats:1,time:""08:30:00"",total:329849.2},{name:""角磨机"",id:""A100351"",code:""683426"",price:138.05,zj:0.28,stats:1,time:""08:42:03"",total:142197.5}]}"
Set objJS = CreateObject("ScriptControl")
objJS.Language = "JScript"
objJS.AddCode strT
intPageTotal = objJS.eval("gs.Summary.total")
End Sub

复制代码

你要的内容就是 gs.Item

脱壳的蜗牛 · 发表于 2017-4-1 13:55

lsdongjh 发表于 2017-4-1 13:47
试试这个方式：
你要的内容就是 gs.Item

intPageTotal = objJS.eval("gs.Summary.total")
这段报错：gs未定义

lsdongjh · 发表于 2017-4-1 14:10

在64位OFFICE中可以这样处理：

Sub Test()
Dim strTemp As String
Dim objHTML As Object, objWin As Object, objJS As Object
Dim objItems As Object
strTemp = "var gs={Summary:{pages:123,page:1,total:267,DateTime:""2017-03-31 22:00:07""},Item:[{name:""精雕机"",id:""A100001"",code:""307451"",price:252.1,zj:-1.3,stats:1,time:""08:30:00"",total:329849.2},{name:""角磨机"",id:""A100351"",code:""683426"",price:138.05,zj:0.28,stats:1,time:""08:42:03"",total:142197.5}]}"
Set objHTML = CreateObject("htmlfile")
Set objWin = objHTML.parentWindow
objWin.execScript strTemp, "JScript"
Set objJS = objWin.gs
Debug.Print "total: " & objJS.Summary.total
Set objItems = objJS.Item
End Sub

复制代码

Kaohsing · 发表于 2017-4-1 14:21

脱壳的蜗牛发表于 2017-4-1 12:00
又看了一遍光哥的文章，还是无法参透其中的奥秘。哎！！！有没有人帮忙先写一段学习学习，谢谢了

书读百遍。

kao.rar (10.04 KB, 下载次数: 15)

		自动登录	找回密码
密码			免费注册

[求助] 刚学VBA网页数据获取，请教一些问题