請幫我看看下列程式碼 Object, document

vavashop

Option Explicit
Sub Ex()
    Dim i As Integer, E As Object, C As Integer, Sh As Worksheet
    With CreateObject("InternetExplorer.Application")
        .Visible = True
        .Navigate "http://www.goodinfo.tw/stockinfo/ShowK_Chart.asp?STOCK_ID=2454&CHT_CAT2=WEEK"
        Do While .Busy Or .ReadyState <> 4: DoEvents:      Loop
        With .document
            Do
                If .all.tags("table").Length >= 16 Then Exit Do
                DoEvents
            Loop
            Set Sh = ActiveSheet
            Sh.UsedRange.Clear
            For Each E In .all.tags("table")(16).Rows
                i = i + 1 '
                For C = 0 To E.Cells.Length - 1
                    Sh.Cells(i, C + 1) = E.Cells(C).innertext
                Next
            Next
            With Sh
                 For i = 21 To .Range("A" & Rows.Count).End(xlUp).Row Step 18
                    .Cells(i, "A").Resize(2).EntireRow.Delete
                Next
            End With
        End With
        .Quit        '關閉網頁
    End With
End Sub




我想抓這資料http://www.goodinfo.tw/stockinfo/ShowK_Chart.asp?STOCK_ID=2330&CHT_CAT2=WEEK
下面的
交易
週別        交易
日數        開盤        最高        最低        收盤        漲跌        漲跌(%)        成交張數        成交金額        法人買賣超(千張)        外資持股 (%)        融資(千張)        融券(千張)        券資 比
(%)
千張        日均        億元        日均        外資        投信        自營        合計        增減        餘額        增減        餘額

表格 請問哪邊 改錯了
請幫我指證一下
謝謝

c_c_lai

回復 1# vavashop
試試看:

1.             '  For Each E In .all.tags("table")(16).Rows
   
2.             For Each E In .all.tags("table")(18).Rows

複製代碼

下載 (36.8 KB)

2016-6-6 20:40

c_c_lai

回復 1# vavashop

vavashop

感謝同學大大的回應