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

leoncc

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

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

ShaoQiang

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

f3202

¦^´_ 5# ShaoQiang


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

ShaoQiang

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

joey0415

¦^´_ 3# leoncc

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

leoncc

¦^´_ 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¥Í

ÁÂÁÂ

joey0415

¦^´_ 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. 
    
17.             For i = 1 To x
    
18.                 For j = 1 To y
    
19.                     Cells(j, i) = Split(arr(i - 1), ",")(j - 1)
    
20.                 Next
    
21.             Next
    
22.             .Quit
    
23. 
    
24.     End With
    
25.    
    
26.     Set ie = Nothing
    
27.    
    
28. End Sub

½Æ»s¥N½X