[發問] 交易所網站的收盤價已變更?用動態查詢已失效?

t8899

如何直接抓取匯入excel??
http://www.tse.com.tw/ch/trading/exchange/MI_INDEX/MI_INDEX.php
分類項目 ==>全部(不含權證，牛熊........)

chwqk

工作表內A及B欄內之字元有的儲存格最後都會多一個空白
如何用VBA 刪除A、B欄所有儲存格內字元最後有空白 的部份
如:
先選A欄
令其所有字元
" "=""

joey0415

直接抓csv應該就行了！那個不會有table的問題

t8899

才不到一個月
證交所又改了
再次失效......抓不到資料了
chwqk 發表於 2015-1-21 23:37

將  '  .BODY.innerHTML = .getElementsByTagName("table")(?).outerHTML
改為            .BODY.innerHTML = .getElementsByTagName("table")(4).outerHTML
就可以了

chwqk

才不到一個月
證交所又改了
再次失效......抓不到資料了

r2henry

回復 4# GBKEE


    請問如果要將您的程式碼，套用到櫃買市場，我只更改連結到
http://www.gretai.org.tw/web/stock/aftertrading/otc_quotes_no1430/stk_wn1430.php?l=zh-tw

卻出現錯誤訊息，請問哪裡還需要修改?謝謝大大

t8899

順便補充2樓csv檔 跟html 載入工作表的語法
CSV 檔載入
sub goDKDKD()
Dim srWk As Workbook
    Dim srPth
    srPth = "R:\TEMP\1.CSV"
    If srPth = False Then Exit Sub
     Application.ScreenUpdating = False
    Set srWk = GetObject(srPth)
    srWk.ActiveSheet.Cells.Copy ThisWorkbook.Worksheets(1).Cells(1)
    srWk.Close False
    Set srWk = Nothing
    Cells(2, 1).Select
END SUB
--------------------------------------------
html 檔載入
sub goDKDKD()
Dim srWk As Workbook
    Dim srPth
    srPth = "R:\TEMP\1.html"
    If srPth = False Then Exit Sub
     Application.ScreenUpdating = False
    Set srWk = Workbooks.OpenXML(srPth)
    srWk.ActiveSheet.Cells.Copy ThisWorkbook.Worksheets(1).Cells(1)
    srWk.Close False
    Set srWk = Nothing
    Cells(2, 1).Select
END SUB
---------------------------------------

tsuneng

感謝 指導 !!

GBKEE

回復 12# t8899

1.         r = r + 1
   
2.             Loop Until r = Rng.Row  '不會的這裡有限制啊

複製代碼

t8899

回復  t8899

程式結束前 執行Ex_副程式
GBKEE 發表於 2014-12-28 08:54

很奇怪，如果我用 f8 單步執行 A4以後都會被會當成數字 IsNumeric(符合條件) ,前面都會加'00 ???
f5 執行是正常的