c_c_lai

¦^´_ 37# joey0415
ÁÂÁ§A¡I
¦pªG§Ú·Q­n´ú¸Õ "http://www.cnyes.com/twstock/Institutional/1101.htm"
¸Ó¦p¦óÀ³¥Î "¬d§ä¼ÐÅÒ"¡H

joey0415

¦^´_ 36# c_c_lai
§Ú«á¨Ó¥Îexcelhome ÂŤѤjªº¤ÀªRªk¡A¥u­n¿é¤Jºô­¶¡A¨C­Ótag¬O­þ¤@­Ó³£¶]¤£±¼¡A«D±`¦n¥Î

ÁÙ¬O·PÁ«üÂI¡A±Ð¾Ç¬Ûªø


¬d§ä¼ÐÅÒ.zip (82.59 KB)

¤U¸ü¦¸¼Æ: 28

2013-11-19 22:57

c_c_lai

¦^´_ 32# joey0415
·j´M "<table"
(0)   <table border='0' cellspacing='0' cellpadding='0'><tr><td width='16%'>
(1)    <table>
                        <h3>ªñ¤@­Ó¤ë¤T¤jªk¤H¶R½æ¶WÁ`ªí</h3>
(2)   <table>
                            <caption>
                                <a href="#">¥~¸ê¶R½æ¶W</a></caption>
(3)   <table>
                            <caption>
                                <a href="#">§ë«H¶R½æ¶W</a></caption>
(4)   <table>
                            <caption>
                                <a href="#">¦ÛÀç°Ó¶R½æ¶W</a></caption>
(5)   <table>
                            <caption>
                                <a href="#">¤T¤jªk¤H¶R½æ¶W</a></caption>
1101.rar (15.64 KB)

¤U¸ü¦¸¼Æ: 18

2013-11-19 21:43

GBKEE

¦^´_ 34# joey0415
§Ú§â¥¦©ñµÛ¨S¦³[­«·s¾ã²z¦¨­ì¨Óªºµe­±]
­Y­n¥Î¤W­±ªº¤èªk§ì¨ú®É¡A³Ì«á¤£­nquit,¤£quit­n¦ó§@¥Î.

joey0415

¦^´_ 33# GBKEE

ÁÂÁª©¥D¡I§Ú¤j·§ª¾¹D¤F¡I
ÁÂÁÂ

½Ð±Ð¤@¤U¡A¹d¦ëºôªººô­¶±`·|©w®É­«·s¾ã²z
­Y­n¥Î¤W­±ªº¤èªk§ì¨ú®É¡A³Ì«á¤£­nquit
¥u·Q­n±Nbody.innertext¤º®e©ñ¤W¥h¡A¤£­nÅý¹d¦ëºô¦A­«·s¾ã²z¦¨­ì¨Óªºµe­±¡A­n¥[¤W¤°»ò»y¥y©O¡H

GBKEE

¦^´_ 32# joey0415
IQY ¬d¸ßÀɪº¤º®e(°ÆÀɦW¬° IQY ,¦s©ó°O¨Æ¥»,¤p§@®a.)

1. WEB
   
2. 1
   
3. http://www.cnyes.com/twstock/itrust/1101.htm
   
4. 
   
5. '§ë«H¶i¥Xºô­¶ 'Selection => tableªº¯Á¤Þ­È ,IQY¤å¥ó¥Ñ1¶}©lºâ°_, VBAµ{¦¡ ¥Ñ0 ¶}©lºâ°_
   
6. Selection=2        
   
7. 
   
8. Formatting=None
   
9. PreFormattedTextToColumns=True
   
10. ConsecutiveDelimitersAsOne=True
    
11. SingleBlockTextImport=False
    
12. DisableDateRecognition=False
    
13. DisableRedirections=False

½Æ»s¥N½X

joey0415

¦^´_ 30# c_c_lai

·PÁ¤j¤j¤À¨É¡A§Ú¬Q¤Ñ³Ì«á¤]¥Îtable¨Ó§ä
¤£¹L½Ð°Ý¤j¤j.Document.getelementsbytagname("table")(1).outerHTML

¤¤ªº1¬O«ç»òºâªº¡A§Úºâªº¬O2¡Aºô­¶ªºtable¦³©T©wºâªk¶Ü¡H¥Ñ¤W¦Ó¤U¡A¤×¥ª¦Ó¥k¶Ü¡H
·PÁÂ

GBKEE

¦^´_ 28# joey0415
¦³¨Ç¦³id»Ptagname ¦³¨Ç¥u¦³id ¡A¦ý¤@©w·|¦³tagname
ºK¨úºô­¶­ì¨ÏÀɤ@¬q¤º®e <input type="hidden" name="__VIEWSTATE" id="__VIEWSTATE" value="" />
getElementsBytagname("input")     '·|¬O­ì¨ÏÀÉ©Ò¦³<input type=???  .....>  ªº¶°¦X
getElementsByName("__VIEWSTATE")  '°ß¤@ªº Name
getElementById("__VIEWSTATE")     '°ß¤@ªº Id

1. Option Explicit
   
2. Sub TEST11()
   
3.     Dim x
   
4.     With CreateObject("InternetExplorer.Application")
   
5.         .Visible = True '¬O§_Åã¥ÜIE
   
6.         .Navigate "http://www.cnyes.com/twstock/Institutional/1101.htm"
   
7.         Do While .readyState <> 4: DoEvents: Loop
   
8.         Set x = .document.getElementById("a_itrust")
   
9.         x.Click ' Âà¨ì ºô­¶: 'http://www.cnyes.com/twstock/itrust/1101.htm            '
   
10.         Do While .readyState <> 4: DoEvents: Loop
    
11.         ' .document.body.innerHTML = .document.getElementById("tabvl").outerHTML  'ºô­¶¤å¥ó¤¸¯À¨S³o Id="tabvl"
    
12.         .document.body.innerHTML = .document.getElementsBytagname("table")(1).outerHTML  'tagname¦¨­û±q 0 ¶}©l
    
13.         .execwb 17, 2 'Select All
    
14.         .execwb 12, 2 'Copy selection
    
15.         ActiveSheet.[A1].Select
    
16.         ActiveSheet.PasteSpecial Format:="HTML" ', NoHTMLFormatting:=True
    
17.         .Quit
    
18.     End With
    
19. End Sub

½Æ»s¥N½X

c_c_lai

¦^´_ 28# joey0415
¦]¬°§Úªº FireFox µLªk¨Ï¥Î¤W¶Ç¹Ï¤ù»Pªþ¥ó¡A©Ò¥H¤~¥t¥~¥Î IE ¤W¶Ç

¤U¸ü (22.84 KB)

2013-11-19 07:22

c_c_lai

¦^´_ 28# joey0415
¸Õ¸Õ³o­Ó¡G

1. Sub ¹d¨Éºô()
   
2.     Dim sID As String, sStatus As String, URL As String
   
3.     Dim x
   
4.    
   
5.     URL = "http://www.cnyes.com/twstock/Institutional/1101.htm"
   
6.     With CreateObject("InternetExplorer.Application")
   
7.         .Visible = True     '  ¬O§_Åã¥Ü IE
   
8.         .Navigate URL
   
9.         
   
10.         Do While .readyState <> 4
    
11.             DoEvents
    
12.         Loop
    
13.         
    
14.         For Each x In .Document.getelementsbytagname("input")
    
15.             If x.Value = "¬d¸ß" Then x.Click: Exit For
    
16.         Next
    
17.                
    
18.         .Document.body.innerHTML = .Document.getelementsbytagname("table")(1).outerHTML
    
19.         .execwb 17, 2       '  Select All
    
20.         .execwb 12, 2       '  Copy selection
    
21.         
    
22.         With ActiveSheet
    
23.             .Cells.Clear
    
24.             .[A2].Select
    
25.             .PasteSpecial Format:="HTML"
    
26.             .Cells.EntireColumn.AutoFit     '  ¦Û°Ê½Õ¾ãÄæ¼e
    
27.         End With
    
28.         .Quit
    
29.     End With
    
30. End Sub

½Æ»s¥N½X