返回列表 上一主題 發帖

擷取歷史股價

tsuneng

帖子
32 
主題
2 
精華
0 
積分
67 
點名
0  
作業系統
WIN 7 
軟體版本
OFFICE 2010 
閱讀權限
20 
性別
男 
註冊時間
2011-7-9 
最後登錄
2020-12-30 
1# 跳轉到 »
發表於 2012-8-11 23:25 | 顯示全部帖子
回復 16# diabo

因我是新手,有不明白處請教  
請  diabo 大大:  說明
        
         Sub 更新大盤資料() 中
            If 最後一筆資料列數 = 1 Then   
         
           1 --> 的用法

         謝謝!!

TOP

tsuneng

帖子
32 
主題
2 
精華
0 
積分
67 
點名
0  
作業系統
WIN 7 
軟體版本
OFFICE 2010 
閱讀權限
20 
性別
男 
註冊時間
2011-7-9 
最後登錄
2020-12-30 
2#
發表於 2012-8-12 07:27 | 顯示全部帖子
回復 19# white945

尊重原作者，只貼出部份程式碼.

With Sheets("TWII")
        資料庫最後一筆資料列數 = .Cells(Rows.Count, "A").End(xlUp).Row
        If 資料庫最後一筆資料列數 = 1 Then
            資料庫最後一筆日期 = DateSerial(1999, 1, 1)
        Else
            資料庫最後一筆日期 = .Cells(資料庫最後一筆資料列數, "A").Value
        End If
        資料庫新資料寫入列數 = 資料庫最後一筆資料列數 + 1
    End With

TOP

tsuneng

帖子
32 
主題
2 
精華
0 
積分
67 
點名
0  
作業系統
WIN 7 
軟體版本
OFFICE 2010 
閱讀權限
20 
性別
男 
註冊時間
2011-7-9 
最後登錄
2020-12-30 
3#
發表於 2012-8-12 11:41 | 顯示全部帖子
己明白,  用意在判斷最後己完成下載的最後時間.  tks!

TOP

tsuneng

帖子
32 
主題
2 
精華
0 
積分
67 
點名
0  
作業系統
WIN 7 
軟體版本
OFFICE 2010 
閱讀權限
20 
性別
男 
註冊時間
2011-7-9 
最後登錄
2020-12-30 
4#
發表於 2012-8-22 09:10 | 顯示全部帖子
回復 17# mannyhsu

diabo 大大,你好! 謝謝你供上市歷史資料查詢,從中學習許多.
可否請敎上櫃下載CSV.file 要如何處理。

http://www.otc.org.tw/ch/stock/aftertrading/daily_trading_info/st43.php
以下是我由原始網頁資料檔中查詢出來, 試了許久無法解決.  
function query()這段函數
var yy = document.getElementsByName("y_date1")[0].value;
var mm = document.getElementsByName("m_date1")[0].value;
var input_code = document.getElementsByName("input_stock_code")[0].value;
var param = 'ajax=true&yy='+yy+'&mm='+mm+'&input_stock_code='+input_code;

感謝!!!

TOP

        靜思自在 : 真正的愛心，是照顧好自己的這顆心。
返回列表 上一主題