t8899

帖子: 745
主題: 242
精華: 0
積分: 1000
點名: 0
作業系統: WINXP
軟體版本: OFFICE2003
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2024-4-19

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2014-12-26 18:30 | 顯示全部帖子

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

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

樓主熱帖

t8899

大學生 Rank: 4

帖子: 745
主題: 242
精華: 0
積分: 1000
點名: 0
作業系統: WINXP
軟體版本: OFFICE2003
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2024-4-19

2^#

發表於 2014-12-26 22:17 | 顯示全部帖子

回復 t8899

換了,用這個!

Sub XL()
Set XML = CreateObject("Microsoft.XMLHTTP")
Set stream = ...
HSIEN6001 發表於 2014-12-26 21:47

1.前面的大盤統計資訊可以不要嗎 ??我只要每日收盤行情(全部(不含權證、牛熊證)")"
2.您是存成csv 檔，還要再叫進來,可直接匯入 sheet1 嗎?

TOP

t8899

大學生 Rank: 4

帖子: 745
主題: 242
精華: 0
積分: 1000
點名: 0
作業系統: WINXP
軟體版本: OFFICE2003
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2024-4-19

3^#

發表於 2014-12-27 12:17 | 顯示全部帖子

回復 t8899

試試看
GBKEE 發表於 2014-12-27 11:43

謝謝，可以
可否再加入
假如抓當天日期網站還沒產生(抓不到)則抓前一天.....抓到有為止(只抓5天)還抓不到就跳出
抓不到當天，則提示抓到的日期(當天不用)，5天都抓不到也提示

TOP

t8899

大學生 Rank: 4

帖子: 745
主題: 242
精華: 0
積分: 1000
點名: 0
作業系統: WINXP
軟體版本: OFFICE2003
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2024-4-19

4^#

發表於 2014-12-28 07:22 | 顯示全部帖子

本帖最後由 t8899 於 2014-12-28 07:24 編輯

請問 GBKEE 網大:
我將.ALL("selectType").Value = "ALLBUT0999" ‘全部(不含權證、牛熊證)")
改成. ...
tsuneng 發表於 2014-12-27 16:15

改為
.BODY.innerHTML = .getElementsByTagName("table")(0).outerHTML

TOP

t8899

大學生 Rank: 4

帖子: 745
主題: 242
精華: 0
積分: 1000
點名: 0
作業系統: WINXP
軟體版本: OFFICE2003
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2024-4-19

5^#

發表於 2014-12-28 07:28 | 顯示全部帖子

本帖最後由 t8899 於 2014-12-28 07:30 編輯

回復 t8899
試試看
GBKEE 發表於 2014-12-27 11:43

下面這兩行不懂
.ExecWB 17, 2 ' Select All
.ExecWB 12, 2 ' Copy selection
17,2 跟 12,2 是怎麼算的 ??

TOP

t8899

大學生 Rank: 4

帖子: 745
主題: 242
精華: 0
積分: 1000
點名: 0
作業系統: WINXP
軟體版本: OFFICE2003
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2024-4-19

6^#

發表於 2014-12-28 07:45 | 顯示全部帖子

回復 t8899
參考一下
GBKEE 發表於 2014-12-28 07:39

證券代號前面是兩個0轉入會不見 (會當成數字) 0050 ===> 50
這有無辦法修正?

TOP

t8899

大學生 Rank: 4

帖子: 745
主題: 242
精華: 0
積分: 1000
點名: 0
作業系統: WINXP
軟體版本: OFFICE2003
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2024-4-19

7^#

發表於 2014-12-28 09:54 | 顯示全部帖子

本帖最後由 t8899 於 2014-12-28 09:58 編輯

回復 t8899

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

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

TOP

t8899

大學生 Rank: 4

帖子: 745
主題: 242
精華: 0
積分: 1000
點名: 0
作業系統: WINXP
軟體版本: OFFICE2003
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2024-4-19

8^#

發表於 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

t8899

大學生 Rank: 4

帖子: 745
主題: 242
精華: 0
積分: 1000
點名: 0
作業系統: WINXP
軟體版本: OFFICE2003
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2024-4-19

9^#

發表於 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