返回列表 上一主題 發帖

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

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)
收藏 分享

herhsiu

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

TOP

herhsiu

帖子
47 
主題
12 
精華
0 
積分
70 
點名
0  
作業系統
WIN7 
軟體版本
2007 
閱讀權限
20 
性別
男 
來自
TAIWAN 
註冊時間
2010-7-28 
最後登錄
2021-12-1 
3#
發表於 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

        靜思自在 : 靜坐常恩己過、閒談莫論人非。
返回列表 上一主題