返回列表 上一主題 發帖

[發問] 擷取上櫃股價行情~遇到非交易日即跳出錯誤訊息!

回復 2# cudui
  1. On Error Resume Next
  2.     With ActiveSheet.QueryTables.Add(Connection:="URL;http://www.otc.org.tw/ch/stock/aftertrading/otc_quotes_no1430/SQUOTE_AL_" & myear & mmon & nowday & ".html" _
  3.         , Destination:=ActiveCell.Offset(2, 0))
  4.         .WebSelectionType = xlEntirePage
  5.         .WebFormatting = xlWebFormattingNone
  6.         .WebPreFormattedTextToColumns = True
  7.         .WebConsecutiveDelimitersAsOne = True
  8.         .WebSingleBlockTextImport = False
  9.         .WebDisableDateRecognition = False
  10.         .WebDisableRedirections = False
  11.         .Refresh BackgroundQuery:=False
  12.         If Err.Number <> 0 Then Err.Clear: MsgBox "資料查詢失敗"
  13.     End With
複製代碼

TOP

回復 9# cudui
這可自己試試看 不行再說

TOP

回復 12# cudui
[在出問題的那一列之前,增加: "On Error Resume Next"]
在那程序中 預計會發生錯誤的程式碼 前ˇ的任一列 增加: "On Error Resume Next" 皆可以

回復 14# cudui
http://www.otc.org.tw/ch/stock/a ... OTE_AL_1010402.html
1010402.html 這網頁 的月份 日期都是兩位數
Connection:="URL;http://www.otc.org.tw/ch/stock/a ... s_no1430/SQUOTE_AL_" & myear & mmon & nowday & ".html
mmon & nowday  須先處裡為兩位數
  1. mmon = Format(mmon, "00")
  2. nowday = Format(nowday, "00")
複製代碼

TOP

回復 16# cudui
應是這網頁的問題 幫你看了一下 3/1 ,3/2, 4/10  都無法匯入
可改用  Workbooks.Open ("http://www.otc.org.tw/ch/stock/aftertrading/otc_quotes_no1430/SQUOTE_AL_" & myear & mmon & nowday & ".CSV")  匯入

TOP

        靜思自在 : 道德是提昇自我的明燈,不該是呵斥別人的鞭子。
返回列表 上一主題