返回列表 上一主題 發帖

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

chingmac

帖子
10 
主題
2 
精華
0 
積分
12 
點名
0  
作業系統
win7 
軟體版本
office2003或2010 
閱讀權限
10 
性別
男 
註冊時間
2014-11-20 
最後登錄
2014-12-24 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2014-11-20 18:22 | 只看該作者

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

最近要將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區塊變數"



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

        靜思自在 : 一個缺口的杯子，如果換一個角度看它，它仍然是圓的。
返回列表 上一主題