Excel無法匯入網站資料，懇請幫忙！

chingmac

最近要將http://jsjustweb.jihsun.com.tw/z/zc/zcr/zcr0_2891.djhtm的資料運用到excel檔中，減少自行查詢及輸入的時間
卻發現不能利用excel"資料"-->"匯入外部資料"-->"新增web查詢"的方式直接匯入，會出現"此web查詢沒有回傳資料"的提示
經爬文，知道可以用VBA來匯入，但是小弟學藝不精，雖然有找到http://forum.twbts.com/viewthread.php?tid=7586此篇文章來參考
但修改裡面的網址跟參數之後，仍只能顯示第一行資料就會出現錯誤"沒有設定物件變數或With區塊變數"

下載 (126.47 KB)

2014-11-20 18:22

所以想請問各位先進幫忙，該如何修改程式碼才能將資料匯入，並可以任意修改股票代號呢？如下附上我修改後的程式碼
感謝回答！

Sub Ex()
    Dim xlVbTable As Object, Ar, R As Integer, C As Integer
    With CreateObject("InternetExplorer.Application")
        .Visible = True
       .Navigate "http://jsjustweb.jihsun.com.tw/z/zc/zcr/zcr0_2891.djhtm"
        Do While .Busy Or .ReadyState <> 4: DoEvents: Loop
        Set xlVbTable = .document.getelementsbytagname("table")(11)
        Ar = Split(xlVbTable.Rows(0).Cells(0).innerText, Chr(10))(1)
        With ActiveSheet
            .Cells(1, 1) = Mid(Ar, 1, InStr(Ar, ":"))
            .Cells(1, 2) = Mid(Ar, InStr(Ar, ":") + 1, 9)
            For R = 1 To xlVbTable.Rows.Length - 1
                For C = 0 To xlVbTable.Rows(1).ALL.Length - 1
                    .Cells(R + 1, C + 1) = xlVbTable.Rows(R).Cells(C).innerText
                Next
            Next
        End With
       .Quit
    End With
End Sub