东方财富 龙虎榜数据 地址列表读取数据

YZC51

能把文件发上来，测试下吗？

kings12333

mmm426 发表于 2015-10-29 13:47
不行呢
出来的数据就第一个循环 后2个和第一个一样

你这取的是啥数据啊。。能不能说明一下？

kings12333

YZC51 发表于 2015-10-29 17:03
能把文件发上来，测试下吗？

大师，能帮我看看这个数据我只要“近期重要事件”这一小部分，这句分离数据的语句该如何改写： strText = "<table" & Split(Split(sText, "<table")(1), "</table>")(0) & "</table>"；网址为：http://basic.10jqka.com.cn/600121/

mmm426

YZC51 发表于 2015-10-29 17:03
能把文件发上来，测试下吗？

把office重装了下
就木问题了
哈哈 系统不稳定

mmm426

kings12333 发表于 2015-10-29 20:45
你这取的是啥数据啊。。能不能说明一下？

？？
你运行下就可以了啊

mmm426

YZC51 发表于 2015-10-29 17:03
能把文件发上来，测试下吗？

年报大全也可以运行了～～～

YZC51

kings12333 发表于 2015-10-29 20:55
大师，能帮我看看这个数据我只要“近期重要事件”这一小部分，这句分离数据的语句该如何改写： strText = ...

请测试

1. 
   
2. <P>Sub yzc51()</P>
   
3. <P>    Dim strText As String
   
4.     Cells.Clear
   
5.     '[a2:l21] = ""
   
6.     URL = "http://basic.10jqka.com.cn/600121/"
   
7.     With CreateObject("MSXML2.XMLHTTP")
   
8.         .Open "GET", URL, False
   
9.         .setRequestHeader "Connection", "keep-alive"
   
10.         .Send
    
11.         sText = .responsetext
    
12.     End With
    
13.     'For i = 1 To 5
    
14.     strText = "<table" & Split(Split(sText, "<table")(3), "</table>")(0) & "</table>"
    
15.    ' Next i
    
16.             
    
17.     With CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
    
18.         .SetText strText
    
19.         .PutInClipboard
    
20.     End With
    
21.    
    
22.     Range("A2").Select
    
23.     ActiveSheet.Paste
    
24.    
    
25.    ' Debug.Print Left(sText, 2000)
    
26.    
    
27.     [a1] = Replace(Split(Split(sText, "<h2>")(1), "</h2>")(0), "&nbsp;", " ")
    
28.    ' Debug.Print webBbro1.LocationName
    
29. End Sub</P>

复制代码

kings12333

YZC51 发表于 2015-10-29 22:48
请测试

经测试，不行，日期能显示出来但文本内容还是乱码。我的是XP系统，EX2003

YZC51

mmm426 发表于 2015-10-29 21:55
年报大全也可以运行了～～～

哈哈！那就好啊！！！

YZC51

kings12333 发表于 2015-10-29 22:54
经测试，不行，日期能显示出来但文本内容还是乱码。我的是XP系统，EX2003

俺这可以呀！