Board logo

標題: [發問] QueryTables [打印本頁]
作者: DanielWONG    時間: 2017-8-12 20:29     標題: QueryTables

小弟試圖借助VBA在EXCEL內抓取網頁 , 网址请参考附件。
裡面的技術分析那個部分的資料。[attach]27616[/attach]代碼如下

  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差不多， 可是拿不到任何資料。個人覺得是否因為這個網頁不能直接打一個網址就可以直接進去，還需要點擊多一次股票代號位置的進入按鈕才能進入， 不過不知如何解決這個問題。[attach]27617[/attach]請教師兄提供意見，多謝！



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