网抓上海金属价格行情拆线图

aman1516 · 发表于 2020-9-25 19:01

不少单位采购跟单下单前经常要查询相关金属市场价格行情，了解价格趋势，很早以前就弄了个小工具，每天抓取下市场价格行情（每中午12点前网站更新数据），并留存历史记录，同步生成折线图，以方便跟单使用：

上海金属价格行情.jpg

详见附件：

上海金属价格行情（2020）.rar (117.72 KB, 下载次数: 81)

aman1516 · 发表于 2022-12-8 09:27

一个南海灵通网的金属报价，
但发现一个问题，同一网址：https://www.lvdingjia.com/price/nanhai/
在 IE 中打开，和在 Google Chrome 中打开居然是不同的，
可能是 IE版本或FLASH插件的原因，无法显示及提取相关表格数据
IE 中的页面：

Google Chrome 中的页面：

请问，如何抓取 Google Chrome 页面中，南海灵通最近30天价格
或 90 天的价格数据

aman1516 · 发表于 2022-12-10 12:37

找了个显示网页元素的工具，
CreateObject("internetexplorer.application")
都是基于 IE 的，也查看不到数据表格属性，
微软的VBA只能操作自家的IE浏览器！？
如何抓取非 IE 浏览器如火狐、Google Chrome、360、傲游、QQ等之类的网页数据？
是否要通过VBA稠用其他语言方能实现？

哪个网抓的大神能伸下授手或释疑一下，谢谢

aman1516 · 发表于 2022-12-10 13:48

可以了，虽然没显示，网页数据还是在的，
强制循环所有"table" 虽然格式不一样：

Sub CmBClick()
Dim ie1 As Object, dmt As Object, r As Object, lr As Long, i As Long, j As Long, t As Long
Dim Html As Object, XmlHttp As Object, url$, tb, n%
Set Html = CreateObject("htmlfile")
Set XmlHttp = CreateObject("MSXML2.XmlHttp")
On Error Resume Next
Application.DisplayAlerts = False
Application.ScreenUpdating = False
On Error Resume Next
url = "https://www.lvdingjia.com/price/nanhai/"
If url = "" Then Exit Sub
With XmlHttp
.Open "GET", url, False
.Send
Html.body.innerhtml = .ResponseText
End With
With ActiveSheet
[a1].CurrentRegion.Clear
Cells.NumberFormat = "@"
For t = 0 To 9
lr = .[A6536].End(xlUp).Row + 1
Set tb = Html.all.tags("table")(t).Rows
For i = 0 To tb.Length - 1
For j = 0 To tb(i).Cells.Length - 1
Cells(i + lr + 1, j + 1) = tb(i).Cells(j).innerText
Next
Next
Next
Application.ScreenUpdating = True
Application.DisplayAlerts = True = False
.[a1].CurrentRegion.Columns.AutoFit
End With
Set ie1 = Nothing
Set dmt = Nothing
Set r = Nothing
End Sub

复制代码

xilang2000 · 发表于 2022-12-21 13:08

office365编译错误，能否告诉工程密码

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

[分享] 网抓上海金属价格行情拆线图

评分

[分享] 网抓 上海金属价格行情 拆线图

评分

[分享] 网抓上海金属价格行情拆线图