12
返回列表 上一主題 發帖

[發問] [求助]資料查詢沒有回應

herhsiu

帖子
47 
主題
12 
精華
0 
積分
70 
點名
0  
作業系統
WIN7 
軟體版本
2007 
閱讀權限
20 
性別
男 
來自
TAIWAN 
註冊時間
2010-7-28 
最後登錄
2021-12-1 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2013-10-1 10:36 | 只看該作者

[發問] [求助]資料查詢沒有回應

此檔是從集保中心查詢股權分散表,目的是要把股權有集中的個股給篩選出來,可是程式執行一段時間後都會沒有回應,沒有辦法順利跑完,請教先進該如何修正?感激不盡~

Query.zip (76.75 KB)
收藏 分享

HSIEN6001

帖子
219 
主題
24 
精華
0 
積分
243 
點名
0  
作業系統
Windows10 
軟體版本
Office2016 
閱讀權限
20 
性別
女 
註冊時間
2012-4-18 
最後登錄
2022-2-7 

論壇榮譽勳章論壇贊助勳章
2#
發表於 2013-10-1 21:40 | 只看該作者
回復 1# herhsiu


    應該是溢位問題,改這兩個
(1)Dim i As Long       'Integer  運算溢位,故改為 Long
(2)idx As Long

TOP

luhpro

帖子
835 
主題
6 
精華
0 
積分
915 
點名
16  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2024-11-14 
3#
發表於 2013-10-1 23:21 | 只看該作者
回復 1# herhsiu

你的檔案怪怪的,
我用單步模式跑 Workbook_Open() 程序,
執行到 :
Range("C2") = Year(Date) & Format(Month(Date), "00") & Format(Day(Date), "00")
這一行時VBA執行緒會直接跳到
Function Trans2Mon(str As String)   ~    End Function  這個功能區塊內,
且一直重複著執行此功能,
即便已經執行到 Exit Function 或是 End Function,
照樣下一步還是跑 Function Trans2Mon(str As String) 這行,(即又重頭開始跑...無限迴圈?)
我也看不出來為什麼會發生這樣的現象.

因為搜遍整個專案都沒看到呼叫 Trans2Mon 功能的敘述,
所以我試著把該功能的程序整個都給它 Mark 掉之後,
再按 "海撈" 按鍵程式跑起來就變快了.
另 因為我發現轉檔過程中股票代號都沒隨之更新,
所以我嘗試修改了一下 GetMonData 程序 :
  1.          If [a3] <> "" Then
  2.             [b1] = stkno
  3.             StkName = [a3]
  4.             Exit For
  5.          Else
複製代碼
Query-A.zip (93.38 KB)

TOP

herhsiu

帖子
47 
主題
12 
精華
0 
積分
70 
點名
0  
作業系統
WIN7 
軟體版本
2007 
閱讀權限
20 
性別
男 
來自
TAIWAN 
註冊時間
2010-7-28 
最後登錄
2021-12-1 
4#
發表於 2013-10-2 07:08 | 只看該作者
To luhpro大大:
Trans2Mon 自訂義函數是為了將下載回來的資料日期格式做轉換
==> 將 資料日期：99年02月01日 --> 99/02
看來的確是這個函數造成的,感謝~

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
5#
發表於 2013-10-2 15:43 | 只看該作者
本帖最後由 GBKEE 於 2013-10-2 15:51 編輯

回復 4# herhsiu



有辦法將每日資料會成一份
  1.     If .QueryTables.Count = 0 Then
  2. 29.                .QueryTables.Add "URL;" & Qur, .[A1]
  3. 30.            Else
  4. 31.                .QueryTables(1).Connection = "URL;" & Qur
  5. 32.                Msg = True
  6. 33.            End If
  7. 34.           With .QueryTables(1)
複製代碼
回復 3# luhpro
搜遍整個專案都沒看到呼叫 Trans2Mon 功能的敘述,在這裡



感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

HSIEN6001

帖子
219 
主題
24 
精華
0 
積分
243 
點名
0  
作業系統
Windows10 
軟體版本
Office2016 
閱讀權限
20 
性別
女 
註冊時間
2012-4-18 
最後登錄
2022-2-7 

論壇榮譽勳章論壇贊助勳章
6#
發表於 2013-10-2 19:39 | 只看該作者
回復 5# GBKEE
這份股權資料作者來自[笑話一籮筐]部落格的李先生,原始檔案如下
大股東的透視鏡-原始檔.rar (43.53 KB)

-------------------------------
回復 1# herhsiu
根據您修改的部份源碼,判斷您應該是想要下載所有代號的股權資料
    n = Sheet1.Range("A65536").Rows.End(xlUp).Row
    For id = 2 To n
        Range("D2") = id
        stkno = Sheet1.Cells(id, 1) '個股代碼

因為全部股票資料量,運算會產生溢位,故提醒 Integer  要改為 Long
股權.rar (292.81 KB)

TOP

luhpro

帖子
835 
主題
6 
精華
0 
積分
915 
點名
16  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2024-11-14 
7#
發表於 2013-10-2 23:31 | 只看該作者
本帖最後由 luhpro 於 2013-10-2 23:32 編輯

回復 5# GBKEE
嗯...有看到了,謝謝你告訴我.

不過就像我上面所說的,
我再次用單步跑過Workbook_Open一遍,
發現即使該功能只有在 Sheets("進階整理") 中才有公式去引用到,
然而即便只是變更 Sheets("股票代碼") 裡的儲存格內容(根本與該Function無關),
那個 Function Trans2Mon 仍然是把所有有引用到該公式的儲存格全部都重新計算一次, (任一Sheet中的任何一個儲存格內容變更,它都會全部都再計算一輪 O.O" )
難怪把那個 Function 拿掉後速度差那麼多.

我試了一下, 把那 12 個儲存格公式改為 :
  1. =CONCATENATE(MID(INDIRECT(ADDRESS(221 - (COLUMN() - 2)  * 20,1,1,1,"近一年資料"),1),6,3),"/",MID(INDIRECT(ADDRESS(221 - (COLUMN() - 2)  * 20,1,1,1,"近一年資料"),1),10,2))
複製代碼
就可以把  Function Trans2Mon 拿掉了,
感覺上速度似乎有比較快.
甚至若把 INDIRECT(ADDRESS(221 - (COLUMN() - 2)  * 20,1,1,1,"近一年資料"),1) 分割出來另用儲存格存放,
公式也能更簡化, 速度應該也會更快.

我想我以後會儘量避免在儲存格公式中引用 Function,
因為非必要的計算動作-loading 太重太多了.

TOP

HSIEN6001

帖子
219 
主題
24 
精華
0 
積分
243 
點名
0  
作業系統
Windows10 
軟體版本
Office2016 
閱讀權限
20 
性別
女 
註冊時間
2012-4-18 
最後登錄
2022-2-7 

論壇榮譽勳章論壇贊助勳章
8#
發表於 2013-10-3 08:17 | 只看該作者
Sorry,,,百密一疏
改一下這裡
    Sheets("資料").Range("A" & CStr((idx - 2) * 17 + 1) & ":A" & CStr((idx - 2) * 17 + 17)) = 代號
股權.rar (517.81 KB)

TOP

herhsiu

帖子
47 
主題
12 
精華
0 
積分
70 
點名
0  
作業系統
WIN7 
軟體版本
2007 
閱讀權限
20 
性別
男 
來自
TAIWAN 
註冊時間
2010-7-28 
最後登錄
2021-12-1 
9#
發表於 2013-10-3 15:57 | 只看該作者
回復 5# GBKEE

GBKEE大大,程式修改後資料查詢碰到沒有資料的日期(5/1勞動節)會出現錯誤中斷,原本的code卻不會有這種情況,請問該如何解決?謝謝~



    Qur = "http://www.tdcc.com.tw/smWeb/QryStock.jsp?SCA_DATE=" & strDate & "&SqlMethod=StockNo&StockNo=" & stkno & "&StockName=&sub=%ACd%B8%DF"
   
       If Sheet3.QueryTables.Count = 0 Then
            Sheet3.QueryTables.Add "URL;" & Qur, Sheet3.[A3]
            Else
                Sheet3.QueryTables(1).Connection = "URL;" & Qur
                Msg = True
       End If

         With Sheet3.QueryTables(1)
             .Name = "持股分佈"
             .FieldNames = True
             .RowNumbers = False
             .FillAdjacentFormulas = False
             .PreserveFormatting = False
             .RefreshOnFileOpen = False
             .BackgroundQuery = True
             .RefreshStyle = xlOverwriteCells
             .SavePassword = False
             .SaveData = True
             .AdjustColumnWidth = False
             .RefreshPeriod = 0
             .WebSelectionType = xlSpecifiedTables
             .WebFormatting = xlWebFormattingNone
             .WebTables = "6,7,8"
             .WebPreFormattedTextToColumns = True
             .WebConsecutiveDelimitersAsOne = True
             .WebSingleBlockTextImport = False
             .WebDisableDateRecognition = False
             .WebDisableRedirections = False
             .Refresh BackgroundQuery:=False
         End With

TOP

cji3cj6xu6

帖子
112 
主題
19 
精華
0 
積分
136 
點名
0  
作業系統
window 
軟體版本
excel 
閱讀權限
20 
性別
男 
註冊時間
2013-3-12 
最後登錄
2022-11-29 

論壇贊助勳章
10#
發表於 2013-12-3 15:38 | 只看該作者
你的現象我遇過，
建議你將股票代號帶進去原始檔中，
當原始檔在抓取每檔股票資料時，塞進去1 or 2 秒鐘，
再將你要的資料抓出來。

如此應該可行∼

TOP

        靜思自在 : 要用心，不要操心、煩心。
12
返回列表 上一主題