CreateObject("InternetExplorer.Application") 執行完有時會無法跳出?? - Excel程式區

帖子: 765
主題: 255
精華: 0
積分: 1033
點名: 0
作業系統: windows 11
軟體版本: OFFICE2021
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2025-10-27

11^# 跳轉到 »

發表於 2014-1-13 15:35 | 只看該作者

本帖最後由 t8899 於 2014-1-13 15:40 編輯

有時可以跳出??有時又無法跳出??真奇怪.......
仔細觀察，第一次執行為兩個ieplorer.exe 在執行 ??，接下來就一次一個........
我把 .Visible = True '==> enable
殘留是一個空白的網頁

TOP

stillfish00

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

12^#

發表於 2014-1-13 16:37 | 只看該作者

回復 2# t8899
On Error Resume Next 的目的??
非必要別這樣使用

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

13^#

發表於 2014-1-13 17:40 | 只看該作者

回復 2# t8899
此網頁的程式碼

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")
With Sheets("SHEET5")
.Cells.Clear
'For s = 0 To element.Length - 1 '不知此網頁的table內容:請先行測試網頁的完整table內容
For S = 1 To 3 '已找出網頁的table內容在 0-3 中
For i = 0 To Element(S).Rows.Length - 1
K = K + 1
For j = 0 To Element(S).Rows(i).Cells.Length - 1 '資料的欄位共6位
.Cells(K, j + 1) = Element(S).Rows(i).Cells(j).innerText
Next
Next
Next
' .Cells.EntireColumn.AutoFit '自動調整欄寬
' .Cells.EntireRow.AutoFit '自動調整列高
End With
.Quit
End With
Set Element = Nothing
MsgBox "0K"
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

t8899

大學生 Rank: 4

帖子: 765
主題: 255
精華: 0
積分: 1033
點名: 0
作業系統: windows 11
軟體版本: OFFICE2021
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2025-10-27

14^#

發表於 2014-1-14 08:48 | 只看該作者

本帖最後由 t8899 於 2014-1-14 09:00 編輯

回復 t8899
此網頁的程式碼
GBKEE 發表於 2014-1-13 17:40

1.此網頁有三個表格，我只要
第二個放入A1及
第三個"股票"欄位放入C5
如何修改?
2.由於我30秒會執行一次此程序
借IE 抓開開關關，似乎較慢...用上樓的程序有時還是會卡住無法關閉?(一直出現"ok"訊息視窗")
是否有其他寫法??

TOP

t8899

大學生 Rank: 4

帖子: 765
主題: 255
精華: 0
積分: 1033
點名: 0
作業系統: windows 11
軟體版本: OFFICE2021
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2025-10-27

15^#

發表於 2014-1-14 09:18 | 只看該作者

一直出現"ok"訊息視窗是套入我的巨集的一段
For i = 1 To 10
Dim aaa As Variant
aaa = Sheets("Sheet5").Range("C3")
If IsNumeric(aaa) Then Exit For
If Not IsNumeric(aaa) Then Run "timestock"
Next

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

16^#

發表於 2014-1-14 13:50 | 只看該作者

本帖最後由 GBKEE 於 2014-1-14 13:57 編輯

回復 15# t8899
一直出現"ok"訊息視窗?? 你是中學生應該會關閉這"ok"視窗.有問題試著自己解決,VBA才會進步.
附上檔案看看

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

t8899

大學生 Rank: 4

帖子: 765
主題: 255
精華: 0
積分: 1033
點名: 0
作業系統: windows 11
軟體版本: OFFICE2021
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2025-10-27

17^#

發表於 2014-1-14 14:43 | 只看該作者

本帖最後由 t8899 於 2014-1-14 14:48 編輯

回復 t8899
一直出現"ok"訊息視窗?? 你是中學生應該會關閉這"ok"視窗.有問題試著自己解決,VBA才會進步. ...
GBKEE 發表於 2014-1-14 13:50

' MsgBox "0K"
主要不是MsgBox 的問題，是ie 跳不出來..........
現在又可以跳出來了!
謝謝! 我自己在慢慢找..........
我也有興趣把它找出來!:)

TOP

t8899

大學生 Rank: 4

帖子: 765
主題: 255
精華: 0
積分: 1033
點名: 0
作業系統: windows 11
軟體版本: OFFICE2021
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2025-10-27

18^#

發表於 2014-1-14 14:57 | 只看該作者

回復 t8899
一直出現"ok"訊息視窗?? 你是中學生應該會關閉這"ok"視窗.有問題試著自己解決,VBA才會進步. ...
GBKEE 發表於 2014-1-14 13:50

我改了一下，是否跟這有關??(紅色部份)
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")
      With Sheets("SHEET5")
      '  .Cells.Clear
        .Range("A1:F17").ClearContents
         '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 Element(S).Rows(i).Cells.Length - 1 '資料的欄位共6位
                 j=2
                     .Cells(K, j + 1) = Element(S).Rows(i).Cells(j).innerText
                  Next
        ' Next
         Next
   '    .Cells.EntireColumn.AutoFit          '自動調整欄寬
   '    .Cells.EntireRow.AutoFit             '自動調整列高
      End With
   .Quit
End With
Set Element = Nothing
  '  MsgBox "0K"
End Sub

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

19^#

發表於 2014-1-14 15:31 | 只看該作者

回復 18# t8899
這方向是對的,有進步

For S = 2 To 3 '找出網頁的table 內容在 0-3 中
'j=2
IF S=2 Then j=? '寫下你的條件
IF S=3 Then j=?

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

t8899

大學生 Rank: 4

帖子: 765
主題: 255
精華: 0
積分: 1033
點名: 0
作業系統: windows 11
軟體版本: OFFICE2021
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2025-10-27

20^#

發表於 2014-1-15 14:38 | 只看該作者

回復 t8899
這方向是對的,有進步
GBKEE 發表於 2014-1-14 15:31

With CreateObject("InternetExplorer.Application")
.Navigate "http://newmis.twse.com.tw/stock/group.jsp?ex=tse&ind=TIDX#STATISTICS
.Quit

請問30秒抓一次資料, 抓完無須 quit ,可以改成每隔30秒再繼續抓嗎??(中間做一個循還)
不用一直執行 iexplorer.exe 開開關關???

TOP

[發問] CreateObject("InternetExplorer.Application") 執行完有時會無法跳出??

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]