123
返回列表 上一主題 發帖

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

GBKEE

帖子
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
這方向是對的,有進步

  2. For S = 2 To 3                    '找出網頁的table 內容在 0-3 中
  3.   'j=2
  4. IF S=2 Then j=?                '寫下你的條件
  5. IF S=3 Then j=?
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

t8899

帖子
746 
主題
243 
精華
0 
積分
1002 
點名
0  
作業系統
WINXP 
軟體版本
OFFICE2003 
閱讀權限
50 
性別
男 
註冊時間
2011-5-30 
最後登錄
2024-4-28 
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

t8899

帖子
746 
主題
243 
精華
0 
積分
1002 
點名
0  
作業系統
WINXP 
軟體版本
OFFICE2003 
閱讀權限
50 
性別
男 
註冊時間
2011-5-30 
最後登錄
2024-4-28 
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

GBKEE

帖子
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

帖子
746 
主題
243 
精華
0 
積分
1002 
點名
0  
作業系統
WINXP 
軟體版本
OFFICE2003 
閱讀權限
50 
性別
男 
註冊時間
2011-5-30 
最後登錄
2024-4-28 
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

t8899

帖子
746 
主題
243 
精華
0 
積分
1002 
點名
0  
作業系統
WINXP 
軟體版本
OFFICE2003 
閱讀權限
50 
性別
男 
註冊時間
2011-5-30 
最後登錄
2024-4-28 
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

GBKEE

帖子
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
此網頁的程式碼
  1. Option Explicit
  2. Sub timestock()
  3. Application.ScreenUpdating = False
  4.     Dim i As Integer, S As Integer, K As Integer, j As Integer
  5.     Dim Element
  6.     With CreateObject("InternetExplorer.Application")
  7.         '.Visible = True           '可顯示網頁
  8.        .Navigate "http://newmis.twse.com.tw/stock/group.jsp?ex=tse&ind=TIDX#STATISTICS"
  9.         Do While .Busy Or .ReadyState <> 4: DoEvents: Loop
  10.         Set Element = .document.getelementsbytagname("table")
  11.         With Sheets("SHEET5")
  12.            .Cells.Clear
  13.             'For s = 0 To element.Length - 1 '不知此網頁的table內容:請先行測試網頁的完整table內容
  14.             For S = 1 To 3                    '已找出網頁的table內容在 0-3 中
  15.                 For i = 0 To Element(S).Rows.Length - 1
  16.                     K = K + 1
  17.                  For j = 0 To Element(S).Rows(i).Cells.Length - 1   '資料的欄位共6位
  18.                          .Cells(K, j + 1) = Element(S).Rows(i).Cells(j).innerText
  19.                     Next
  20.                Next
  21.             Next
  22.      '       .Cells.EntireColumn.AutoFit            '自動調整欄寬
  23.       '      .Cells.EntireRow.AutoFit               '自動調整列高
  24.         End With
  25.        .Quit
  26.     End With
  27.     Set Element = Nothing
  28.     MsgBox "0K"
  29. End Sub
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

stillfish00

帖子
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

t8899

帖子
746 
主題
243 
精華
0 
積分
1002 
點名
0  
作業系統
WINXP 
軟體版本
OFFICE2003 
閱讀權限
50 
性別
男 
註冊時間
2011-5-30 
最後登錄
2024-4-28 
11#
發表於 2014-1-13 15:35 | 只看該作者
本帖最後由 t8899 於 2014-1-13 15:40 編輯

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

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
10#
發表於 2014-1-11 09:12 | 只看該作者
回復 8# t8899
  1. Option Explicit
  2. Sub 集中市場大盤資訊()
  3.     Dim x, ie As Object, Sh As Worksheet
  4.     Set ie = CreateObject("InternetExplorer.Application")
  5.    ' ie.Visible = True          '是否顯示 IE
  6.     ie.Navigate "about:Tabs"    '空白的網頁
  7.     Set Sh = ActiveSheet        '設定工作表
  8.     Sh.Cells.Clear
  9.     Application.ScreenUpdating = False
  10.     With CreateObject("InternetExplorer.Application")
  11.     '    .Visible = True        '是否顯示 IE
  12.         .Navigate "http://newmis.twse.com.tw/stock/group.jsp?ex=tse&ind=TIDX#STATISTICS"
  13.         Do While .readyState <> 4
  14.             DoEvents
  15.         Loop
  16.         For Each x In .document.getElementsByTagName("table")
  17.             If x.ID <> "logo" Then
  18.                 With ie
  19.                     .document.body.innerHTML = x.outerHTML
  20.                     Do While .readyState <> 4 Or .busy
  21.                         DoEvents
  22.                     Loop
  23.                     .execwb 17, 2       '  網頁文字 Select All
  24.                     .execwb 12, 2       '  網頁文字 Copy
  25.                     With Sh
  26.                         If .UsedRange.Rows.Count = 1 Then
  27.                             .Range("A1").Select
  28.                         Else
  29.                             .Range("A" & .UsedRange.Rows.Count + 1).Select
  30.                         End If
  31.                         .PasteSpecial Format:="HTML"
  32.                     End With
  33.                 End With
  34.             End If
  35.         Next
  36.         .Quit
  37.     End With
  38.     ie.Quit
  39.     With Sh
  40.         .Columns.WrapText = False
  41.         .Columns.AutoFit
  42.         .[a1].Select
  43.     End With
  44.     Application.ScreenUpdating = True
  45. End Sub
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

        靜思自在 : 為自己找藉口的人永遠不會進步。
123
返回列表 上一主題