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

kekl

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

kekl

回復 2# sunnyso

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

f3202

[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

回復 4# f3202


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

f3202

回復 4# kekl

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

kekl

回復 5# f3202


    謝謝前輩的指導:)