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

[發問] 找不到的網頁如何設定自動跳過,然後執行下一個呢?

norafang

小學生 Rank: 1

帖子: 26
主題: 7
精華: 0
積分: 27
點名: 0
作業系統: WINDOWS
軟體版本: OFFICE 2013
閱讀權限: 10
性別: 男
註冊時間: 2014-1-21
最後登錄: 2021-3-25

論壇贊助勳章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2014-2-2 10:37 | 只看該作者

[發問] 找不到的網頁如何設定自動跳過,然後執行下一個呢?

本帖最後由 norafang 於 2014-2-2 10:40 編輯

剛找了一下,相關主題找不到我要的答案,所以想說問看看有沒有大大可以幫忙解決
內容是,我有一個管控表固定去捉一些特定網站的股票資料,但有些網站也許並沒有符合每一檔股票的資料就會產生錯誤
比如我在捉台積電2330也許在yahoo會有公司資料,但台灣50, 0050也許就捉不到了,
遇到這種相關的寫法,又不想因找不到就中斷程式的問題,如何寫一段讓它找不到就跳過去該網站,再進行下一個網站的捉取呢?
因為整個寫法很長,我把我寫的前二個捉取網站貼上,我的0050就停在第二個網址就跑不下去了

x = Worksheets("管控表").Range("a1")
datetake = Format(Now, "yyyy-m-dd")
datetake180 = Format(Now - 180, "yyyy-m-dd")
yeartake = Format(Now, "yyyy")
yeartakech = Worksheets(Sheets.Count).Range("a43")
siteshow = "http://money.hinet.net/z/z0/z00/z00a_" & x & "_" & datetake180 & "_" & datetake & "_M.djhtm"
' MsgBox siteshow
Worksheets("copy").Copy after:=Worksheets(Sheets.Count)
With ActiveSheet.QueryTables.Add(Connection:= _
      "URL;http://tw.stock.yahoo.com/q/q?s=" & x, Destination:=Worksheets(Sheets.Count).Range("$AA$1"))
      .Name = "q?s=" & x
      .FieldNames = True
      .RowNumbers = False
      .FillAdjacentFormulas = False
      .PreserveFormatting = True
      .RefreshOnFileOpen = False
      .BackgroundQuery = True
      .RefreshStyle = xlOverwriteCells
      .SavePassword = False
      .SaveData = True
      .AdjustColumnWidth = True
      .RefreshPeriod = 0
      .WebSelectionType = xlSpecifiedTables
      .WebFormatting = xlWebFormattingNone
      .WebTables = "7"
      .WebPreFormattedTextToColumns = True
      .WebConsecutiveDelimitersAsOne = True
      .WebSingleBlockTextImport = False
      .WebDisableDateRecognition = False
      .WebDisableRedirections = False
      .Refresh BackgroundQuery:=False
End With
With ActiveSheet.QueryTables.Add(Connection:= _
      "URL;http://tw.stock.yahoo.com/d/s/company_" & x & ".html", Destination:=Worksheets(Sheets.Count).Range( _
      "$AA$9"))
      .Name = "company_" & x
      .FieldNames = True
      .RowNumbers = False
      .FillAdjacentFormulas = False
      .PreserveFormatting = True
      .RefreshOnFileOpen = False
      .BackgroundQuery = True
      .RefreshStyle = xlOverwriteCells
      .SavePassword = False
      .SaveData = True
      .AdjustColumnWidth = True
      .RefreshPeriod = 0
      .WebSelectionType = xlSpecifiedTables
      .WebFormatting = xlWebFormattingNone
      .WebTables = "9,10,11"
      .WebPreFormattedTextToColumns = True
      .WebConsecutiveDelimitersAsOne = True
      .WebSingleBlockTextImport = False
      .WebDisableDateRecognition = False
      .WebDisableRedirections = False
      .Refresh BackgroundQuery:=False
End With
end sub