返回列表 上一主題 發帖

[發問] 判斷功能表按鈕而執行程式碼問題

joey0415
　暱稱: joey0415

中學生Rank: 2

帖子
361 
主題
57 
精華
0 
積分
426 
點名
0  
作業系統
win7 
軟體版本
2003,2010 
閱讀權限
20 
性別
男 
註冊時間
2010-5-13 
最後登錄
2022-12-8 
1# 跳轉到 »
發表於 2014-5-16 10:23 | 顯示全部帖子
Sub tt()


        [a1].Select
        With ActiveSheet.QueryTables.Add(Connection:= _
            "URL;http://www.twse.com.tw/ch/trading/exchange/BWIBBU/BWIBBU_d.php#", Destination:=Range("A1"))
            .PostText = "input_date=103%2F05%2F13&select2=ALL&order=STKNO&login_btn=%ACd%B8%DF"
            .WebTables = "8"
            .Refresh BackgroundQuery:=False
            .Delete
        End With

End Sub

TOP

joey0415
　暱稱: joey0415

中學生Rank: 2

帖子
361 
主題
57 
精華
0 
積分
426 
點名
0  
作業系統
win7 
軟體版本
2003,2010 
閱讀權限
20 
性別
男 
註冊時間
2010-5-13 
最後登錄
2022-12-8 
2#
發表於 2014-5-21 20:59 | 顯示全部帖子
回復 1# reangame

一、要抓資料前先查詢自己的資料庫，每個資料庫最後更新日期
二、抓取最後更新日與今日間的差距離
三、抓取未更新日期進資料庫
四、如果抓取網頁有問題就跳過，如果資料不符如沒資料就跳過…

這樣就自動化了，不用這樣設計

TOP

        靜思自在 : 滴水成河。粒米成蘿，勿輕己靈，勿以善小而不為。
返回列表 上一主題