请教VBA抓网页表格的问题 ，谢谢

hbhm

请教大神
1. 当 循环 For qq = 4 To 1 Step -1 qq=4时 ("table")(4) 是空值，会出错。这时应该跳出到qq=3的循环，如何做？
2.  表头取回的是乱码，如何转码？

谢谢！！！！！！！！


Sub sina()
Dim n, ii, jj, y, qq, k As Integer
      For y = Year(Date) To Year(Date) - 2 Step -1
        For qq = 4 To 1 Step -1
Set oDoc = CreateObject("htmlfile")
    With CreateObject("WinHttp.WinHttpRequest.5.1")
            .Open "GET", "http://vip.stock.finance.sina.com.cn/corp/go.php/vMS_MarketHistory/stockid/000001/type/S.phtml?year=" & y & "&jidu=" & qq, False
            .Send
            .WaitForResponse
            oDoc.body.innerHTML = .responsetext
   
        Set r = oDoc.All.tags("table")(4).Rows
            
         For ii = 1 To r.Length - 1
            
             k = k + 1

                For jj = 0 To r(ii).Cells.Length - 1
              
                 Cells(k, jj + 1) = r(ii).Cells(jj).innerText
                Next jj
               
             k = [a65536].End(3).Row
            
         Next ii
   
       Set r = Nothing

    End With
       Next qq
    Next y
   
End Sub


分享到新浪微博

hbhm

当 循环 For qq = 4 To 1 Step -1 qq=4时 ("table")(4) 是空值， Set r = oDoc.All.tags("table")(4).Rows 会出错，如何跳出这个出错，跳到循环qq=3 谢谢

Kaohsing

hbhm 发表于 2017-8-26 09:45
当 循环 For qq = 4 To 1 Step -1 qq=4时 ("table")(4) 是空值， Set r = oDoc.All.tags("table")(4).Rows  ...

  首先取得table标签的数量(odc.all.tags(‘“table”’).length)，然后在倒着循环。

2801959927

楼主是想从新浪财经上爬历史交易数据吗？我以前写过一段程序，需要的话可以分享^_^