关于获取网页数据的问题

suwenkai

1. Sub 按钮1_Click()
   
2.     Dim url, html, n, p
   
3.     n = 2
   
4.     Cells.NumberFormatLocal = "@"
   
5.     For p = 5 To 6
   
6.         url = "http://www.okooo.com/zucai/shuju/zhishu/141" & Format(p, "00")
   
7.         Set html = CreateObject("htmlfile")
   
8.         With CreateObject("msxml2.xmlhttp")
   
9.             .Open "get", url, False
   
10.             .send
    
11.             html.body.innerhtml = StrConv(.responsebody, vbUnicode)
    
12.             Set tb = html.all.tags("table")(0).Rows
    
13.             For i = 1 To tb.Length - 1
    
14.                 If Trim(CStr(tb(i).Cells(4).innertext)) = "2-0" Then
    
15.                     n = n + 1
    
16.                     For j = 1 To tb(i).Cells.Length - 1
    
17.                         Cells(n, j + 1) = tb(i).Cells(j).innertext
    
18.                     Next
    
19.                     Cells(n, 1) = n - 2
    
20.                 End If
    
21.             Next
    
22.         End With
    
23.     Next
    
24. End Sub
    
25. Sub 按钮2_Click()
    
26.     Range("a3:p65536").ClearContents
    
27. End Sub
    

复制代码

wj2368

a20089668 发表于 2014-8-19 09:47
谢谢帮助。
您这个是录制宏的吧，还行，能得到正确的结果，但就是速度挺慢的，应该能优化吧，等回来是再 ...

2003版本大家都可以用，那是直接从表中网站导入网页数据，不用代码也行

a20089668

suwenkai 发表于 2014-8-19 13:31

先谢谢，又辛苦您为我调试代码。
可能我表达错误吧，
前面所说“凡是比分为2-0的，写入Excel表都是显示2000-2-1‘
意思是网页上的比分为“2-0”，导入Excel都是显示2000-2-1，无论哪一期的数据。很显然我从“2000-2-1”这个字符串很难截取到“2-0”。


不过，我把Cells.NumberFormatLocal = "@"加入到第一次您发上来的附件相应位置，已经得到我想要正确的结果了，谢谢。

a20089668

wj2368 发表于 2014-8-19 14:38
2003版本大家都可以用，那是直接从表中网站导入网页数据，不用代码也行

呵呵，说得对！毕竟2003版本用了那么多年，什么都熟悉得不得了。
直接从表中网站导入网页数据，我尝试过。
我搞这个自动获取网页数据，是长期都要做的事情，并且不仅仅在这个页面导入数据，好几个页面都要导入。
很显然需要自动化比较高的代码。
无论如何，都很感谢您的帮助。