[發問] QueryTables

DanielWONG

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

下載 (104.14 KB)

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

下載 (80.97 KB)

2017-8-12 20:19

請教師兄提供意見，多謝！