Ãö©óµ{¦¡½X³o¤@¬q½Ð°Ý¦³¤H·|§ï¶Ü?
- ©«¤l
- 78
- ¥DÃD
- 30
- ºëµØ
- 0
- ¿n¤À
- 109
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- XP
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2014-5-15
- ³Ì«áµn¿ý
- 2018-9-16
|
Ãö©óµ{¦¡½X³o¤@¬q½Ð°Ý¦³¤H·|§ï¶Ü?
³oÓvba§Ú¬O·Q©ñ¦b §Úªº "¤W¥«¤T¤jªk¤H¶R½æ¶W"¤À¶ , ¥i¥H«ü©w¤U¸ü¨ì³o¤@Ó¤À¶
¸Ó«ç»òקï¤j¤jµ¹ªºµ{¦¡½X©O?
Option Explicit
Sub EX()
Dim xDate As Date, genpage As String, qdate As String, Print_php As String, Wb As Workbook
'1 ¦p¤£¥i¬d¸ß·í¤é ¤T¤jªk¤H¶R½æ¶W¤é³ø
xDate = Date - 1
Do While Weekday(xDate, vbMonday) >= 6
xDate = xDate - 1
Loop
'¦p©ó¤@©wªº®É¶¡«á¥i¬d¸ß·í¤éªº ¤T¤jªk¤H¶R½æ¶W¤é³ø
'½Ð§R°£ ** xDate = Date - 1 **
'2 °õ¦æ¤U±ªºµ{¦¡½X,¨ú®øµù¸Ñ ** ' **
'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
'¤U¸üCSV ªº¦WºÙ¬° 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 |
|
|
|
|
|
|
- ©«¤l
- 78
- ¥DÃD
- 30
- ºëµØ
- 0
- ¿n¤À
- 109
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- XP
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2014-5-15
- ³Ì«áµn¿ý
- 2018-9-16
|
|
|
|
|
|
|
- ©«¤l
- 78
- ¥DÃD
- 30
- ºëµØ
- 0
- ¿n¤À
- 109
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- XP
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2014-5-15
- ³Ì«áµn¿ý
- 2018-9-16
|
Set Sh = Sheets.Add '·s¼Wªº¤u§@ªí
Rng.AutoFilter 1, "A" '*** ½Ðקï§Aªº¦Û°Ê¿z¿ï ±ø¥ó ***
With Sh '·s¼Wªº¤u§@ªí
Rng.Copy .[A1] '½Æ»s ¤w¦Û°Ê¿z¿ïªº½d³ò
¤j¤j§Ú¦b·s¼W¤u§@ªí«án§ì¨ú ¶±ªº³¡¥÷ÁÙ¬O·|¦³°ÝÃD
¥i¥Hª½±µ¦³©Ò¿× §ì¾ãÓexcel ¶±ªº ¤è¦¡¶Ü?
¦]¬°§Úªº¤ñ¨Ò³£¬O©T©wªº ´N¬O¶±©ç·Ó³o¼Ë |
|
|
|
|
|
|