關於程式碼這一段請問有人會改嗎?

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

1^# 跳轉到 »

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

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

靜思自在 : 看別人不順眼，是自己修養不夠。