- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
16#
發表於 2014-9-3 16:10
| 只看該作者
回復 14# wufonna
請詳看註解- Private Sub GetDividend(ByVal ss As String)
- Dim rr As String, T As Date, i, ii, k, j, S As Object
- 'On Error Resume Next '程式的執行沒有預期的錯誤,此行可不用.
- T = Time
- rr = "http://yamstock.megatime.com.tw/asp/stockinfo/GetReport.asp?select_table=html\Ficxxx\&stockid=" & ss & "&name1=D4&index1=12" ' 正確的
- With ie
- .Navigate rr
- Do While .readyState <> 4 '等待網頁下載完畢
- DoEvents
- If Time >= T + #12:00:03 AM# Then '等待8秒 3秒太少會誤錯改8妙
- DoEvents
- Application.SendKeys "~" '股票代號錯誤,網頁會有訊息,須按確定,才可繼續下面股票代號
-
- Exit Do
- End If
- Loop
- ''***不是等待8秒 3秒太少會誤錯改8妙 ***
- Do
- Set S = .Document.getElementsByTagName("table")(4) ' 新的 table 4
- Loop Until Not S Is Nothing
- '*** 勝一 沒捉到 ????
- '*** 因程式運行太快 , S Is Nothing, S 尚未指定為.Document.getElementsByTagName("table")(4)
- '*** 程式已經執行下一行, With 工作表2 的程式碼
- With 工作表2
- .UsedRange.Clear
- For i = 0 To S.Rows.Length - 1 '寫入資料
- k = k + 1
- 'For j = 0 To S.Rows(i).Length - 1 '這行是錯誤的 也是多餘的迴圈
- '用 On Error Resume Next 使程式繼續執行
- For ii = 0 To S.Rows(i).Cells.Length - 1 ' S.Rows(i).Cells.Length - 1 才是正確
- .Cells(k, ii + 1) = S.Rows(i).Cells(ii).innerText
- DoEvents
- Next
- 'Next
- Next
- End With
- End With
- End Sub
複製代碼 |
|