pupai

¦^´_ 10# pupai


    ³ø§iG¤j
§Úª¾¹D°ÝÃD¦b­þ¤F
ÁÂÁÂ~¥´ÂZ

pupai

¦^´_ 2# GBKEE


    ½Ð°ÝG¤j
§Ú·Q­n«ü©w¤é´Á¤U¸ü
¦ý¤@ª½¨S¯à¦¨¥\
¥i¥HÀ°§Ú¬Ý¬Ý³Â
ÁÂÁÂ!!

1. Sub EXC()
   
2.     Dim Theurl As String, Sdate
   
3.     Dim URL As String, xDate As Date, A As Date
   
4.    
   
5. A = Range("A1").Value
   
6.   xDate = Format(A, "E/M/D")
   
7. 
   
8. Theurl = "http://www.otc.org.tw/ch/stock/3insti/DAILY_TradE/3itrade_download.php?t=D&d=& xDate &s=0"
   
9.         
   
10. 
    
11.     With ActiveSheet.QueryTables.Add(Connection:="URL;" & Theurl, Destination:=Range("A2"))
    
12.         .BackgroundQuery = True
    
13.         .RefreshStyle = xlOverwriteCells
    
14.         .RefreshPeriod = 0
    
15.         .AdjustColumnWidth = False
    
16.         .WebSelectionType = xlSpecifiedTables
    
17.         .WebFormatting = xlWebFormattingNone
    
18.         '.WebTables = "1,2,3,4"
    
19.         .WebDisableDateRecognition = True         'Ãö³¬¤é´Á¿ëÃÑ
    
20.         .Refresh BackgroundQuery:=False
    
21.         .ResultRange.Columns(1).TextToColumns Destination:=.ResultRange.Cells(1), DataType:=xlDelimited, _
    
22.                 TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
    
23.                 Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _
    
24.                 :=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
    
25.                 Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1 _
    
26.                 ), Array(14, 1), Array(15, 1), Array(16, 1), Array(17, 1), Array(18, 1), Array(19, 1), Array _
    
27.                 (20, 1)), TrailingMinusNumbers:=True
    
28.             'TextToColumns ¤èªk (¸ê®Æ­åªR)ªº°Ñ¼Æ¥i¿ý»s±o¨ì
    
29.             'ResultRange.Columns(1):weby¸ê®Æªº²Ä¤@Äæ
    
30.             'ResultRange.Cells(1)  :weby¸ê®Æªº²Ä¤@­ÓCells(Àx¦s®æ)
    
31.             .Delete
    
32.     End With
    
33. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 12# pupai
§ä§ä¬Ý12#ªºµ{¦¡½X,­þ¸Ì­n­×§ï!

1. Sub EXC()
   
2.     Dim Theurl As String, Sdate
   
3.     Dim URL As String, xDate As String, A As Date
   
4.     A = Range("A1").Value
   
5.     xDate = Format(A, "E/MM/DD")
   
6.     Theurl = "http://www.otc.org.tw/ch/stock/3insti/DAILY_TradE/3itrade_download.php?t=D&d=" & xDate & "&s=0"

½Æ»s¥N½X

pupai

¦^´_ 13# GBKEE


    ³ø§iG¤j
12#³¡¤À¤£ª¾¹D­þ­n­×§ï
½Ð«ü¾É!
ÁÂÁÂ

pupai

¦^´_ 13# GBKEE


     ½Ð°Ýª©¥D
§Ú·Q¤U¦b¦bºô¯¸ªº¸ê®Æ
http://www.twse.com.tw/ch/trading/fund/T86/T86.php
¦ý§Úªº¬°¤°»òµ{¦¡ªº°õ¦æ¶¥¬q¦³¿ù»~
½Ð«ü¾É ÁÂÁÂ!!

1. Sub E()
   
2.         
   
3.     Dim URL As String, xDate As Date, A As Date
   
4.     A = Range("A2").Value
   
5.     xDate = Format(A, "E/M/D")
   
6. 
   
7. 
   
8. ReDate:
   
9.     URL = "URL; http://www.twse.com.tw/ch/trading/fund/T86/T86.php?qdate=" & xDate
   
10.     With ActiveSheet.QueryTables.Add(Connection:=URL, Destination:=Range("B1"))
    
11.         .WebSelectionType = xlSpecifiedTables
    
12.         .WebFormatting = xlWebFormattingNone
    
13.         .WebTables = "5"
    
14.         .WebPreFormattedTextToColumns = True
    
15.         .WebConsecutiveDelimitersAsOne = True
    
16.         .WebSingleBlockTextImport = False
    
17.         .WebDisableDateRecognition = False
    
18.         .WebDisableRedirections = False
    
19.         .Refresh BackgroundQuery:=False
    
20.         
    
21.     End With
    
22. 
    
23. 
    
24. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 15# pupai
·j´M ¤@¤U ³oºô§}

yungchan

¦^´_  jerrystock
GBKEE µoªí©ó 2014-1-2 11:19

·Q½Ð±ÐGBKEE¤j¤j¬O¦p¦ó¨ú±ocsv¤U¸üÂIªº?
¦]¬°¥»¨­¬Oªì¾ÇªÌ¡A³Q¤U¸üÂIªº°ÝÃD§xÂZ«Ü¤[¡A
¦A³Â·Ð¤j¤j½ç±Ð¡A·PÁ·PÁÂ

GBKEE

·Q½Ð±ÐGBKEE¤j¤j¬O¦p¦ó¨ú±ocsv¤U¸üÂIªº?
¦]¬°¥»¨­¬Oªì¾ÇªÌ¡A³Q¤U¸üÂIªº°ÝÃD§xÂZ«Ü¤[¡A
¦A³Â·Ð¤j¤j½ç ...
yungchan µoªí©ó 2014/7/28 07:49

¨º­n¬Ýºô­¶¬O§_´£¨ÑcsvÀÉ(­n§ä§ä¬Ý)