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;
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
發表於 2013-9-8 20:18
| 
