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

[µo°Ý] ½Ð°Ý³o­Ó§ì±o¤U¨Ó¶Ü?

[µo°Ý] ½Ð°Ý³o­Ó§ì±o¤U¨Ó¶Ü?

https://djinfo.cathaysec.com.tw/z/zc/zcl/zclCathaysec.djhtm?A=2355

«ç»ò¸Õ³£¤£¦¨¥\¡A±æª©¤W¥ý¶iµ¹¤©¤p§Ì¸Ñµª ÁÂÁÂ

¦^´_ 1# leoncc

¤£¤p¤ß¸Õ¥X¨Óªº¡A¦Û¤vª±ª±¬Ý§a¡I
  1. Sub EX()
  2.     Cells.Delete
  3.     Set ie = CreateObject("internetexplorer.application")
  4.    
  5.     With ie
  6.         .Visible = True
  7.         .Navigate "https://djinfo.cathaysec.com.tw/Z/ZC/ZCL/CZCL3Cathaysec.DJBCD?A=2355&B=Y"
  8.         Do Until .ReadyState = 4
  9.             DoEvents
  10.         Loop
  11.             data = .Document.body.innerText
  12.             arr = Split(data, " ")
  13.             
  14.             x = UBound(arr) + 1
  15.             y = UBound(Split(arr(0), ",")) + 1

  16.             For i = 1 To x
  17.                 For j = 1 To y
  18.                     Cells(j, i) = Split(arr(i - 1), ",")(j - 1)
  19.                 Next
  20.             Next
  21.             .Quit

  22.     End With
  23.    
  24.     Set ie = Nothing
  25.    
  26. End Sub
½Æ»s¥N½X

TOP

¦^´_ 2# joey0415

±z§ìªº¬O³o­Óºô§} : https://djinfo.cathaysec.com.tw/Z/ZC/ZCL/CZCL3Cathaysec.DJBCD?A=2355&B=Y

§Ú·Q­nªº¬O³o­Óºô§} https://djinfo.cathaysec.com.tw/z/zc/zcl/zclCathaysec.djhtm?A=2355

§â±zªº»yªk§ï¦¨¤W­z¤p§Ì·Q­nªººô§} ¦³¿ù»~µo¥Í

ÁÂÁÂ

TOP

¦^´_ 3# leoncc

ºô§}ªº¤º®e´N¬O§A­n§äªº¤º®e¡A¤£­n¶Ã§ïºô­¶¦ì¸m
§A¦Û¤v¤ñ¹ï¤@¤U´Nª¾¹D

TOP

¦^´_  leoncc

¤£¤p¤ß¸Õ¥X¨Óªº¡A¦Û¤vª±ª±¬Ý§a¡I
joey0415 µoªí©ó 2015-8-10 14:19


ªº½T¬O¥i¥H§ì~~
¤£ª¾¹D¬O§_¦³¿ìªk§â´Á¥æ©Òªººô­¶§ì¤U¨Ó©O
http://www.taifex.com.tw/chinese/3/7_12_3.asp

TOP

¦^´_ 5# ShaoQiang


    ­Y¥HExcel¶×¤J¥~³¡¸ê®Æ¡A½Ð¨Ï¥Î¦¹³sµ²
http://www.taifex.com.tw/chinese/3/7_12_3_tbl.asp

TOP

¦^´_  ShaoQiang


    ­Y¥HExcel¶×¤J¥~³¡¸ê®Æ¡A½Ð¨Ï¥Î¦¹³sµ²
http://www.taifex.com.tw/chinese/3/7_ ...
f3202 µoªí©ó 2015-10-4 18:10


³o­Ó¬O¥i¥H¶×¤J¥~³¡¸ê®Æ¡A¦ý¬O¹j¤Ñªº¸ê®Æ­n«ç»ò¦Û°Ê§ó·s©O? ¥L³o­Ó¸ê®Æ¤£·|¨C¤Ñ¦Û°Ê§ó·s:dizzy:

TOP

        ÀR«ä¦Û¦b : ¹ï¤÷¥À­nª¾®¦¡A·P®¦¡B³ø®¦¡C
ªð¦^¦Cªí ¤W¤@¥DÃD