提取网页指定的内容，不是表格

志65 · 发表于 2018-9-20 15:16

Hi，我想要获取网页指定的内容，一个数字，而不是整个表格，我网上那写的都是如何获取整个表格。而我是想要获取一段话指定的内容，如截图。因为链接太多，一个个复制的话，很麻烦，所以想望大神写个宏来操作一下，多谢。

719404338 · 发表于 2018-9-20 17:10

这个不难。

志65 · 发表于 2018-9-20 17:35

719404338 发表于 2018-9-20 17:10
这个不难。

那能帮忙写个宏吗？多谢。

志65 · 发表于 2018-9-20 19:51

等待大神出现

cunfu2010 · 发表于 2018-9-20 19:53

本帖最后由 cunfu2010 于 2018-9-21 07:29 编辑

志65 发表于 2018-9-20 19:51
等待大神出现

附件不太完善，删除。

志65 · 发表于 2018-9-20 22:12

cunfu2010 发表于 2018-9-20 19:53
单击A列单元格

非常多谢。能帮忙解释一下那些代码吗？如截图。想理解一下，这样，下次可以更改一下就可以了。
还有一个问题。若是我想批量操作，不用一个个点进去，才能获取那结果，怎么操作？多谢。

志65 · 发表于 2018-9-20 23:02

cunfu2010 发表于 2018-9-20 19:53
单击A列单元格

hi，刚刚发现一个问题，获取的数据跟网页那显示的数据不一致耶，如截图。这怎么处理？页面的数据是动态的。

cunfu2010 · 发表于 2018-9-21 07:29

志65 发表于 2018-9-20 22:12
非常多谢。能帮忙解释一下那些代码吗？如截图。想理解一下，这样，下次可以更改一下就可以了。
还有一个 ...

Sub test()
For i = 2 To [A65536].End(3).Row
With CreateObject("MSXML2.XMLHTTP")
      .Open "GET", Cells(i, 1).Value, False
      .Send
      strText = .responseText
End With
With CreateObject("htmlfile")
      .body.innerHTML = strText
      j = .getElementById("s-result-count").innerText
      Cells(i, 2) = Replace(Split(j, "for")(1), """", "")
      Cells(i, 3) = Split(j, " ")(3)
End With
Next
End Sub

lsdongjh · 发表于 2018-9-21 12:07

给你方法，自己处理

Sub Test()
MsgBox GetVal("https://www.amazon.com/s/ref=nb_sb_noss?url=search-alias%3Daps&field-keywords=flexible+strip+light")
End Sub
Function GetVal(strUrl As String) As String
Dim strResult As String, strSplit() As String
With CreateObject("msxml2.xmlhttp")
.Open "GET", strUrl, False
.send
strResult = StrConv(.responseBody, vbUnicode, &H804)
End With
If strResult = "" Then Exit Function
strSplit = Split(strResult, "s-result-count")
If UBound(strSplit) < 1 Then Exit Function
strResult = strSplit(1)
strSplit = Split(strResult, "over")
If UBound(strSplit) < 1 Then Exit Function
strResult = strSplit(1)
strSplit = Split(strResult, "results")
strResult = strSplit(0)
GetVal = strResult
End Function

复制代码

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

[求助] 提取网页指定的内容，不是表格