標題: 關於程式碼?抓取上市資料- [打印本頁]

---

作者: vavashop    時間: 2016-5-3 16:40     標題: 關於程式碼?抓取上市資料-

本帖最後由 vavashop 於 2016-5-3 16:43 編輯

各位大大以下是之前我在抓
上市三大法人的vba
http://www.twse.com.tw/ch/trading/fund/T86/T86.php
不過最近變了
不知道請問那邊有問題可以幫忙一下我嗎?


程式碼如下
Sub 更新上市三大法人1_1()
'

'

'
    Dim xDate As Date, genpage As String, qdate As String, Print_php As String, Wb As Workbook
   
    '1 如不可查詢當日 三大法人買賣超日報
    xDate = Date - 0  '0改為1變成 前一天
   
   
    Do While Weekday(xDate, vbMonday) >= 6
        xDate = xDate - 0  '0改為1變成 前一天
   
    Loop
   
    '如於一定的時間後可查詢當日的 三大法人買賣超日報
    '請刪除 ** xDate = Date - 1 **
   
   
    '2 執行下面的程式碼,取消註解 ** ' **
   
    'If xDate = Date And Time < #5:00:00 PM# Then
    '    xDate = xDate - 1
    'End If
   
    For Each Wb In Workbooks
        If Trim(Wb.Name) = "print.php" Then Wb.Close False
        '下載CSV 的名稱為 Print_php 必先關閉
    Next
    genpage = Format(xDate, "yyyymm/yyyymmdd")
    qdate = Format(xDate, "yyyymmdd")
    Print_php = "http://www.twse.com.tw/ch/trading/fund/T86/print.php?edition=ch&filename=genpage/" _
             & genpage & "_2by_issue.dat&type=csv&select2=ALLBUT0999&qdate=" & qdate

     Set Wb = Workbooks.Open(Print_php)

---

作者: joey0415    時間: 2016-5-3 18:37

回復 1# vavashop

如果上面都是你寫的，那應該知道改很久了

修改應該不是難事

下面這個連結，學會後自己就會修改

http://club.excelhome.net/thread-1159783-1-1.html

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)