標題: [發問] 匯入網頁資料 [打印本頁]

---

作者: kasl    時間: 2014-3-27 22:02     標題: 匯入網頁資料

http://hk.ishares.com/product_info/fund/holdings/SEHK/2823.htm?periodCd=d
請問這網頁的 "投資組合詳情" 下的資料 怎麼匯到 excel 裡
我用匯入外部資料 .... 他只不到下面的那些值

---

作者: joey0415    時間: 2014-3-28 08:56

1. Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
   
2. 
   
3. Sub HK()
   
4.     Dim URL As String, shts As Worksheet
   
5.     Dim x As Variant, xi As Integer, A As Object, xlHtm
   
6.     Set shts = ActiveSheet '
   
7.     shts.Cells.Clear
   
8.     URL = "http://hk.ishares.com/product_info/fund/holdings/2823.htm?periodCd=d"
   
9.     With CreateObject("InternetExplorer.Application")
   
10.         .Visible = True     '  是否顯示 IE
    
11.         .Navigate URL
    
12.          Do While .ReadyState <> 4 Or .Busy
    
13.                 DoEvents
    
14.             Loop
    
15. 
    
16.         xlHtm = .Document.body.innerHTML                '儲存
    
17. 
    
18.         Sleep 2000
    
19.         Set A = .Document.getElementsBytagname("table")
    
20.         For xi = 2 To 2
    
21.             .Document.body.innerHTML = A(xi).outerHTML
    
22.             .ExecWB 17, 2       '  Select All
    
23.             .ExecWB 12, 2       '  Copy selection
    
24.             With shts
    
25.                 .Range("A1").Select
    
26.                 .PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:=False, NoHTMLFormatting:=True
    
27.             End With
    
28.             .Document.body.innerHTML = xlHtm                  '還原
    
29.         Next xi
    
30.         shts.Cells.EntireColumn.AutoFit     '  自動調整欄寬
    
31.         .Quit
    
32.     End With
    
33. End Sub

複製代碼

---

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