[發問] 無法匯入股市資料

sfff

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

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

GBKEE

回復 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

完全好用！ 謝謝大大！