如何从网上获取某支股票最新价格？？？

faildd

这太NB了吧，实验下。

onlycxb

faildd 发表于 2015-7-14 17:48
这太NB了吧，实验下。

这就是利用网抓技术,你会你能.

yangjinwan

版主, 请问怎么能够抓取502开头的上证分级基金代码呢?
系统提示代码错误.

zaingowest

这个程序非常好，现在分级基金套利需要大量的数据抓取和计算，很想能有这么一个工具。
但自己确实是对excel变成一窍不通，因此想求大神按我的个性化需求帮我在这个程序基础上改一个版本出来，可按正常软件费用支付，求帮忙谢谢。
如有意向，请联系qq：320545，谢谢

ccshcc

9楼的朋友真是高手！

言志

现在分级套利不容易

我的足迹

我的表是这样，提不出数据，求老师帮忙


Sub test()
    For r = 3 To Range("A1").CurrentRegion.Rows.Count
        dm = Cells(r, 5).Value
        If Val(dm) < 600000 Then
            URL = "http://qt.gtimg.cn/q=sz" & dm
        Else
            URL = "http://qt.gtimg.cn/q=sh" & dm
        End If
        With CreateObject("msxml2.xmlhttp")
            .Open "GET", URL, False
            .send
            sp = Split(.responsetext, "~")
            If UBound(sp) > 3 Then
                Cells(r, 7).Value = sp(3)
                Cells(r, 8).Value = Format(sp(30), "0000-00-00 00:00:00")
            Else
                Cells(r, 7).Value = "证券代码错啦！"
            End If
        End With
    Next
End Sub

				证券代码	证券名称	最新价格	时间
									file:///C:/Users/20150808/AppData/Local/Temp/msohtmlclip1/01/clip_image001.png
				002045	国光电器
				002056	横店东磁
				002601	佰利联
				002309	中利科技
				600585	海螺水泥

cnc_hk

好东西！谢谢收！

beetle1985

HHAAMM 发表于 2014-10-17 10:40
哦 还要区分深圳上海的股票代码，换下面这样

版主，结合你的附件，我进行了修改，由于是对沪深股市的全部股票进行即时更新，速度偏慢，能否帮受再改进优化下代码，提升下运行速度！谢谢你了！

beetle1985

版主，我在你的基础上进行了修改，需要对沪深A股的进行即时的更新。请版主帮手看看，能否提升下运行速度。不然延迟比较严重。