返回列表下一主題上一主題發帖

關於程式碼?抓取上市資料-

vavashop

中學生 Rank: 2

帖子: 78
主題: 30
精華: 0
積分: 109
點名: 0
作業系統: XP
軟體版本: XP
閱讀權限: 20
註冊時間: 2014-5-15
最後登錄: 2018-9-16

論壇贊助勳章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 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)