- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
2#
發表於 2017-5-29 07:56
| 只看該作者
回復 1# zzoo123
這網址用QueryTable傳資料很慢,改用IE讀取快些- '更新按鈕
- Private Sub CommandButton2_Click() '
- Application.enableEvents = False
- '顯示home工作表
- Sheets("home").Activate
- '執行更新股價程序
- updatePrice
- Application.enableEvents = True
- End Sub
- Sub getData(stockCode As String)
- Dim Sh As Worksheet, ie
- Dim i As Integer, R As Integer, C As Integer
- Set Sh = ThisWorkbook.Worksheets("temp") '.Cells.Delete
- Sh.UsedRange.Clear
- With CreateObject("InternetExplorer.Application")
- '.Visible = True
- .Navigate "http://tw.stock.yahoo.com/q/q?s=" & stockCode
- Do While .Busy Or .readyState <> 4: DoEvents: Loop
- Set E = .Document.all.tags("TABLE")
- For i = 0 To E.Length - 1
- If InStr(E(i).innerText, "加到投資組合") And InStr(E(i).innerText, "成交明細") And E(i).Rows.Length > 1 Then
- For R = 0 To E(i).Rows.Length - 1
- For C = 0 To E(i).Rows(R).Cells.Length - 1
- Sh.Cells(R + 2, C + 1) = E(i).Rows(R).Cells(C).innerText
- Next
- Next
- End If
- Next
- .Quit '關閉網頁
- End With
- End Sub
|
|
發表於 2017-5-28 23:52
| 
