標題: [發問] 無法匯入股市資料 [打印本頁]

---

作者: sfff    時間: 2015-5-23 12:33     標題: 無法匯入股市資料

本帖最後由 sfff 於 2015-5-23 12:35 編輯

我想匯入MoneyDJ的基本資料 從"資料"->從WEB 卻得到查詢沒有資料傳回 的錯誤訊息
有高手可以解惑嗎？

    With ActiveSheet.QueryTables.Add(Connection:= _
        "http://money.moneydj.com/us/basic/basic0001/IBM", Destination:=Range( _
        "A1"))

---

作者: GBKEE    時間: 2015-5-26 09:06

回復 1# sfff

試試看

1. Option Explicit
   
2. Sub Ex()
   
3.     With CreateObject("InternetExplorer.Application")
   
4.         .Visible = True
   
5.         .Navigate "http://money.moneydj.com/us/basic/basic0001/IBM"
   
6.         Do While .Busy Or .readyState <> 4: DoEvents:  Loop
   
7.         .Document.body.innerHTML = .Document.getElementsByTagName("TABLE")(5).outerHTML
   
8.          Do While .Busy Or .readyState <> 4: DoEvents:  Loop
   
9.         .ExecWB 17, 2       '  Select All
   
10.         .ExecWB 12, 2       '  Copy selection
    
11.         With ActiveSheet
    
12.             .Cells = ""
    
13.             .Range("A1").Select
    
14.             .PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:=False, NoHTMLFormatting:=True
    
15.         End With
    
16.       .Quit        '關閉網頁
    
17.     End With
    
18. End Sub

複製代碼

---

作者: sfff    時間: 2015-6-5 11:18

完全好用！ 謝謝大大！

---

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