[µo°Ý] ¥ÎVBA¸ü¤Jºô­¶¸ê®Æ

pupai

¦U¦ì¦n
¦p¦ó¥ÎVBA¸ü¤Jºô­¶¸ê®Æ
http://www.taifex.com.tw/chinese/3/7_12_3_tbl.asp
ÁÂÁÂ!!

joey0415

1. Sub ¥¨¶°1()
   
2.     With ActiveSheet.QueryTables.Add(Connection:= _
   
3.         "URL;http://www.taifex.com.tw/chinese/3/7_12_3_tbl.asp", Destination:=Range( _
   
4.         "$A$1"))
   
5.         .WebFormatting = xlWebFormattingNone
   
6.         .WebTables = "2"
   
7.         .Refresh BackgroundQuery:=False
   
8.         .Delete
   
9.     End With
   
10. End Sub

½Æ»s¥N½X

¦^´_ 1# pupai

pupai

¦^´_ 2# joey0415


    ½Ð°Ý§Ú¦pªG­n«ü©w¤é´Á¡A¸Ó¦p¦ó½s¼g
ÁÂÁÂ

joey0415

¦^´_ 3# pupai

¤W­±ªº¥u¯à¬d³æ¤é

¤U­±ªº¤~¥i¥H¿ï¤é´Á
http://www.taifex.com.tw/chinese/3/7_12_3.asp

©Î¬O¤U­±ª½±µ¤U¸ücsv

http://www.taifex.com.tw/chinese/3/dl_7_12_8.asp

pupai

¦^´_ 4# joey0415


³o¤è¦¡§Úª¾¹D
§Ú»Ý­nªº¬O¥ÎVBA¤è¦¡«ü©w¤é´Áªº¼gªk
·PÁ¦^´_
    ÁÂÁÂ

HSIEN6001

¦^´_ 5# pupai

¸Õ¸Õ

1. Sub CSV¤U¸ü()
   
2. Dim path As String
   
3. path = "C:\"
   
4. ¤é´Á = "20141215"
   
5. 
   
6. Set XML = CreateObject("Microsoft.XMLHTTP")
   
7. Set stream = CreateObject("ADODB.stream")
   
8.    
   
9.     URL = "http://www.taifex.com.tw/chinese/3/7_12_8dl.asp?syear=" & VBA.Left(¤é´Á, 4) & "&smonth=" & VBA.Mid(¤é´Á, 5, 2) & "&sday=" & _
   
10.             VBA.Right(¤é´Á, 2) & "&eyear=" & VBA.Left(¤é´Á, 4) & "&emonth=" & VBA.Mid(¤é´Á, 5, 2) & "&eday=" & VBA.Right(¤é´Á, 2)
    
11.         XML.Open "GET", URL, 0
    
12.         XML.send
    
13.     With stream
    
14.         .Type = 1
    
15.         .Open
    
16.         .write XML.responseBody
    
17.         If Dir(path & "ÃþªÑ´Á³f" & ¤é´Á & ".csv") <> "" Then Kill (path & "ÃþªÑ´Á³f" & ¤é´Á & ".csv")
    
18.         .SaveToFile (path & "ÃþªÑ´Á³f" & ¤é´Á & ".csv")
    
19.         .Close
    
20.     End With
    
21. 
    
22. End Sub

½Æ»s¥N½X

pupai

¦^´_ 6# HSIEN6001


    ¬Ý¤£¬O«ÜÀ´¡A µ{¦¡°õ¦æ¦³»~ ¥X²{°õ¦æ¶¥¬q¤]»~'3004