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

½Ð°Ý³o­Óºô­¶¦p¦ó¥ÎWEB¬d¸ß¿é¤Jexcel

¥»©«³Ì«á¥Ñ GBKEE ©ó 2013-11-19 08:05 ½s¿è

¦^´_ 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
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

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

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2013-11-19 11:54 ½s¿è

¦^´_ 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. '§ë«H¶i¥Xºô­¶ 'Selection => tableªº¯Á¤Þ­È ,IQY¤å¥ó¥Ñ1¶}©lºâ°_, VBAµ{¦¡ ¥Ñ0 ¶}©lºâ°_
  5. Selection=2        

  6. Formatting=None
  7. PreFormattedTextToColumns=True
  8. ConsecutiveDelimitersAsOne=True
  9. SingleBlockTextImport=False
  10. DisableDateRecognition=False
  11. DisableRedirections=False
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

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

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2013-11-19 13:51 ½s¿è

¦^´_ 34# joey0415
§Ú§â¥¦©ñµÛ¨S¦³[­«·s¾ã²z¦¨­ì¨Óªºµe­±]
­Y­n¥Î¤W­±ªº¤èªk§ì¨ú®É¡A³Ì«á¤£­nquit,¤£quit­n¦ó§@¥Î.
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

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

TOP

¥»©«³Ì«á¥Ñ joey0415 ©ó 2013-11-19 23:02 ½s¿è

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

TOP

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

TOP

¦^´_ 37# joey0415
¥¦¦n¹³µLªkÀË´ú¥X table¡C

TOP

¦^´_ 38# c_c_lai


±Nºô§}¶K¦b­º­¶ªº A1

¦A«ö¬d¸ß

ÂIÀ»¸Ó³æ¤¸®æ´N·|¬Ý¨ì¤º®e

TOP

        ÀR«ä¦Û¦b : ¡i°±º¢¤£«e¡A²×µL©Ò±o¡j¤H³£°g©ó´M§ä©_ÂÝ¡A¦]¦Ó°±º¢¤£«e¡FÁa¨Ï®É¶¡¦A¦h¡B¸ô¦Aªø¡A¤]¤FµL¥Î³B¡A²×µL©Ò±o¡C
ªð¦^¦Cªí ¤W¤@¥DÃD