返回列表 上一主題 發帖

[發問] QueryTables

[發問] QueryTables

小弟試圖借助VBA在EXCEL內抓取網頁 , 网址请参考附件。
裡面的技術分析那個部分的資料。
幻?片1.JPG
2017-8-12 20:19
代碼如下

  1. Private Sub CommandButton1_Click()
  2.      With ActiveSheet.Add(Connection:= _
  3.         "URL; website pls refer to attachment", _
  4.         Destination:=Range("$A$1"))
  5.         .Name = "detail-quote.aspx?symbol=00388_1"
  6.         .FieldNames = True
  7.         .RowNumbers = False
  8.         .FillAdjacentFormulas = False
  9.         .PreserveFormatting = True
  10.         .RefreshOnFileOpen = False
  11.         .BackgroundQuery = True
  12.         .RefreshStyle = xlInsertDeleteCells
  13.         .SavePassword = False
  14.         .SaveData = True
  15.         .AdjustColumnWidth = True
  16.         .RefreshPeriod = 0
  17.         .WebSelectionType = xlSpecifiedTables
  18.         .WebFormatting = xlWebFormattingNone
  19.         .WebTables = """tbTI"""
  20.         .WebPreFormattedTextToColumns = True
  21.         .WebConsecutiveDelimitersAsOne = True
  22.         .WebSingleBlockTextImport = False
  23.         .WebDisableDateRecognition = False
  24.         .WebDisableRedirections = False
  25.         .Refresh BackgroundQuery:=False
  26.     End With
  27. End Sub
複製代碼


同普通的QUERYTABLE差不多, 可是拿不到任何資料。個人覺得是否因為這個網頁不能直接打一個網址就可以直接進去,還需要點擊多一次股票代號位置的進入按鈕才能進入, 不過不知如何解決這個問題。
幻?片2.JPG
2017-8-12 20:19
請教師兄提供意見,多謝!

website.rar (144 Bytes)

請詳閱 論壇版規愛惜帳號,一起創造美好的學習討論空間。

        靜思自在 : 改變自己是自救,影響別人是救人。
返回列表 上一主題