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

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月無資料
歷史查詢即會出錯而中斷

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

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