- 帖子
- 10
- 主題
- 2
- 精華
- 0
- 積分
- 12
- 點名
- 0
- 作業系統
- win7
- 軟體版本
- office2003或2010
- 閱讀權限
- 10
- 性別
- 男
- 註冊時間
- 2014-11-20
- 最後登錄
- 2014-12-24
|
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 |
|
發表於 2014-11-20 18:22
| 
