- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
2#
發表於 2015-6-7 15:49
| 只看該作者
回復 1# vavashop
試試看- Option Explicit
- Sub EX()
- Dim xDate As Date, genpage As String, qdate As String, Print_php As String, Wb(1 To 2) As Workbook
- Set Wb(1) = Workbooks("上市三大法人買賣超") ' "上市三大法人買賣超"分頁
-
- '***三大法人買賣超日報 幫你查詢過,
- '[營業時間內]只能查看前一個營業日的報表.
- '所以 [營業時間內] 查詢日 : xDate = Date - 1
- xDate = Date
- If Time < #2:00:00 PM# Then '[營業時間內] **
- Do While Weekday(xDate, vbMonday) = 1 Or Weekday(xDate, vbMonday) >= 6 '排除 週日,週六,週一
- xDate = xDate - 1
- Loop
- ElseIf Time > #2:00:00 PM# Then '[營業時間後] 請調整:台證交易所資料整理完畢的時間
- Do While Weekday(xDate, vbMonday) >= 6 '排除 週日,週六
- xDate = xDate - 1
- Loop
- End If
- For Each Wb(2) In Workbooks
- If Trim(Wb(2).Name) = "print.php" Then Wb(2).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(2) = Workbooks.Open(Print_php)
- Wb(2).Sheets(1).Copy Wb(1).Sheets(1)
- End Sub
|
|
發表於 2015-6-5 20:01
| 
