t8899

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

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2015-4-4 20:14 | 顯示全部帖子

[發問] 請教此程序為何錯誤?

請教此程序為何錯誤?

Book1.zip (11.51 KB)

樓主熱帖

t8899

大學生 Rank: 4

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

2^#

發表於 2015-4-4 22:30 | 顯示全部帖子

最簡單的方法就是 "通通" 不用指定 Schedule:=False 就不會有這個問題了
If AG > TIMEB Then
Applicat ...
bobomi 發表於 2015-4-4 21:41

Schedule:=False 還是沒辦法終止?
之前在別的程序中也經常發生.......改成公用變數就可以停止,,這次就不行了
我的需求是跑一段時間後跳出再重跑，所以Schedule:=False 一定要確認退出才行

TOP

t8899

大學生 Rank: 4

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

3^#

發表於 2015-4-5 06:22 | 顯示全部帖子

本帖最後由 t8899 於 2015-4-5 06:23 編輯

(1) 為何要跑一段時間後跳出呢
是因為你的 Sub timestock() 還沒計算完時, Sub timestock() 卻又莫名重新 ...
bobomi 發表於 2015-4-4 23:10

上面是個測試
我是用ie連上某網站
Set Ie = CreateObject("InternetExplorer.Application")
Ie.Navigate "http://mis.twse.com.tw/stock/group.jsp?ex=tse&ind=TIDX#STATISTICS"
5秒網站會自動更新一次資料，我發現ie 停留10分會造成excel整個速度慢下來(滑鼠出現漏斗狀)，所以必須跳出IE, 再重跑

>>>>[a2] = [a2] + 1 ------------> 你這裡的真正原始 Code 是否是一段很耗時的計算, 會花蠻久的計算 ?????
我把這行拿掉也沒用

TOP

t8899

大學生 Rank: 4

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

4^#

發表於 2015-4-5 13:13 | 顯示全部帖子

本帖最後由 t8899 於 2015-4-5 13:15 編輯

Ie.Navigate "http://mis.twse.com.tw/stock/group.jsp?ex=tse&ind=TIDX#STATISTICS"
讓 Ie.Naviga ...
bobomi 發表於 2015-4-5 08:10

Ie.Refresh2 這是ie 的屬性 ??後面多一個2 ???

你的 Application.OnTime The_Time, "timestock", Schedule:=False 之所以會發出 Error Msg
是因為你的 Application.OnTime 早就已經自動被停止了

它是執行到那一行被停止的??如何確認它已被停止了??
---------------------------------------------------
另外請教另一個問題附檔

Book1.zip (10.03 KB)
此例 Schedule:=False 也是錯誤，不過要請教另一個問題
執行IE345678 後，大約17秒會重新跑(原本設計這是正常)，但執行中，為何切換到SHEET2時會連續一直出現"重跑"??
B2 的值當切換到SHEET2 就抓不到 ???(程序中有指定工作表)

TOP

t8899

大學生 Rank: 4

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

5^#

發表於 2015-4-5 14:54 | 顯示全部帖子

本帖最後由 t8899 於 2015-4-5 14:56 編輯

連續一直出現"重跑"??

If Time > + TIMEB Then
因為你的放在 module下, 而且沒有明確指定到底是 S ...
bobomi 發表於 2015-4-5 14:39

我有指明啊 !
它不是 private
With Workbooks("book1.xls").Sheets("sheet1")
.Range("B2") = TimeValue(Now)

TOP

t8899

大學生 Rank: 4

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

6^#

發表於 2015-4-5 18:02 | 顯示全部帖子

本帖最後由 t8899 於 2015-4-5 18:23 編輯

If Time >  + TIMEB Then

你的  前面沒有 . 啊

此時的  變成 Sheet2. = 空值

加上 . 就好了 ...
bobomi 發表於 2015-4-5 15:00

我看了好幾次，還是沒有看到，謝謝!

TOP

t8899

大學生 Rank: 4

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

7^#

發表於 2015-4-5 19:03 | 顯示全部帖子

本帖最後由 t8899 於 2015-4-5 19:04 編輯

你可以用菜單的搜尋
搜尋 If Time > + TIMEB Then
就可以找到
bobomi 發表於 2015-4-5 18:53

抱歉,經常看電腦螢幕，尤其在寫程式不知不覺一直注視.......加速眼睛老化..年紀也大了........所以看不到.........
現在找到了

TOP

t8899

大學生 Rank: 4

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

8^#

發表於 2015-4-5 20:15 | 顯示全部帖子

那個網址盤後測試是否一樣 ie 停留10分會造成excel整個速度慢下來
還是只有盤中才會 lag ?
bobomi 發表於 2015-4-5 19:39

這網頁每5秒會自動update 一次，所以我連上一次然後開個副程式每隔5秒-60秒抓一次
每隔n秒抓一次，並不會造成lag, 是IE 連上後10分鐘才會lag, 從工作管理員看ie佔記憶體,時間越久記憶體佔越大
盤後我沒測試
這網頁不一定要借用IE來抓，應該還有其他方法像 XMLHTTP......... 不知您會嗎?可否賜教?

TOP

t8899

大學生 Rank: 4

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

9^#

發表於 2015-4-5 21:20 | 顯示全部帖子

本帖最後由 t8899 於 2015-4-5 21:25 編輯

以下是用 XMLHTTP 抓出來的內容
可以看到有欄位名稱, 但抓不到數值
那個網頁的數值是用 javascript 事後補 ...
bobomi 發表於 2015-4-5 20:39

這種5秒5秒一直更新，只有javascript 才做的到??
用IE 抓資料，速度太慢........太消眊資源...............再找看看有無其他法!
我目前是用GBKEE兄寫的,稍微做部份修改如下
Set Ie = CreateObject("InternetExplorer.Application")
Ie.Navigate "http://mis.twse.com.tw/stock/group.jsp?ex=tse&ind=TIDX#STATISTICS"
Dim timeie
timeie = DateAdd("s", 10, Now())
Do While Ie.Busy Or Ie.ReadyState <> 4
DoEvents
         If timeie < Now() Then
      MsgBoxTest 0, "無法連接網站,請重新執行", "提示訊息", vbSystemModal, 0, 2000
      Ie.Quit
         Exit Sub
         End If
         Loop
-----------------------------------------------------------------------------
Dim i As Integer, S As Integer, k As Integer, j As Integer
   Dim Element
Set Element = Ie.document.getelementsbytagname("table")
With Sheets("sheet5")
   '  .Range("C1:C17").ClearContents
      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
End With
Set Element = Nothing

TOP