返回列表 上一主題 發帖

EXCEL網頁查詢如何避開不存在網頁

chwqk
　暱稱: 吳世

中學生Rank: 2

帖子
29 
主題
15 
精華
0 
積分
50 
點名
0  
作業系統
WINDOW XP 
軟體版本
2003 
閱讀權限
20 
性別
男 
來自
TAIPEI 
註冊時間
2010-5-4 
最後登錄
2021-11-24 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2010-12-29 14:16 | 顯示全部帖子

EXCEL網頁查詢如何避開不存在網頁

TEST減資查詢.rar (9.56 KB)
小弟每日用EXCEL網頁查詢在證交所公告區"減資公告"為每日查詢之一項
路徑:
http://www.twse.com.tw/docs1/data01/market/public_html/b9912.txt

Sub Macro1()
    For I = 1 To 12
    If I < 10 Then
    M = "0" & I
    Else: M = I
    End If
    RD = "99" & M
   
    MsgBox RD
   
    Sheets("減資查詢").Select
    Range("A1").Select
    With Selection.QueryTable
        .Connection = _
        "URL;http://www.twse.com.tw/docs1/data01/market/public_html/b" & RD & ".txt"
        .WebSelectionType = xlEntirePage
        .WebFormatting = xlWebFormattingNone
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With
   
    Next I
End Sub

但是證交所公告區關於"減資公告"採月份查詢方式
當每月初尚無資料時則會出現錯誤訊息而中斷查詢工作

例如今年(99)4,5月無資料
歷史查詢即會出錯而中斷

其實每月一開始尚無新資料時都會中斷!!

請問有方法讓當月尚無資料時 網路查詢能偵測到 而不會中斷其後工作方法嗎?
收藏 分享

        靜思自在 : 做該做的事是智慧，做不該做的事是愚癡。
返回列表 上一主題