標題: 請問如何判斷網頁已經自動更新 [打印本頁]

---

作者: rogerwu1234    時間: 2011-7-18 01:55     標題: 請問如何判斷網頁已經自動更新

各位大大你好：

如果我在excel中的vba，程式碼有寫到ActiveWorkbook.RefreshAll來更新資料

但是更新資料必須花時間（大約需要20秒吧）

我要怎樣程式寫法來"確定資料已經更新完畢"
然後我才繼續下面的程式碼呢？

程式碼如下

For i = 100 To 1030
   
    Sheets("大盤週線").Select
   
    Cells(1050, 20) = Cells(i, 24)
    Cells(1050, 19) = WorksheetFunction.Round(Cells(1050, 20) / 100, 0)
   
    Sheets("現貨資料").Select
    ActiveWorkbook.RefreshAll 就是這一行要更新網頁資料，但是他執行很久  
      
   
    d2 = Cells(5, 41) / 100000
    d1 = Cells(20, 40)
   
    Sheets("大盤週線").Select
   
    Cells(i, 15) = WorksheetFunction.Round(d2, 2)
    Cells(i, 16) = WorksheetFunction.Round(d1 / d2, 4)
    Cells(i, 20) = Cells(1050, 20)
      
    Next i

---

作者: GBKEE    時間: 2011-7-18 07:32

回復 1# rogerwu1234
Dim E As QueryTable   
    Sheets("現貨資料").Select
    'ActiveWorkbook.RefreshAll      ***這一行要更新ActiveWorkbook所有的網頁資料, 所以他執行很久***
    For Each E In ActiveSheet.QueryTables         ' 作用中工作表.的網頁
        E.Refresh           
    Next   
    d2 = Cells(5, 41) / 100000
    d1 = Cells(20, 40)
    Sheets("大盤週線").Select

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)