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

[¤À¨É] ¤j½L¨C¤ë¨C¤Ñ¾ú¥v¦¨¥æ¶q»Pª÷ÃB¤U¸ü

[¤À¨É] ¤j½L¨C¤ë¨C¤Ñ¾ú¥v¦¨¥æ¶q»Pª÷ÃB¤U¸ü

¥»©«³Ì«á¥Ñ white5168 ©ó 2012-5-31 00:43 ½s¿è

Ä~¤W¦¸¦UªÑªÑ»ù¾ú¥v¸ê®Æ¤U¸ü,¦A¤@¦¸¤À¨É ¤j½L¾ú¥v¦¨¥æ¶q¤U¸ü
ªþ¥ó¦³ "¤j½L¨C¤ë¾ú¥v¦¨¥æ¶q»Pª÷ÃB¤U¸ü" ÀÉ, Åwªï¦U¦ì¥ý¶i¸Õ¥Î¬Ý¬Ý
¦p¦³°ÝÃDÅwªï§iª¾¥H«K©ó­×§ï,µ{¦¡½X«Ý¤j®aı±o¤£¿ù¥Î®É,·|µy«á¸É¤W

¤j½L¦¨¥æ¶q¤U¸ü.rar (19.38 KB)

¤j½L¨C¤ë¾ú¥v¦¨¥æ¶q»Pª÷ÃB¤U¸ü

¦^´_ 5# GBKEE
½Ð±Ð ª©¤j ­ì©lªººô­¶¤£¨£¤F¡A¥i§ï¨º¤@­Óºô§}¡AÁÂÁÂ

TOP

·PÁ¤j¤j¤À¨É
­è¦n«D±`»Ý­n.ÁÂÁÂ:)

TOP

ÁÂÁ¤j¤jªº¤À¨É¡A¨ü¯q¨}¦h

TOP

¤Ó´Î¤F
«D±`·PÁÂGBKEE¤j¤jªº¼ö¤ß¤À¨É

TOP

ÁÂÁ¯«¤HGB¤j,­ì¨Ó¦p¦¹,·P¿EGB¤jªº¤À¨É

TOP

¦^´_ 76# rinkenny
¸Õ¸Õ¬Ý
  1. Option Explicit
  2. Private Sub ¤j½L¦¨¥æ¸ê°T()
  3.     Dim xlTheYear As String, xlTheMonth As String, STK_NO As String, xlTheFile As String,  Sh As Worksheet
  4.     With Sheets("Sheet1")
  5.         xlTheYear = Format(.Range("C1"), "0000")  '­×§ï¦r¦ê®æ¦¡
  6.         xlTheMonth = Format(.Range("C2"), "00")   '­×§ï¦r¦ê®æ¦¡
  7.         STK_NO = Format(.Range("C3"), "0000")  '­×§ï¦r¦ê®æ¦¡
  8.     End With
  9.     ''''''''''''''''''''''''''''''''''''''''''''''''''''''
  10.     Set Sh = Workbooks("§A«ü©wªº¬¡­¶Ã¯").Sheets("¾ú¥v¸ê®Æ")
  11.     ''''''''''''''''''''''''''''''''''''''''''''''''''''''
  12.     '******http://www.twse.com.tw/ch/trading/exchange/FMTQIK/FMTQIK2.php*****
  13.     xlTheFile = "http://www.twse.com.tw/ch/trading/exchange/FMTQIK/FMTQIK2.php?STK_NO=" & STK_NO & "&myear=" & xlTheYear & "&mmon=" & xlTheMonth & "&type=csv"
  14.         With Workbooks.Open(xlTheFile)
  15.         .Sheets(1).UsedRange.Copy Sh.Range("A" & Rows.Count).End(xlUp).Offset(1) '±µµÛAÄæ ½Æ»s¤U¥h
  16.         .Close 0
  17.     End With
  18. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

G¤j,§Ú¬OVBA·s¤â,¥i¥H½Ð±Ð,¦pªG¬d¸ß¤j½L,«ö¤F¤U¸ü«á·|¶K¦b­ì¥»ªº¤u§@ªí¤º,¦pªG¬O·Q¶K¦b­ì¥»¤w¸g¦s¦bªº¤u§@ªí©O?¤ñ¦p¸Ó¤u§@ªí¦WºÙ¬O"¾ú¥v¸ê®Æ",µ{¦¡½X¤S¸Ó«ç»ò­×§ï!ÁÂÁÂ!

TOP

¦^´_ 74# GBKEE

G¤j
    ¥i¥H¤F
§ï¤Ñ¦A¸ò§A½Ð±Ð
ÁÂÁÂ

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2013-9-19 20:58 ½s¿è

¦^´_ 73# pupai
¸Õ¸Õ¬Ý
  1. Option Explicit
  2. Private Sub ¤j½L¦¨¥æ¸ê°T()
  3.     Dim xlTheYear As String, xlTheMonth As String, STK_NO As String, xlTheFile As String, AR
  4.     Dim Sh As Worksheet
  5.     xlTheYear = Format(Range("C1"), "0000")  '­×§ï¦r¦ê®æ¦¡
  6.     xlTheMonth = Format(Range("C2"), "00")   '­×§ï¦r¦ê®æ¦¡
  7.     STK_NO = Format(Range("C3"), "0000")  '­×§ï¦r¦ê®æ¦¡
  8.     Set Sh = ThisWorkbook.Sheets.Add         '·s¼W¤u§@ªí
  9.     Sh.Name = xlTheYear & "_" & xlTheMonth   '·s¼W¤u§@ªí©R¦W
  10.     '******http://www.twse.com.tw/ch/trading/exchange/FMTQIK/FMTQIK2.php*****
  11.     'xlTheFile = "http://www.twse.com.tw/ch/trading/exchange/FMTQIK/FMTQIK2.php?STK_NO=" & STK_NO & "&myear=" & xlTheYear & "&mmon=" & xlTheMonth & "&type=csv"
  12.    
  13.      '******http://www.twse.com.tw/ch/trading/exchange/BWIBBU/BWIBBU.php*****
  14.      xlTheFile = "http://www.twse.com.tw/ch/trading/exchange/BWIBBU/BWIBBU.php?STK_NO=" & STK_NO & "&myear=" & xlTheYear & "&mmon=" & xlTheMonth
  15.     '**************************************************************
  16.     With Workbooks.Open(xlTheFile)
  17.         If InStr(xlTheFile, "BWIBBU") Then
  18.             AR = .Sheets(1).Range("b446").CurrentRegion 'http://www.twse.com.tw/ch/trading/exchange/BWIBBU/BWIBBU.php
  19.         Else
  20.             .Sheets(1).UsedRange.Copy Sh.[A1]
  21.          End If
  22.           .Close 0

  23.     End With
  24.     With Sh
  25.         If InStr(xlTheFile, "BWIBBU") Then .Range("A1").Resize(UBound(AR, 1), UBound(AR, 2)) = AR
  26.         .Cells.EntireColumn.AutoFit            '½Õ¾ãÄæ¼e
  27.         .Columns("A:A").ColumnWidth = 28.56
  28.     End With
  29. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : ¤H¥Í¨S¦³©Ò¦³Åv¡A¥u¦³¥Í©Rªº¨Ï¥ÎÅv¡C
ªð¦^¦Cªí ¤W¤@¥DÃD