標題: [發問] 我要抓進出卷商的資料，但excel一直顯示背景執行更新中 [打印本頁]

---

作者: kekl    時間: 2013-8-22 21:39     標題: 我要抓進出卷商的資料，但excel一直顯示背景執行更新中

各位好
我剛開始學習使用excel巨集來抓股票的資訊，最近遇到一個問題一直無法解決
我一次要抓50個股票的卷商進出資訊(用for & next)，卷商資料是匯到excel做更新的
但是第一筆資料抓完後，換下一筆時卷商資料的頁面就無法自動更新，指令就停  "[主力進出!A5].QueryTable.Refresh BackgroundQuery:=False"。exce則l是顯示  "作業無法執行，因為資料正在背景執行更新中"
麻煩各位幫我看這是甚麼問題......謝謝大家的幫忙

---

作者: kekl    時間: 2013-8-24 09:35

回復 2# sunnyso

謝謝前輩的回覆
主要是在"主力進出"的那個分頁，只要將股票代碼copy過去就沒有辦法自動更新

---

作者: f3202    時間: 2013-8-24 21:51

[code][/code]回復 3# kekl

參考
Public Sub 選股()
Dim I As Integer
Sheets("賣超選股").Select
[b3:c53] = ""
For Z = 3 To 52
Cells(Z, 2).Value = Val(Cells(Z, 1).Value)
Next
For I = 3 To 52
Sheets("主力進出").Select
Range("A2").Value = Sheets("賣超選股").Cells(I, 2).Value

[主力進出!A5].QueryTable.Refresh BackgroundQuery:=False
Sheets("卷商").Select
For a = 2 To 28
Cells(a, 2).Select
ActiveCell.FormulaR1C1 = "=IFERROR(MATCH(RC[-1],主力進出!C[5],0),"""")"
Next a
Sheets("賣超選股").Select
Cells(I, 3).Select
ActiveCell.FormulaR1C1 = "=COUNT(卷商!C[-1])"
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
Next
End Sub

---

作者: kekl    時間: 2013-8-25 13:42

回復 4# f3202


   謝謝前輩的訂正，程式ok了，萬分感謝因為卡好久了
   但是想請問無法更新的問題主要是在哪裡?是股票代碼的取出有問題嗎?

---

作者: f3202    時間: 2013-8-25 21:37

回復 4# kekl

主因應該是
  Sheets("卷商").Select
ActiveWorkbook.RefreshAll  
這個動作

---

作者: kekl    時間: 2013-8-27 22:40

回復 5# f3202


    謝謝前輩的指導:)

---

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