返回列表 上一主題 發帖

[發問] QueryTables

DanielWONG

帖子
15 
主題
8 
精華
0 
積分
71 
點名
0  
作業系統
windows 10 
軟體版本
offfice2016 
閱讀權限
20 
性別
男 
註冊時間
2017-8-6 
最後登錄
2024-7-13 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2017-8-12 20:29 | 只看該作者

[發問] QueryTables

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

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

website.rar (144 Bytes)

收藏 分享

        靜思自在 : 做好事不能少我一人，做壞事不能多我一人。
返回列表 上一主題