- 帖子
- 78
- 主題
- 30
- 精華
- 0
- 積分
- 109
- 點名
- 0
- 作業系統
- XP
- 軟體版本
- XP
- 閱讀權限
- 20
- 註冊時間
- 2014-5-15
- 最後登錄
- 2018-9-16
|
回復 3# 准提部林
大大可以請求協助一下這網站
http://www.twse.com.tw/ch/trading/fund/T86/T86.php
我原本的vba
可以抓取現在卻變成不行了
Sub 更新上市三大法人1_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)
End Sub |
|
發表於 2016-4-30 21:36
| 
