- 帖子
- 75
- 主題
- 8
- 精華
- 0
- 積分
- 109
- 點名
- 0
- 作業系統
- windows XP
- 軟體版本
- office 2010
- 閱讀權限
- 20
- 性別
- 男
- 來自
- 高雄
- 註冊時間
- 2015-4-19
- 最後登錄
- 2025-5-7
|
在原始檔中有找到按鍵位置，都是不知道如何使用?
Sub 大盤指數20160110()
Dim xTable As Object, k As Integer, c As Integer, r As Integer
Sheets("下載").Select
URL = "http://www.twse.com.tw/ch/trading/indices/MI_5MINS_HIST/MI_5MINS_HIST.php"
With CreateObject("InternetExplorer.application")
.Visible = True
.Navigate URL
Do While .Busy Or .readyState <> 4: DoEvents: Loop
With .document
.all("myear").Value = "104"
.all("mmon").Value = "12"
.all("onclick").Click '按下按鍵的
End With
Do While .Busy Or .readyState <> 4: DoEvents: Loop
Set xTable = .document.getElementsByTagName("tbody") '(1)
With Sheets("下載")
.UsedRange.Clear
k = 1
For i = 0 To 1 ' For EACH E In xTable '.document.getelementsbytagname("TABLE")
For r = 0 To xTable(i).Rows.Length - 1
For c = 0 To xTable(i).Rows(r).Cells.Length - 1
.Cells(k + r, c + IIf(i = 0, 1 + 1 * c, 1)) = xTable(i).Rows(r).Cells(c).innerText
Next
Next
k = k + xTable(i).Rows.Length
Next
End With
.Quit
End With
End Sub |
|
發表於 2016-1-10 22:54
| 
