帖子: 42
主題: 11
精華: 0
積分: 104
點名: 0
作業系統: windows
軟體版本: office007
閱讀權限: 20
性別: 男
註冊時間: 2011-1-20
最後登錄: 2015-1-21

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2011-4-29 17:11 | 只看該作者

[發問] 網頁資料下載簡化

本帖最後由 carzyindex 於 2011-5-21 09:26 編輯

這個網站比較有人性一點參數找的到也可以設定

但是我不知道頁數有幾張

土法煉鋼一頁一頁弄也很沒有效率

查詢太多次還會被檔

請問程式該如何下載

例如1101

2201

樓主熱帖

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

48^#

發表於 2012-8-1 13:41 | 只看該作者

另外, 可能是原始的 CSV 資料有問題,
除了內容格式不對, 有些欄位內也沒有資料 ...mannyhsu 發表於 2012/7/26 20:50

這裡有正確的 http://forum.twbts.com/redirect.php?goto=findpost&pid=41636&ptid=7309

TOP

mannyhsu

小學生 Rank: 1

帖子: 19
主題: 1
精華: 0
積分: 26
點名: 0
作業系統: windows7
軟體版本: office2003
閱讀權限: 10
性別: 男
註冊時間: 2012-6-16
最後登錄: 2014-9-23

論壇贊助勳章

47^#

發表於 2012-7-26 20:50 | 只看該作者

本帖最後由 mannyhsu 於 2012-7-26 20:56 編輯

回復 48# GBKEE

請問 GBKEE 大,
是否可以在目前的試算表中一個工作表(例如 temp)存放 csv 資料,
而不是另開一個試算表, 謝謝 !!

另外, 可能是原始的 CSV 資料有問題,
除了內容格式不對, 有些欄位內也沒有資料 ...

manny

TOP

mannyhsu

小學生 Rank: 1

帖子: 19
主題: 1
精華: 0
積分: 26
點名: 0
作業系統: windows7
軟體版本: office2003
閱讀權限: 10
性別: 男
註冊時間: 2012-6-16
最後登錄: 2014-9-23

論壇贊助勳章

46^#

發表於 2012-7-26 20:21 | 只看該作者

回復 48# GBKEE

太感恩了, 這個可以用 ~~

manny

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

45^#

發表於 2012-7-26 17:23 | 只看該作者

回復 46# mannyhsu
回復 47# lalalada

Option Explicit
Sub Ex()
Dim Stock_No As String, wb As Workbook
Do
Stock_No = InputBox("請輸入股票號碼")
If Stock_No = "" Then If MsgBox("取消輸入股票號碼?", vbYesNo) = vbYes Then Exit Sub
Loop Until Stock_No <> ""
For Each wb In Workbooks
If wb.Name = "bsContent.aspx" Then wb.Close False
Next
On Error Resume Next
Application.DisplayAlerts = False
Workbooks.Open ("http://bsr.twse.com.tw/bshtm/bsContent.aspx?StartNumber=" & Stock_No & "&download=csv")
If Err.Number <> 0 Then MsgBox "1 請查明股票號碼 " & Stock_No & "是否存在" & Chr(10) & _
"2 股票號碼 " & Stock_No & " 如正確請重新輸入 " & Stock_No
Application.DisplayAlerts = True
End Sub

複製代碼

TOP

lalalada

中學生 Rank: 2

帖子: 102
主題: 17
精華: 0
積分: 129
點名: 0
作業系統: windows
軟體版本: 2010
閱讀權限: 20
性別: 男
註冊時間: 2012-5-16
最後登錄: 2020-9-2

44^#

發表於 2012-7-26 10:48 | 只看該作者

本帖最後由 lalalada 於 2012-7-26 10:51 編輯

同樓上
以為終於建好自動更新資料的程式說QQ
原始碼裡有個 59
不知道能否用來取得頁數
也發現有
// window.open("bshtm/"+ HiddenField_spDate +"/"+ document.getElementById("hidTASKNO").value+"/"+ document.getElementById("hidTASKNO").value+".csv");
window.open("bsContent.aspx?StartNumber=" + document.getElementById("hidTASKNO").value + "&download=csv");
有機會下載CSV檔?
而且樓上說的那個網址才改沒幾天而已又在ALL上設新限制
看來是存心不想讓人抓了
話說之前寫信去問說八月開始要提供付費CSV
貌似是網頁改版主因...

TOP

mannyhsu

小學生 Rank: 1

帖子: 19
主題: 1
精華: 0
積分: 26
點名: 0
作業系統: windows7
軟體版本: office2003
閱讀權限: 10
性別: 男
註冊時間: 2012-6-16
最後登錄: 2014-9-23

論壇贊助勳章

43^#

發表於 2012-7-26 00:50 | 只看該作者

我試了一下, 新的 link 變成 :
http://bsr.twse.com.tw/bshtm/bsContent.aspx?StartNumber=2498&FocusIndex=All_59
但是原本可用 All_100 抓到所有的 pages, 現在已經不能用了, 必須要知道確切的 page number,
請問一下, 那原始的程式該如何修改 ?
謝謝 !!

manny

TOP

white5168