GBKEE

回復 10# t8899
這語法上的錯誤,(手誤,9#的內容已修正)可試著修改.

t8899

回復  t8899
這語法上的錯誤,(手誤,9#已修正)可試著修改.
GBKEE 發表於 2013-9-4 09:03

9# 是  ??

t8899

回復  t8899
這語法上的錯誤,(手誤,9#的內容已修正)可試著修改.
GBKEE 發表於 2013-9-4 09:03

試了一個小時，大約1 分鐘更新一次，中間excel 卡住兩次 沒反應?
是否連線無法成功造成?可否改成5秒沒連上就程式就跳出?

GBKEE

回復 13# t8899
大約1 分鐘更新一次,沒那麼慢吧! (定時清除將你pc上的暫存檔,還有刪除ie上瀏灠紀錄,速度會快很多)
試試 6# 更新的程式碼

下載 (37.77 KB)

2013-9-4 12:56

t8899

語法錯誤?
t8899 發表於 2013-9-4 08:54

大約1 分鐘更新一次,沒那麼慢吧  

我指的一分鐘是我設定每1分鐘跑一次巨集,(不是程式跑一次要1分鐘)
等於跑了60次，excel 中途當了兩次
是否連線的關系?如果是可否改成5秒連不成就跳出?

.Cells.Clear 改成->.Cells="" 試試看  

六樓程式碼重新跑了兩次，貼上連結的儲存格仍然是#REF!
    附檔 TEST.rar (11.49 KB)

下載次數: 12

2013-9-4 14:45

GBKEE

回復 15# t8899
是這樣嗎?

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim xlVbTable As Object, Ar, R As Integer, C As Integer, i As Variant, Y As Integer
   
4.     Dim t As Date, Msg As Boolean
   
5.     t = Time
   
6.     With CreateObject("InternetExplorer.Application")
   
7.        ' .Visible = True
   
8.        .Navigate "http://udn.megatime.com.tw/asp/hot/ShortOperate.asp?lcount=20&m=puplim&align=v"
   
9.         Do While (.Busy Or .ReadyState <> 4) And Msg = False
   
10.              DoEvents
    
11.              If Time > t + #12:00:05 AM# Then Msg = True
    
12.         Loop
    
13.          On Error Resume Next
    
14.         If Msg = True Then
    
15.             .Quit
    
16.             MsgBox "連線的時間超過5秒"
    
17.         Else
    
18.             Set xlVbTable = .document.getelementsbytagname("table")
    
19.             With Sheets("Sheet5")
    
20.                 .Cells = ""
    
21.                 .Cells(1, 1) = "漲停鎖死股"
    
22.                 For Each i In Array(20, 24)
    
23.                     If i = 24 Then .Cells(1, "J") = "跌停鎖死股"
    
24.                     Y = 2
    
25.                     For R = 0 To xlVbTable(i).Rows.Length - 1
    
26.                         For C = 0 To xlVbTable(i).Rows(1).ALL.Length - 1
    
27.                             .Cells(Y, C + IIf(i = 20, 1, 10)) = xlVbTable(i).Rows(R).Cells(C).innerText
    
28.                             'IIf(i = 20, 1, 10) ->  1:="A", 10:="J"
    
29.                         Next
    
30.                         Y = Y + 1
    
31.                     Next
    
32.                     If i = 20 Then .Rows(13).Delete   '貼上連結的儲存格仍然是#REF!->儲存格被刪除掉
    
33.                 Next
    
34.             End With
    
35.             .Quit
    
36.             Sheets("Sheet3").[I4:I22] = "=SHEET5!RC[-6]" '貼上連結的儲存格仍
    
37.             MsgBox Application.Text(Time - t, "費時 [ss] 秒")            
    
38.         End If
    
39.     End With
    
40. End Sub

複製代碼

t8899

回復  t8899
是這樣嗎?
GBKEE 發表於 2013-9-4 16:55

嗯, 完美無缺.
抱歉小弟vb 剛初學

  If i = 20 Then .Rows(13).Delete   

  這是delete sheet5的那一個?

  Sheets("Sheet3").[I4:I22] = "=SHEET5!RC[-6]"  

RC[-6] ===>是指??

GBKEE

回復 17# t8899
Rows(13).Delete   ->第13列

下載 (55.58 KB)

2013-9-4 21:02

詳看  FormulaR1C1, Rows  的VBA 說明

t8899

回復  t8899
Rows(13).Delete   ->第13列詳看  FormulaR1C1, Rows  的VBA 說明
GBKEE 發表於 2013-9-4 21:06

謝謝!
另外請教一下,下面宣告如何改為公用?
Private Declare Function MsgBoxTest Lib "user32" Alias "MessageBoxTimeoutA" ( _
是將 private 改為 public 就可以了嗎?

GBKEE

回復 19# t8899
試試看不就知道.