Board logo

標題: [發問] 原本執行正常但隔天卻變異常的程式碼 [打印本頁]
作者: smart3135    時間: 2017-2-25 06:31     標題: 原本執行正常但隔天卻變異常的程式碼

本帖最後由 smart3135 於 2017-2-25 06:45 編輯

想請教一下各位前輩，以下的程式碼在寫好當天原本可以正常抓到輸入日期的資料
在程式碼完全沒有變更的情況下，隔天執行時輸入較舊的日期卻只能抓到最新當天的資料
有時甚至還抓不到資料，不知道是我電腦EXCEL版本的問題還是程式碼有問題？可以請高手們幫忙看一下嗎？
非常感謝[attach]26720[/attach]
  1. Option Explicit
  2. Sub 上市外資和投信()
  3.   Dim X, Y, qdate, select2 As String
  4.   Sheets("資料區").Select
  5.   X = InputBox("請輸入月份")
  6.   Y = InputBox("請輸入日期")
  7.   qdate = "106" & "/" & X & "/" & Y
  8.   select2 = "ALLBUT0999"

  10.   With ActiveSheet.QueryTables.Add(Connection:= _
  11.     "URL;http://www.twse.com.tw/ch/trading/fund/T86/T86.php", Destination:=Range( _
  12.     "$A$1"))
  13.     .Name = "證交所三大法人買賣超日報"
  14.     .FieldNames = True
  15.     .RowNumbers = False
  16.     .FillAdjacentFormulas = False
  17.     .PreserveFormatting = False
  18.     .RefreshOnFileOpen = False
  19.     .BackgroundQuery = False
  20.     .RefreshStyle = xlOverwriteCells
  21.     .AdjustColumnWidth = False
  22.     .WebSelectionType = xlSpecifiedTables
  23.     .WebFormatting = xlWebFormattingNone
  24.     .WebTables = "2"
  25.     .PostText = "qdate=" & qdate & "&select2=" & select2
  26.     .WebPreFormattedTextToColumns = True
  27.     .WebConsecutiveDelimitersAsOne = True
  28.     .WebSingleBlockTextImport = False
  29.     .WebDisableDateRecognition = True
  30.     .WebDisableRedirections = False
  31.     .Refresh BackgroundQuery:=False
  32.   End With

  34. End Sub
  35. Sub 上櫃外資買賣超()
  36. '上櫃外資買賣超
  37.     Dim X, Y, mydate As String
  38.     X = InputBox("請輸入月份")
  39.     Y = InputBox("請輸入日期")
  40.     mydate = "106" & "/" & X & "/" & Y
  41.     Sheets("資料區").Select
  42.     With ActiveSheet
  43.         .Cells.Clear
  44.          With .QueryTables.Add(Connection:= _
  45.             "TEXT;http://www.tpex.org.tw/web/stock/3insti/qfii_trading/forgtr_download.php?l=zh-tw&t=D&type=buy&d=mydate&s=0,asc,1" _
  46.                         , Destination:=.Range("$A$1"))
  47.             .TextFileCommaDelimiter = True
  48.             .Refresh BackgroundQuery:=False
  49.             .Delete
  50.         End With
  51.     End With
  52. End Sub
  53. Sub 上櫃投信買賣超()
  54. '上櫃投信買賣超
  55.     Dim X, Y, mydate As String
  56.     X = InputBox("請輸入月份")
  57.     Y = InputBox("請輸入日期")
  58.     mydate = "106" + "/" + "X" + "/" + "Y"
  59.     Sheets("資料區").Select
  60.     Range("a1").Select
  61.     With ActiveSheet
  62.         .Cells.Clear
  63.           With .QueryTables.Add(Connection:= _
  64.             "TEXT;http://www.tpex.org.tw/web/stock/3insti/sitc_trading/sitctr_download.php?l=zh-tw&t=D&type=buy&d=mydate&s=0,asc,1" _
  65.                         , Destination:=.Range("$A$1"))
  66.             .TextFileCommaDelimiter = True
  67.             .Refresh BackgroundQuery:=False
  68.             .Delete
  69.           End With
  70.     End With
  71. End Sub
複製代碼
作者: GBKEE    時間: 2017-3-2 10:24

回復 1# smart3135

qdateˇ的格式有誤
  1.   qdate = "106" & "/" & Format(X, "00") & "/" & Format(Y, "00")
複製代碼
為106/03/01



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)