- 帖子
- 765
- 主題
- 255
- 精華
- 0
- 積分
- 1033
- 點名
- 0
- 作業系統
- windows 11
- 軟體版本
- OFFICE2021
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2011-5-30
- 最後登錄
- 2025-10-27
|
[發問] CreateObject("InternetExplorer.Application") 執行完有時會無法跳出??
本帖最後由 t8899 於 2014-1-13 12:07 編輯
CreateObject("InternetExplorer.Application") 執行完有時會無法跳出??
有時會在記憶體裡???如果不理它，會越來越多個iexplorer.exe 到最後會出現錯誤.............
Option Explicit
Sub timestock()
Application.ScreenUpdating = False
Dim i As Integer, S As Integer, K As Integer, j As Integer
Dim Element
With CreateObject("InternetExplorer.Application")
'.Visible = True '可顯示網頁
.Navigate "http://newmis.twse.com.tw/stock/group.jsp?ex=tse&ind=TIDX#STATISTICS"
Do While .Busy Or .ReadyState <> 4: DoEvents: Loop
Set Element = .document.getelementsbytagname("table")
On Error Resume Next
With Sheets("sheet5")
.Cells.CLEAR
'For s = 0 To element.Length - 1 '不知此網頁的table內容:請先行測試網頁的完整table內容
For S = 2 To 3 '已找出網頁的table內容在 0-3 中
For i = 0 To Element(S).Rows.Length - 1
K = K + 1
For j = 0 To 5 '資料的欄位共6位
.Cells(K, j + 1) = Element(S).Rows(i).Cells(j).innerText
'********************************************
'不知此網頁的table內容:先行列出 table 位置 *
'Sheets(2).Cells(k, J + 1) = s '*
'********************************************
Next
Next
Next
' .Cells.EntireColumn.AutoFit '自動調整欄寬
' .Cells.EntireRow.AutoFit '自動調整列高
End With
.Quit
End With
Set Element = Nothing
' MsgBox "0K"
End Sub
|
|
發表於 2014-1-9 07:27
| 
