求助抓取新浪行情

YZC51

lwx228 发表于 2019-11-5 11:41
受教了。
继续麻烦老师指导:新浪美股数据下载。

将    'With CreateObject("Microsoft.XMLHTTP")
替换为    With CreateObject("winHttp.winHttpRequest.5.1")
即可取得数据，至于文本处理自己学着做一些，我暂时有事帮不了忙！

lwx228

YZC51 发表于 2019-11-5 14:22
将    'With CreateObject("Microsoft.XMLHTTP")
替换为    With CreateObject("winHttp.winHttpRequest ...

好吧、谢谢老师。
我就是文本处理不懂。

五指山888

LittleBird2006 发表于 2018-12-19 13:35
#python代码一段。。
import requests
import pandas as pd

这代码如何用？能否做个运行文件？

五指山888

excelvlookup 发表于 2018-12-17 18:19
day,是日数据，lc1是一分钟数据，你可以用一分钟数据生成5分、10分等数据。这个在每天的盘后数据维护就可以 ...

如何用vba读取呢？有完整的代码吗？

五指山888

excelvlookup 发表于 2018-12-17 18:11
为什么不直接用代码读取本机上的day文件，或lc1文件。要的数据本机上都有的。不止当前的，还有历史的

这样1先要手工下载当日数据2，读取数据的vba代码如何写？

伍成平

五指山888 发表于 2020-10-16 19:36
这样1先要手工下载当日数据2，读取数据的vba代码如何写？

都是高手啊，加个微信哇，美女

五指山888

YZC51 发表于 2017-9-25 17:32
请测试
Sub 沪深A股()
    URL = "http://hqdigi2.eastmoney.com/EM_Quote2010NumericApplication/index. ...

老师能看看这个为啥不能抓取数据了？Sub 东财03版1() '
't = Timer    '开始记时2.66-3.69秒
'Application.ScreenUpdating = False
Sheets("Sheet1").Select
With CreateObject("Msxml2.XMLHTTP") 'CreateObject("Microsoft.XMLHTTP")
    .Open "GET", "http://hqdigi2.eastmoney.com/EM_Quote2010NumericApplication/index.aspx?type=s&sortType=C&sortRule=-1&pageSize=5000&page=1&jsName=quote_123&style=33&_g=" & Rnd(), False
    On Error Resume Next
    .send
    v = .responsetext
End With

    strText = Split(Split(v, "[""")(1), """]")(0)
     h = [a10000].End(xlUp).Row + 1
    Range("a3:ah" & h) = ""
  ' Cells.ClearContents 'Sheet1.=限制在本工作簿，不能跨工作簿，跨工作簿要去掉此句。
    Dim crr() As String
    crr = Split(strText, """,""")
   ' arr = Application.Transpose(crr) '卡住了？

  [a2].Resize(1, 38) = Split("序号 代码 名称 昨收 今开 最新价 最高 最低 金额 总手 涨跌额 涨跌幅 均价 振幅% 委比% 委差 现手 内盘 外盘 不明1 不明2 不明3 量比 换手% 不明4 不明5 最新价 卖出价 更新时间 不明6 总股本(亿) 总市值(亿) 发行价(亿) 流通市值(亿) 最新合并 涨幅% 最高总市值(亿) 最低总市值(亿) ")
For i = 0 To UBound(crr)
    brr = Split(crr(i), ",")
' [A2].Resize(1, 38).Offset(i, 0) = brr '
   [a3].Resize(1, 38).Offset(i, 0) = brr '
Next
Dim arr(), f, l
m = Range("b65536").End(xlUp).Row
arr = Range("a3:az" & m)
Range("ah3:al" & m).ClearContents '清除内容
  Range("ac3").Select
   h = [a10000].End(xlUp).Row
    [a3] = 1: Range("a3:a" & h).DataSeries
'格式整理d
'Application.ScreenUpdating = True
'MsgBox "更新完成；共用时" & Format(Timer - t, "0.00秒。")
End Sub

五指山888

YZC51 发表于 2016-9-16 10:11
用好啦，记得赏花啊！

老师，只能下载一页，不知为啥?奥，后面的改进了。

伍成平

五指山888 发表于 2020-10-23 16:40
老师，只能下载一页，不知为啥?奥，后面的改进了。

晚上好啊

五指山888

伍成平 发表于 2022-7-18 21:38
晚上好啊

谢谢关注！