请问怎么提取网页中的价格http://www.go24k.com/

petersuper · 发表于 2011-6-27 11:27

如题，请问怎么提取网页中的价格，excel宏可以做吗
网址：http://www.go24k.com/
品种最新价涨跌
Ag(T+D) 7434 -167.00
Au(T+D) 314.2 -3.21
Au100g 315 -3.01
Au99.95 314.2 -3.46
Au99.99 314.5 -3.38
Pt99.95 362.5 -6.85
Au(T+N1) 0 0
Au(T+N2) 0 0

petersuper · 发表于 2011-6-27 13:31

没人知道吗？

xmyjk · 发表于 2011-6-28 00:05

搞不定，所需数据再IFRAME里面，我尝试过，被拒绝访问，不知其他高手有无什么招能解决的。

ah2005 · 发表于 2011-6-28 14:27

楼主去用火车头采集器试试.

xmyjk · 发表于 2011-6-28 22:57

草草做了一个，如下：

Option Explicit
Sub a()
Dim ie1 As Object, t As Single, url As String
UserForm1.WebBrowser1.Silent = True
[a1].CurrentRegion.Clear
Cells.NumberFormat = "@"
Set ie1 = UserForm1.WebBrowser1
With ie1
.Navigate "http://www.go24k.com/" '网址
t = Timer
Do Until Timer > t + 2
DoEvents
Loop
url = "http://quote.go24k.com:8080/showshxhhq.asp"
.Document.body.innerHTML = "<a href='" & url & "'>ffffff</a>"
.Document.all.tags("a")(0).Click
t = Timer
Do Until Timer > t + 1
DoEvents
Loop
.Document.body.Focus
.Document.execCommand "SelectAll"
.Document.execCommand "copy"
End With
Range("A1").Select
ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:=False, NoHTMLFormatting:=True
Rows(1).Delete Shift:=xlUp
Set ie1 = Nothing
End Sub

复制代码

xmyjk · 发表于 2011-6-30 01:07

感谢apollokk老师指导，又修改了下代码，代码如下：

Option Explicit
Sub a()
Dim ie1 As Object, t As Single, url As String
UserForm1.WebBrowser1.Silent = True
On Error Resume Next
'Load UserForm1
'UserForm1.Show 0
[a1].CurrentRegion.Clear
Cells.NumberFormat = "@"
Set ie1 = UserForm1.WebBrowser1
With ie1
.Navigate "http://www.go24k.com/" '网址
t = Timer
Do Until InStr(.Document.body.innertext, "上金所") > 0
DoEvents
Loop
url = "http://quote.go24k.com:8080/showshxhhq.asp"
.Document.body.innerHTML = "<a href='" & url & "'>ffffff</a>"
.Document.all.tags("a")(0).Click
t = Timer
Do Until InStr(.Document.body.innertext, "Ag(T+D)") > 0
DoEvents
Loop
.Document.body.Focus
.Document.execCommand "SelectAll"
.Document.execCommand "copy"
End With
Range("A1").Select
ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:=False, NoHTMLFormatting:=True
Rows(1).Delete Shift:=xlUp
Set ie1 = Nothing
End Sub

复制代码

petersuper · 发表于 2011-7-7 08:46

谢谢各位大大，很好用，但是问一下，这个可以让数据自动刷新吗？比如每5s刷一次数据

petersuper · 发表于 2011-7-7 08:49

谢谢各位大大，很好用，但是问一下，这个可以让数据自动刷新吗？比如每5s刷一次数据

petersuper · 发表于 2011-7-7 09:14

请问怎么引用这个数据的，大大

xmyjk · 发表于 2011-7-7 13:21

原帖由 petersuper 于 2011-7-7 09:14 发表
请问怎么引用这个数据的，大大

试看看这个。

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

[已解决] 请问怎么提取网页中的价格http://www.go24k.com/

非常感谢apollokk老师提供这么简单的办法，以下是根据apollokk思路做的

回复 6楼 xmyjk 的帖子

回复 6楼 xmyjk 的帖子