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

[µo°Ý] ¸Ñ¨M±qWEB­¶­±¶×¤J¸ê®Æ¡A¦ýµLªk¨ú±oºô­¶´«­¶±ÄJava±±¨î¤§¸ê®Æ

[µo°Ý] ¸Ñ¨M±qWEB­¶­±¶×¤J¸ê®Æ¡A¦ýµLªk¨ú±oºô­¶´«­¶±ÄJava±±¨î¤§¸ê®Æ

½Ð±Ð¦U¦ì¥ý¶i¡G
    ¤µ¤Ñ·Q±q¬Y­Óºô¯¸¶×¤J­¶­±¸ê®Æ¨ìExcel¡A¦ý¬O¥Ñ©ó¸Óºô¯¸²Ä¤@­¶¤A«pªº¸ê®Æ±Ä¥ÎJava»yªk±±¨î¡A¥H¦Ü©ó¦b¨ú±o²Ä¤G­¶¥H«áªº¸ê®ÆµLªk¶×¤J¡C
½Ð°Ý¬O§_¦³¿ìªk¥i¥H¶×¤J²Ä¤G­¶¥H«á¤§¸ê®Æ¶Ü¡H
¨Ò¦pºô¯¸ http://www.commotec.com.tw/product/list.aspx?id=2834&brand=AUK
½Ð¦U¦ì¥ý¶iÀ°¦£¡I

¥»©«³Ì«á¥Ñ joey0415 ©ó 2015-8-14 18:44 ½s¿è

¦^´_ 1# 97forum

²Ä¤@¦¸¥Î³o¼Ëªº¤è¦¡¸õÂন¥\¡A¬Ý¨Ó³o¤]¬O¤£¿ùªº¤è¦¡¡I
­Y¦³»Ý¦æ½Ð³]©w¤Þ¥Î¶µ¥Ø
microsoft internet controls
  1. Sub ´¹°¶¹q¤l¼Æ¾Ú¬d¸ß()

  2.     With CreateObject("internetexplorer.application")
  3.         .Visible = True
  4.         .Navigate "http://www.commotec.com.tw/product/list.aspx?id=2834&brand=AUK"
  5.         Do Until .ReadyState = 4
  6.             DoEvents
  7.         Loop
  8.         s = 0
  9.         
  10.         For p = 1 To 6 '¦@¦³¤»­¶
  11.             .Navigate "javascript:__doPostBack('_ctl0$MainPlaceHolder$AspNetPager','" & p & "')" 'Âà¸õ¦Ü«ü©w­¶­±
  12.             Do Until .ReadyState = 4
  13.                 DoEvents
  14.             Loop
  15.             
  16. '            Stop
  17.         Set hTable = .Document.getElementsByTagName("table")(5) '²Ä¤­­Ótable
  18.         

  19.             With ActiveSheet
  20.                 For i = 2 To hTable.Rows.Length - 1 '«e¤G­Ó¬O¼ÐÃD»PªÅ¥Õ¸õ¹L
  21.                     For j = 0 To hTable.Rows(i).Cells.Length - 1
  22.                         .Cells(s + i - 1, j + 1) = hTable.Rows(i).Cells(j).innerText
  23.                     Next
  24.                 Next
  25.             End With
  26.                 s = s + 20
  27.                
  28.         Next
  29.         .Quit
  30.         MsgBox "OK"
  31.     End With
  32. End Sub
½Æ»s¥N½X

TOP

¦^´_ 2# joey0415


    ­º¥ý·PÁ joey0415¥ý¶i«e½úªº¸Ñ¨M¤§¹D¡A½T¹ê¥i¦æ¡C
    ¦ý¬O·M²Âªº§Ú¹ï±z©Ò»¡ªº³o¬q¸Ü¤£¸Ñ¡H
     " ­Y¦³»Ý¦æ½Ð³]©w¤Þ¥Î¶µ¥Ø  microsoft internet controls  "
    ¥t¥~¦pªG­n°w¹ï¨C­Ó¤£¦P«~¶µ¡A´N¥²»Ý¤â°Ê§ïµ{¦¡½X(«~¶µ¦WºÙ)¡A¥B·|¦]¨C­Ó«~¶µ­¶¼Æ¤£¦P§ïµ{¦¡½X¡A¬O¦p¦¹¹ï¶Ü¡H

TOP

¦^´_ 3# 97forum

¦pªG¥i¥H°õ¦æ´N¤£­nºÞ¤Þ¥Î¶µ¥Ø

http://www.commotec.com.tw/product/list.aspx?id=2834&brand=AUK
¬O§A§ä¥X¨Óªººô­¶
¦pªG´«¦¨§Oªº«~¶µ®É¡A¥¦ªººô­¶´N¤£¦P

§A¥u­n§ï¦¨§A­nªººô­¶¡A»P¸Óºô­¶ªº­¶½XÁ`¼Æ¤U¥h¶]

²z½×¤WÀ³¸Ó·|°õ¦æ¥Xµ²ªG

TOP

¦^´_ 4# joey0415


    ÁÂÁ±z¡A§Ú¤F¸Ñ¤F¡C·PÁ±z¥Î¤ß¦a¤À¨É¡C

TOP

¦^´_ 4# joey0415


    §Ú¨Ì·Ó¥ý¶iªºµ{¦¡½X­×§ï¦¨³o­Óºô§} http://www.commotec.com.tw/search/default.aspx?xid=2834&no=&id=0 ¡A­¶¼Æ¤]§ï¦¨À³¦³ªº­¶¼Æ¡A¦ý¬O¦b²Ä10­¶©ÎªÌ¬O²Ä11­¶´N¥d¦í¤F¡A¤£ª¾¨ä­ì¦]¬°¦ó¡H¦ý¬Oµ{¦¡¤´µM¬O¦b°õ¦æ¤¤¡C¤£ª¾¬O§_¥i¥HÀ°¦£¸Ñ´b¡I

TOP

¦^´_ 6# 97forum

§Aµ¹ªººô§}¥´¤£¶}

¥[¤W§A§ó§ïºô§}¦ì¸m¡A¤£¦A¬O§Ú¤§«e¼gªº­¶­±¡A´Nºâ¥´±o¶}¤]¤£¨£±o¦³¥Î

TOP

¦^´_ 7# joey0415


   1. ºô§}¬O¥i¥H¶}±Ò¡A¦]¬°­n¼´¸ê®Æ®w4451µ§¸ê®Æ¥i¯à·|¤[¤@¨Ç¡A¨ä¥X²{ªººô­¶§Î¦¡¨S¬Æ»òÅÜ°Ê¡A¥u¬O¦b¼´¨ú¸ê®Æ¶iexcel®É¡A´«¨ì²Ä10­¶¡B²Ä11­¶®É´N·|¥d¦í¤£°Ê¤F¡C
   2. ·Q½Ð°Ý¥ý¶i¡A±z·í®Éµ{¦¡½X¤¤Â^¨ú¤§Table¬O¦p¦ó¥h­pºâ§ì¨ú²Ä¤­¸ê®Æªí¡H

TOP

        ÀR«ä¦Û¦b : ¤H¨ÆªºÁ}Ãø»PµZ¿i¡A´N¬O¤@ºØ¦ÒÅç¡C
ªð¦^¦Cªí ¤W¤@¥DÃD