t8899

帖子: 759
主題: 249
精華: 0
積分: 1021
點名: 0
作業系統: windows 11
軟體版本: OFFICE2021
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2024-11-24

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2014-12-26 18:30 | 只看該作者

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

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

樓主熱帖

chwqk

　暱稱: 吳世

中學生 Rank: 2

帖子: 29
主題: 15
精華: 0
積分: 50
點名: 0
作業系統: WINDOW XP
軟體版本: 2003
閱讀權限: 20
性別: 男
來自: TAIPEI
註冊時間: 2010-5-4
最後登錄: 2021-11-24

20^#

發表於 2015-1-22 15:16 | 只看該作者

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

TOP

joey0415

　暱稱: joey0415

中學生 Rank: 2

帖子: 361
主題: 57
精華: 0
積分: 426
點名: 0
作業系統: win7
軟體版本: 2003,2010
閱讀權限: 20
性別: 男
註冊時間: 2010-5-13
最後登錄: 2022-12-8

19^#

發表於 2015-1-22 10:09 | 只看該作者

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

TOP

t8899

大學生 Rank: 4

帖子: 759
主題: 249
精華: 0
積分: 1021
點名: 0
作業系統: windows 11
軟體版本: OFFICE2021
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2024-11-24

18^#

發表於 2015-1-22 06:32 | 只看該作者

本帖最後由 t8899 於 2015-1-22 06:34 編輯

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

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

TOP

chwqk

　暱稱: 吳世

中學生 Rank: 2

帖子: 29
主題: 15
精華: 0
積分: 50
點名: 0
作業系統: WINDOW XP
軟體版本: 2003
閱讀權限: 20
性別: 男
來自: TAIPEI
註冊時間: 2010-5-4
最後登錄: 2021-11-24

17^#

發表於 2015-1-21 23:37 | 只看該作者

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

TOP

r2henry

小學生 Rank: 1

帖子: 9
主題: 2
精華: 0
積分: 16
點名: 0
作業系統: windows7
軟體版本: office2003
閱讀權限: 10
性別: 男
來自: TW
註冊時間: 2012-3-10
最後登錄: 2015-1-15

16^#

發表於 2014-12-31 18:40 | 只看該作者

回復 4# GBKEE

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

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

Henry

TOP

t8899

大學生 Rank: 4

帖子: 759
主題: 249
精華: 0
積分: 1021
點名: 0
作業系統: windows 11
軟體版本: OFFICE2021
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2024-11-24

15^#

發表於 2014-12-28 14:15 | 只看該作者

順便補充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
---------------------------------------

TOP

tsuneng