返回列表 上一主題 發帖

請問 我已經寫好可以使用的vba 要換這一段網址 卻無法成功 請問可以邦我看看嗎？

vavashop

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

論壇贊助勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2015-6-5 23:11 | 只看該作者

請問 我已經寫好可以使用的vba 要換這一段網址 卻無法成功 請問可以邦我看看嗎？

Option Explicit
Sub EX()
    Dim xDate As Date, genpage As String, qdate As String, Print_php As String, Wb As Workbook
   
    '1 如不可查詢當日 三大法人買賣超日報
    xDate = Date - 1
   
   
    Do While Weekday(xDate, vbMonday) >= 6
        xDate = xDate - 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





以上是大大邦我寫得
但我現在要把網址改成
http://www.twse.com.tw/ch/trading/exchange/TWTB4U/TWTB4U_print.php?language=ch&save=csv

卻沒有資料 請問是哪邊出了問題呢?
收藏 分享

        靜思自在 : 口說一句好話，如口出蓮花；口說一句壞話如口吐毒蛇。
返回列表 上一主題