返回列表 上一主題 發帖

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

sfff

帖子
4 
主題
2 
精華
0 
積分
6 
點名
0  
作業系統
Mac 
軟體版本
10.6 
閱讀權限
10 
性別
男 
註冊時間
2012-1-16 
最後登錄
2015-7-9 
1# 跳轉到 » 正序看帖
打印
tT
發表於 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"))
收藏 分享

sfff

帖子
4 
主題
2 
精華
0 
積分
6 
點名
0  
作業系統
Mac 
軟體版本
10.6 
閱讀權限
10 
性別
男 
註冊時間
2012-1-16 
最後登錄
2015-7-9 
3#
發表於 2015-6-5 11:18 | 只看該作者
完全好用！ 謝謝大大！

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
2#
發表於 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
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

        靜思自在 : 君子為目標，小人為目的。
返回列表 上一主題