[發問] 請教 如何在EXCELL取得該網站之"即時估計淨值"

yan2463

請問網頁匯入問題
我想將以下網頁匯入EXECL
http://www.yuantaetfs.com/#/RtNav/Index
但無法匯入,不知如何解決
這個網頁沒改版前是OK的

lukychien

回復 1# yan2463


    要匯入風險預告及免責條款?

jackyq

excel 是無法吃 JAVASCRIPT 控制的網頁

yan2463

回復 2# lukychien


    不是,是要匯入按同意後的即時預估淨值

yan2463

回復 3# jackyq

謝謝你

GBKEE

回復 5# yan2463
試試看 用VBA巨集

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim E As Object
   
4.     With CreateObject("InternetExplorer.Application")
   
5.         .Visible = True
   
6.         .Navigate "http://www.yuantaetfs.com/#/RtNav/Index"
   
7.         Do While .Busy Or .ReadyState <> 4: DoEvents: Loop
   
8.         Application.SendKeys "~", True   '按下同意鍵
   
9.         Do While .Busy Or .ReadyState <> 4: DoEvents: Loop
   
10.         Set E = .Document.getelementsbytagname("TABLE")(21)
    
11.          .Document.body.innerHTML = E.outerHTML
    
12.         .execwb 17, 2       '  Select All
    
13.         .execwb 12, 2       '  Copy selection
    
14.         With ActiveSheet
    
15.             .Cells.Clear
    
16.             .[A1].Select
    
17.             .PasteSpecial 'Format:="HTML"
    
18.         End With
    
19.         .Quit        '關閉網頁
    
20.     End With
    
21. End Sub

複製代碼

yan2463

回復 6# GBKEE

謝謝

lcctno

請教 如何在EXCELL取得該網站之"即時估計淨值"     http://www.p-shares.com/#/RtNav/Index
我只能抓到一些無用的文字(內容如下)
【元大投信獨立經營管理】本基金經金管會核准或同意生效，惟不表示絕無風險。本公司以往之經理績效， 不保證本基金之最低投資收益；本公司除盡善良管理人之注意義務外，不負責本基金之盈虧，亦不保證最低之 收益，投資人申購前應詳閱基金公開說明書。本文提及之經濟走勢預測不必然代表基金之績效，基金投資風險 請詳閱基金公開說明書。有關基金應負擔之相關費用，已揭露於基金公開說明書中，投資人可向本公司及基金 之銷售機構索取，或至公開資訊觀測站及 本公司網站 中查詢。基金非存款或保險，故無受存款保險、保險安定基金或其他相關保障機制之保障。

麻煩高手指導我如何於EXCELL內將此網頁載入(如圖) 在此先謝謝您了

下載 (146.34 KB)

2015-7-19 00:37

lcctno

回復 6# GBKEE

請問 我依照您的內容做成VBA之按鈕 但點按鈕 只會自動開啟IE到那網站 並不會自動把DATA匯入我的EXCELL內??
我是要能自動匯入DATA到EXCELL內 我的無知(初學者) 還請您幫忙解惑 謝謝您了

lcctno

回復 1# yan2463

請問您的問題解決了嗎?
能否幫初學者的我 做個簡單的按鈕之EXCELL程式 當點按鈕就能自動更新EXCELL內之"即時估計淨值"
先謝謝您了
由於我的級數很低 無法在此下載 若您或有看到這回覆訊息之高手 若願意幫我 麻煩私訊我 我將告訴您我的mail