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

chwqk

TEST減資查詢.rar (9.56 KB)

TEST
下載次數: 8

2010-12-29 14:15

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

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

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

GBKEE

回復 1# chwqk
試試看

1. Sub Macro1()
   
2.     On Error Resume Next
   
3.     For I = 1 To 12
   
4.     If I < 10 Then
   
5.     M = "0" & I
   
6.     Else: M = I
   
7.     End If
   
8.     RD = "99" & M
   
9.     MsgBox RD
   
10.     Sheets("減資查詢").Select
    
11.     Range("A1").Select
    
12.     With Selection.QueryTable
    
13.         .Connection = _
    
14.         "URL;http://www.twse.com.tw/docs1/data01/market/public_html/b" & RD & ".txt"
    
15.         .WebSelectionType = xlEntirePage
    
16.         .WebFormatting = xlWebFormattingNone
    
17.         .WebPreFormattedTextToColumns = True
    
18.         .WebConsecutiveDelimitersAsOne = True
    
19.         .WebSingleBlockTextImport = False
    
20.         .WebDisableDateRecognition = False
    
21.         .WebDisableRedirections = False
    
22.         .Refresh BackgroundQuery:=False
    
23.     End With
    
24.     If Err > 0 Then
    
25.         MsgBox "查不到 " & RD
    
26.         Err.Clear
    
27.     End If
    
28.     Next I
    
29. End Sub

複製代碼