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

[µo°Ý] ³sÄò§ì¨ú³W«h§ïÅܤ§ºô§}¸ê®Æ

[µo°Ý] ³sÄò§ì¨ú³W«h§ïÅܤ§ºô§}¸ê®Æ

¥»©«³Ì«á¥Ñ pideo ©ó 2014-4-9 23:00 ½s¿è

¥ý·PÁ¤@¤U³oÃ䪺°ª¤â¤j¤j¹ï¤p§Ìªº«ü¾É
¤p§Ì¥Ø«e·Q§â
¥H¤Uºô§}ªº¤º®e§Ë¨ìexcel¸Ì
http://jdata.yuanta.com.tw/z/zc/zc3/zc3_2885.djhtm

¨ä¤¤2885¬O­ÓÅܼƦ¹Åܼƪº­È±N©ñ¦bsheet1 ¤¤ªºA¦Cªí¸Ì
¥ý²³æªºÀH«K¼g¨â­Ó¼Æ¦ÛA1= 2885 ¡A A2=1907

µM«á¤p§Ì·QÅýºô§}³¡¤Àªº¼Æ¦r¨Ì·ÓSheet1 ¸ÌªºA¦C¦Û°Ê¤@­Ó¤@­ÓŪ¨ú«á®M¤W­ìºô§}2885ªº¦ì¸m
µM«áÅý¥L¦Û¤v§ì¨úºô­¶ªí®æ«á©ñ¨ìSheet2¸Ì
¦]¦¹¤p§Ì¼g¤F¥H¤Uµ{¦¡
¦ý¬O´ú¸Õ®É®Ú¥»µLªk°õ¦æOTZ
¥i§_½Ð°ª¤â¤j¤j«ü¾É
·P®¦
  1. Sub test()
  2.     Dim x As Integer
  3.     Set s = Worksheets("sheet2")
  4.     For i = 1 To 2
  5.         x = Worksheets("sheet1").Cells(i, 1)
  6.         With s.QueryTables.Add(Connection:= _"URL;http://jdata.yuanta.com.tw/z/zc/zc3/zc3_" & x & ".djhtm", _ Destination:=s.Range("$A$1"))
  7.              .Selection = EntirePage
  8.              .Formatting = None
  9.              .PreFormattedTextToColumns = True
  10.              .ConsecutiveDelimitersAsOne = True
  11.              .SingleBlockTextImport = False
  12.              .DisableDateRecognition = False
  13.              .DisableRedirections = False
  14.         End With
  15.     Next
  16. End Sub
½Æ»s¥N½X

¥»©«³Ì«á¥Ñ ­ã´£³¡ªL ©ó 2014-4-11 10:39 ½s¿è

EXCEL¡D³sÄò§ó·s¡eWeb ¬d¸ß¡f¤u§@ªí¡A¨ú±o«ü©wÄæ¦ì¤º®e
http://blog.xuite.net/smile1000mile/blog/124471213

TOP

¤Ó·PÁ¤j¤j¤F
·P®¦

TOP

        ÀR«ä¦Û¦b : ¤H­nª¾ºÖ¡B±¤ºÖ¡B¦A³yºÖ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD