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

[µo°Ý] ½Ð±Ð¦p¦ó³z¹L¨C¤Ñ¤é´Á»PÀx¦s®æ¤å¦r¨Ó¶×¤J¥~³¡¸ê®Æ©O

[µo°Ý] ½Ð±Ð¦p¦ó³z¹L¨C¤Ñ¤é´Á»PÀx¦s®æ¤å¦r¨Ó¶×¤J¥~³¡¸ê®Æ©O

½Ð°Ý¬O§_¥i¥H³z¹L¤£¦P¤é´Á»PÀx¦s®æªº¤å¦r§@¬°¸ô®|¡A¨C¤Ñ¶×¤J¤£¦PªºÀɮשO
  1. Sub ¶×¤J¥~³¡¸ê®Æ()
  2. Dim datecode As String '©w¸qdatacode¬°¤é´Á¦r¦ê
  3. Dim futures As String '©w¸qfutures¬°°Ó«~¥N¸¹ ¨ä¤å¦r¨Ó·½¦bCells(2, "L")

  4. y = Year(Now)
  5. m = Month(Now)
  6. d = Day(Now)
  7. datecode = y & m & d
  8. futures = Cells(2, "L") '¸ÕµÛ§â¤U¤èªº¤é´Á»P¥N½X§ï¦¨©w¸qªºÅÜ¼Æ «oµLªk§@¥Î
  9. With ActiveSheet.QueryTables.Add(Connection:= _
  10.         "TEXT;D:\data\datecode\futures\datecode_Match.txt", Destination:=Range("$A$2"))
  11.         .Name = "datecode_Match"
  12. End Sub
½Æ»s¥N½X

¶×¤J¥~³¡¸ê®Æ.rar (17.23 KB)

        ÀR«ä¦Û¦b : ¤Ñ¤W³Ì¬ü¬O¬P¬P¡A¤H¥Í³Ì¬ü¬O·Å±¡¡C
ªð¦^¦Cªí ¤W¤@¥DÃD