返回列表下一主題上一主題發帖

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

kekl

小學生 Rank: 1

帖子: 4
主題: 1
精華: 0
積分: 5
點名: 0
作業系統: WINXP
軟體版本: Office2007
閱讀權限: 10
性別: 男
註冊時間: 2013-8-22
最後登錄: 2013-9-1

論壇贊助勳章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2013-8-22 21:39 | 只看該作者

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

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

kekl

小學生 Rank: 1

帖子: 4
主題: 1
精華: 0
積分: 5
點名: 0
作業系統: WINXP
軟體版本: Office2007
閱讀權限: 10
性別: 男
註冊時間: 2013-8-22
最後登錄: 2013-9-1

論壇贊助勳章

2^#

發表於 2013-8-24 09:35 | 只看該作者

回復 2# sunnyso

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

選股2.rar (27.69 KB)

TOP

f3202

中學生 Rank: 2

帖子: 75
主題: 1
精華: 0
積分: 371
點名: 1
作業系統: win7
軟體版本: office 2007
閱讀權限: 20
註冊時間: 2010-5-4
最後登錄: 2024-11-15

3^#

發表於 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

TOP

kekl