在excel里如何看实时的股票行情主要是价格。

perfect131

drldrldrldrldrl 发表于 2023-4-10 09:09
点刷新，出现无法下载您要求的信息。

？不会协议就看看这个，或者问 chat
https://club.excelhome.net/thread-1628424-1-1.html

perfect131

lxw6 发表于 2023-4-10 13:25
一个很小的程序，怎么AI都用上了

因为需要创新，一页的20条数据 要循环256次，我们需要的是一次获取256页数据（不循环）

drldrldrldrldrl

perfect131 发表于 2023-4-10 14:22
？不会协议就看看这个，或者问 chat
https://club.excelhome.net/thread-1628424-1-1.html

看了网址您给的网址。Sub tableTest()
    Set winhttp = CreateObject("winhttp.WinHttpRequest.5.1")
    Set HTML = CreateObject("htmlfile")
    Set oWindow = HTML.ParentWindow
    Url = "http://q.10jqka.com.cn/index/"
    With winhttp
        .Open "GET", Url, False
        .send
        strText = .responsetext
''            Debug.Print strText
    End With
    HTML.body.innerhtml = strText
    Set tables = HTML.getElementsByClassName("tableFull")
    Set Table = tables(0)
   
    '''写入剪切板 第一种
    oWindow.ClipboardData.SetData "text", Table.outerHTML
   
    '''写入剪切板 第二种
'    Set clipboard = New MSForms.DataObject
'    clipboard.SetText Table.outerHTML
'    clipboard.PutInClipboard

    ActiveSheet.Range("a1").Select
    ActiveSheet.Paste
   
    Set winhttp = Nothing
    Set HTML = Nothing
    Set oWindow = Nothing
End Sub
''''所有表格
Sub alltableTest()
    Set winhttp = CreateObject("winhttp.WinHttpRequest.5.1")
    Set HTML = CreateObject("htmlfile")
    Set oWindow = HTML.ParentWindow
    aa = 1
    For x = 1 To 256
    Url = "http://q.10jqka.com.cn/index/"= * & x
    With winhttp
        .Open "GET", Url, False
        .send
        strText = .responsetext
''            Debug.Print strText
    End With
    HTML.body.innerhtml = strText
    Set tables = HTML.getElementsByTagName("table")
    aa = 1
    For i = 0 To tables.Length - 1
        Set Table = tables(i)
        
        '''写入剪切板 第一种
        oWindow.ClipboardData.SetData "text", Table.outerHTML
        
        '''写入剪切板 第二种
    '    Set clipboard = New MSForms.DataObject
    '    clipboard.SetText Table.outerHTML
    '    clipboard.PutInClipboard
   
        ActiveSheet.Cells(1, aa).Select
        ActiveSheet.Paste
        oWindow.ClipboardData.SetData "text", ""
        aa = ActiveSheet.UsedRange.Columns.Count + 2
      Next
    Next
    Set winhttp = Nothing
    Set HTML = Nothing
    Set oWindow = Nothing
End Sub
还是加不上循环

Yalishanda30

drldrldrldrldrl 发表于 2023-4-13 15:11
看了网址您给的网址。Sub tableTest()
    Set winhttp = CreateObject("winhttp.WinHttpRequest.5.1")
...

加Q私发给你

perfect131

drldrldrldrldrl 发表于 2023-4-13 15:11
看了网址您给的网址。Sub tableTest()
    Set winhttp = CreateObject("winhttp.WinHttpRequest.5.1")
...

不需要循环，/size/5121 即可，请求要加 Cookie

Yalishanda30

perfect131 发表于 2023-4-15 11:22
不需要循环，/size/5121 即可，请求要加 Cookie

这个网站的cookie比较难缠，

perfect131

Yalishanda30 发表于 2023-4-15 14:53
这个网站的cookie比较难缠，

还算简单，用IE 获取也可以，JS逆向 也不难，就几个数组，时间戳计算出来的

drldrldrldrldrl

Yalishanda30 发表于 2023-4-13 21:00
加Q私发给你

非常感谢您！

drldrldrldrldrl

perfect131 发表于 2023-4-15 15:50
还算简单，用IE 获取也可以，JS逆向 也不难，就几个数组，时间戳计算出来的

对于您来说简单。谢谢您的解答！