GBKEE

回復 6# lcctno
http://forum.twbts.com/thread-14577-1-1.html  會是同樣的問題嗎

no3-taco

參考看看
從版大程式碼再稍微修改的地方

1. Do While .Busy Or .ReadyState <> 4: DoEvents: Loop
   
2. 'Application.SendKeys "~", True   '按下同意鍵  =>省略也可以
   
3. Do While .Busy Or .ReadyState <> 4: DoEvents: Loop
   
4. Wait Now + #12:00:01 AM#     =>好像缺一個等待時間
   
5. .
   
6. .
   
7. .
   
8. .PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:=False, NoHTMLFormatting:=True
   
9. .
   
10. .

複製代碼

lcctno

回復 11# GBKEE
我的問題是要做個簡單的按鈕之EXCELL程式 當點按鈕就能自動更新EXCELL內之"即時估計淨值"  應該是不同的情形吧!  但還是非常的感謝您的回覆

lcctno

回復 12# no3-taco

非常的感謝您的回覆 但對初次使用VBA的我 很難由您所提供的修改 而有能力的完全組合版大與您的建議 去完成完整的VBA 可否拜託您給個完整的語法 先謝謝您了

GBKEE

回復 13# lcctno


   

我的問題是要做個簡單的按鈕之EXCELL程式 當點按鈕就能自動更新EXCELL內之"即時估計淨值"  應該是不同的情形吧!

可自行在工作表上插入一按鈕 將"即時估計淨值"的程序指定到這按鈕

如圖

下載 (57.31 KB)

2015-7-19 14:50

lcctno

回復 11# GBKEE

我很急著要用那功能 原先"即時估計淨值" 一直都沒發生問題 但元大寶來之網站改版之後 我的原先土法鍊鋼之EXCELL檔 就無法即時的知道淨值 還需要另開網頁並手動輸入數個數據 實在很頭大  我已經發費很多時間爬文了 但一直找尋不到方法 所以最後不得不註冊加入會員並發帖求救 希望能有人幫我.....

lcctno

回復 15# GBKEE

由於網站的規定 我每小時只能回覆3次 且又無權限發短消息 很抱歉讓您久等我的回覆了

於第一時間時 我有依您的語法完成 但點它只會自動開啟IE並到那網站 並不會自動把DATA匯入我的EXCELL內 所以我才會繼續問下去 希望有人能幫助笨笨的我解決這個問題 其實我發現陸續有網站已無法使用 "匯入外部資料 新增WEB查詢"  來取得DATA 所以我早晚還是要面對它並學會它

以下是我在apk.tw所發的帖 若您對股市有興趣 不妨去看看

碎鑽當然要想辦法賺 但T50反1 (00632R)的真鈔您想賺嗎?
http://apk.tw/forum.php?mod=viewthread&tid=647659&fromuid=685805
(出處: Android 台灣中文網)

00632R T50反1 這帖沒碎鑽 但有我賺真鈔的統計分析
http://apk.tw/forum.php?mod=viewthread&tid=672636&fromuid=685805
(出處: Android 台灣中文網)

no3-taco

你把版大的程式碼插入

Wait Now + #12:00:01 AM#     =>好像缺一個等待時間

試看看

no3-taco

回復 9# lcctno

你不是說你做了按鈕，網頁也有開啟，所以應該是程式碼沒有抓到，給他延遲一秒看看

Wait Now + #12:00:01 AM#     '=>好像缺一個等待時間

Farnsworth

我試過了，能打開網頁，旦代碼  .document.body.innerHTML = E.outerHTML
這行提示出錯。