撷取网页特定内容

vane42 · 发表于 2018-10-8 16:30

代码如下，原本执行正常，忽然有一天出现「运行时错误'91'：没有设定对象变量或With区块变量」错误，点击侦错，黄底标示在「dd = IE.Document.getElementsByClassName("priceText__1853e8a5")(0).innerText」这行，请问如何修正？谢谢！

注：用IE11开启 https://www.bloomberg.com/quote/USDTWD:CUR 无法正确显示网页。

有人建议改用XMLHTTP抓取，但爬文后仍不得其门而入。

Sub GetExchangeRate()
Dim IE As Object
Set IE = CreateObject("InternetExplorer.Application")
Application.Wait (Now + #12:00:01 AM#)
IE.Visible = False
IE.Navigate "https://www.bloomberg.com/quote/USDTWD:CUR"
Application.StatusBar = "Loading, Please wait..."
Do While IE.Busy
Application.Wait DateAdd("s", 1, Now)
Loop
Application.StatusBar = "Searching for value. Please wait..."
Dim dd As Double
Dim dt As String
Dim obj As New DataObject
dd = IE.Document.getElementsByClassName("priceText__1853e8a5")(0).innerText
dt = IE.Document.getElementsByClassName("time__cbd9bff9")(0).innerText
obj.SetText (dd)
obj.PutInClipboard
MsgBox "USDTWD Spot Exchange Rate: " & dd & vbCrLf & dt
IE.Visible = False
IE.Quit
Set IE = Nothing
Application.StatusBar = ""
End Sub

复制代码

chentonny · 发表于 2018-10-8 17:09

你这网址都打不开怎么抓？

vane42 · 发表于 2018-10-8 17:16

chentonny 发表于 2018-10-8 17:09
你这网址都打不开怎么抓？

用IE开启异常，但改用其它浏览器是正常的。

duquancai · 发表于 2018-10-8 17:31

vane42 发表于 2018-10-8 17:16
用IE开启异常，但改用其它浏览器是正常的。

打开正常的截图。需要抓什么数据？

vane42 · 发表于 2018-10-9 00:08

duquancai 发表于 2018-10-8 17:31
打开正常的截图。需要抓什么数据？

如上图所示的汇率及更新时间。

vane42 · 发表于 2018-10-15 08:56

有人可以协助吗？谢谢！

Yalishanda30 · 发表于 2018-10-15 10:31

vane42 发表于 2018-10-15 08:56
有人可以协助吗？谢谢！

querytable就可以了

vane42 · 发表于 2018-10-15 16:09

Yalishanda30 发表于 2018-10-15 10:31
querytable就可以了

谢谢你的回覆！但我按了更新钮后，跑出来的结果并不正确（见下图）。
且我希望是将汇率传送至剪贴簿，并将汇率与更新时间显示于Msgbox。
请教是否有别的写法？谢谢！

Yalishanda30 · 发表于 2018-10-15 16:13

vane42 发表于 2018-10-15 16:09
谢谢你的回覆！但我按了更新钮后，跑出来的结果并不正确（见下图）。
且我希望是将汇率传送至剪贴簿，并 ...

最好上传你的附件，我这里显示正常

vane42 · 发表于 2018-10-15 16:40

Yalishanda30 发表于 2018-10-15 16:13
最好上传你的附件，我这里显示正常

我是直接开启你提供的 Test.xlsm 档按更新。

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

[求助] 撷取网页特定内容