sd-jason

請問這個是不是已經無法下載了???這幾天下載都只跑出活頁代號，而沒有內容資料???

white5168

這幾天不式不能抓,而是網站被動了一些手腳,那大家抓的很辛苦也很痛苦,改用python抓會比較好一點

mannyhsu

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

lalalada

同樓上
以為終於建好自動更新資料的程式說QQ
原始碼裡有個 <font color="#ffcc00;" size="4"><b><span id="sp_ListCount">59</span></b>
不知道能否用來取得頁數
也發現有
//    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
貌似是網頁改版主因...

GBKEE

回復 46# mannyhsu
回復 47# lalalada

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

複製代碼

mannyhsu

回復 48# GBKEE

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

mannyhsu

回復 48# GBKEE

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

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

GBKEE

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

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