ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

¤WÂdªÑ²¼¿Ä¸ê¿Ä¨é¾lÃBCSV¤U¸ü°ÝÃD

¦^´_ 10# pupai


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

TOP

¦^´_ 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. Theurl = "http://www.otc.org.tw/ch/stock/3insti/DAILY_TradE/3itrade_download.php?t=D&d=& xDate &s=0"
  8.         

  9.     With ActiveSheet.QueryTables.Add(Connection:="URL;" & Theurl, Destination:=Range("A2"))
  10.         .BackgroundQuery = True
  11.         .RefreshStyle = xlOverwriteCells
  12.         .RefreshPeriod = 0
  13.         .AdjustColumnWidth = False
  14.         .WebSelectionType = xlSpecifiedTables
  15.         .WebFormatting = xlWebFormattingNone
  16.         '.WebTables = "1,2,3,4"
  17.         .WebDisableDateRecognition = True         'Ãö³¬¤é´Á¿ëÃÑ
  18.         .Refresh BackgroundQuery:=False
  19.         .ResultRange.Columns(1).TextToColumns Destination:=.ResultRange.Cells(1), DataType:=xlDelimited, _
  20.                 TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
  21.                 Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _
  22.                 :=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
  23.                 Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1 _
  24.                 ), Array(14, 1), Array(15, 1), Array(16, 1), Array(17, 1), Array(18, 1), Array(19, 1), Array _
  25.                 (20, 1)), TrailingMinusNumbers:=True
  26.             'TextToColumns ¤èªk (¸ê®Æ­åªR)ªº°Ñ¼Æ¥i¿ý»s±o¨ì
  27.             'ResultRange.Columns(1):weby¸ê®Æªº²Ä¤@Äæ
  28.             'ResultRange.Cells(1)  :weby¸ê®Æªº²Ä¤@­ÓCells(Àx¦s®æ)
  29.             .Delete
  30.     End With
  31. End Sub
½Æ»s¥N½X

TOP

¦^´_ 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
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 13# GBKEE


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

TOP

¦^´_ 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. ReDate:
  7.     URL = "URL; http://www.twse.com.tw/ch/trading/fund/T86/T86.php?qdate=" & xDate
  8.     With ActiveSheet.QueryTables.Add(Connection:=URL, Destination:=Range("B1"))
  9.         .WebSelectionType = xlSpecifiedTables
  10.         .WebFormatting = xlWebFormattingNone
  11.         .WebTables = "5"
  12.         .WebPreFormattedTextToColumns = True
  13.         .WebConsecutiveDelimitersAsOne = True
  14.         .WebSingleBlockTextImport = False
  15.         .WebDisableDateRecognition = False
  16.         .WebDisableRedirections = False
  17.         .Refresh BackgroundQuery:=False
  18.         
  19.     End With


  20. End Sub
½Æ»s¥N½X

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2014-6-20 06:45 ½s¿è

¦^´_ 15# pupai
·j´M ¤@¤U ³oºô§}
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_  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ÁÂ

TOP

·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§ä§ä¬Ý)
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : ·O´d¨S¦³¼Ä¤H¡A´¼¼z¤£°_·Ð´o¡C
ªð¦^¦Cªí ¤W¤@¥DÃD