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

[µo°Ý] Â^¨úweb¤U©Ô¦¡ªí³æ

[µo°Ý] Â^¨úweb¤U©Ô¦¡ªí³æ

½Ð°Ý¤U©Ô¦¡ªí³æ¸Ì­±ªº¤å¦r¥i¥HÂ^¨ú¥X¨Ó¶Ü

¦³¥ÎF12¬Ý¹L¤F

¦ý¬OÁÙ¬O¤£ª¾¹D¸Ó«ç»ò¨Ï¥Î¤~¦n

¦^´_ 9# Hsieh
    ½Ð°Ý¦pªG¬O³oºØªº¤U©Ô¸Ó«ç»ò¼g?
   http://www.cnyes.com/twstock/incomes/1503.htm
   ¤U­±¬Oºô­¶­ì©l½X
    ½Ð°Ý±q­þ¸Ì§ï¤~¯à§ì¨ì§Oªº°Ï¶¡¸ê®Æ?
   ¦pªG¥Îexcel¸Ì­±ªº±q¥~³¡¶×¤J¸ê®Æ
    ³£¥u¯à¶×¤J³Ì·sªº¸ê®Æ´NºâÂI¨ì¨ä¥L°Ï¶¡¦b¶×¤J¸ê®Æ¤@¼Ë¬O³Ì·sªº¤£¬O©Ò¿ï¾Üªº°Ï¶¡
      

        <option selected="selected" value="2011¦~1~9¤ë">2011¦~1~9¤ë</option>
        <option value="2011¦~1~6¤ë">2011¦~1~6¤ë</option>

        <option value="2011¦~1~3¤ë">2011¦~1~3¤ë</option>
        <option value="2010¦~1~12¤ë">2010¦~1~12¤ë</option>
        <option value="2010¦~1~9¤ë">2010¦~1~9¤ë</option>
        <option value="2010¦~1~6¤ë">2010¦~1~6¤ë</option>
        <option value="2010¦~1~3¤ë">2010¦~1~3¤ë</option>
        <option value="2009¦~1~12¤ë">2009¦~1~12¤ë</option>

        <option value="2009¦~1~9¤ë">2009¦~1~9¤ë</option>
        <option value="2009¦~1~6¤ë">2009¦~1~6¤ë</option>
        <option value="2009¦~1~3¤ë">2009¦~1~3¤ë</option>
¦r¨å¨â¦U¦r ÁÙ¯uÃø²z¸Ñ

TOP

¦^´_ 8# FAlonso


    ³o­Ó­ì¦]¥i¯à¬O¦]¬°«e¤@¦¸ªºmyieÅܼƥ¼³Q¨ø¸ü©Ò­P
©Ò¥H§Ú¦bµ{¦¡¶}ÀY´N¥ý
Set myie = Nothing
µM«á¦A¥h«Ø¥ßª«¥ó
Set myie = CreateObject("internetexplorer.application")
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 7# Hsieh
¨ä¹ê¥ÑKTV¦Ü©_¼¯¤Ñ®ðªº¨Ò¤l,¤[¤£¤[´N¦³³o­Ó°ÝÃD,¤£ª¾¬O¨t²ÎÁÙ¬O°O¾ÐÅé°ÝÃD,¦ý¤£²`¨s¤F
80 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

¥»©«³Ì«á¥Ñ Hsieh ©ó 2011-3-11 10:47 ½s¿è

¦^´_ 6# FAlonso

ª½±µ¼g¤JÀx¦s®æ¡A¤£¶·¥ý¼g¤J°}¦C
³o­«ÂI¥u¬O¨ú¥X¤U©Ô¿ï³æ¤º®eªº»yªk
  1. Sub abc()
  2. Dim myURL As String,i As Integer
  3. Set myie = Nothing
  4. Set myie = CreateObject("internetexplorer.application")
  5. myURL = "http://tw.weather.yahoo.com/"
  6. With myie
  7. .Navigate myURL
  8. .Visible = False
  9. Do While .Busy And .ReadyState <> READYSTATE_COMPLETE
  10. DoEvents
  11. Loop
  12. For i = 0 To .Document.all("select").Options.Length - 1
  13. Cells(i + 1, 1) = .Document.all("select").Options(i).innertext
  14. Next
  15. .Quit
  16. End With
  17. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¥»©«³Ì«á¥Ñ FAlonso ©ó 2011-3-9 14:43 ½s¿è

§âH¤jªºµ{¦¡²¤¬°­×§ï¤@¤U,Åܦ¨
  1. Sub abc()
  2. Dim myie As SHDocVw.InternetExplorer, myURL As String, ar(), i As Integer

  3. Set myie = CreateObject("internetexplorer.application")
  4. myURL = "http://tw.weather.yahoo.com/"

  5. With myie
  6. .Navigate myURL

  7. Do While .Busy And .ReadyState <> READYSTATE_COMPLETE
  8. DoEvents
  9. Loop

  10. .Visible = False

  11. For i = 0 To .Document.all("select").Options.Length - 1
  12. ReDim Preserve ar(i)
  13. ar(i) = .Document.all("select").Options(i).innertext
  14. Next



  15. Range("A1").Activate
  16. For i = 1 To .Document.all("select").Options.Length - 1
  17. ActiveCell.Value = ar(i)
  18. ActiveCell.Offset(1).Activate
  19. Next

  20. .Quit
  21. End With
  22. End Sub
½Æ»s¥N½X
´N¦æ¤F
¤£¹L³o­Óµ{¦¡²Ä16¦æ¤£¤Óí©w,¦³®É·|¥X²{¿ù»~91,¨S¦³³]©wª«¥óÅܼƩÎwith°Ï¶ôÅܼÆ,¦³®É¦¨¥\°õ¦æ,¤£ª¾·d¤°»ò°­
80 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

¦^´_ 3# Hsieh


    ·PÁª©¤j¬Û§U·|¨ü´f¨}¦h

TOP

¦^´_ 2# kimbal


    ·PÁ§Aªº¦^ÂÐ

§Ú¬O«ü
http://tw.weather.yahoo.com/

¸Ì­±ªº°ê»Ú¥D­n³£¥«¤Ñ®ð

¬wªº¤U©Ô¦¡ªí³æ

¸Ó«ç»ò±q³oºô¯¸¶×¤Jexcel

±o¨ì¨È¬w¤j¬v¬w¼Ú¬wµ¥¤å¦r

TOP

¦^´_ 1# carzyindex
¥H¿úÂdKTVºô­¶¬°¨Ò¡Aªù¥«¬d¸ßªº¤U©Ô¿ï³æ¤º®e
http://www.cashboxparty.com/ktv/ktv_index.asp
  1. Sub GetWebObj()
  2. Dim MyURL$, Ar()
  3. MyURL = "http://www.cashboxparty.com/ktv/ktv_index.asp"
  4. Set MyIE = Nothing
  5. Set MyIE = CreateObject("InternetExplorer.Application")
  6.             With MyIE
  7.                 .Navigate MyURL
  8.                 Do While .Busy Or .ReadyState <> 4
  9.                     DoEvents
  10.                 Loop
  11.                 .Visible = False
  12.                For i = 0 To .document.all("dept").Options.Length - 1
  13.                ReDim Preserve Ar(i)
  14.                Ar(i) = .document.all("dept").Options(i).innerText
  15.                Next
  16.                .Quit
  17.             End With
  18. MsgBox Join(Ar, Chr(10))
  19. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

ªí³æ¸Ìªº?
§â³æ¸ÌªF¦è©ñ¦bSHEETªºA1
    Dim Arrlist()
    Arrlist = ComboBox1.List
    Range("A1").Resize(UBound(Arrlist)) = Arrlist
À´±oµo°Ý,µª®×´N·|¦b¨ä¤¤

¤µ¤éの¤@¬íは  ©ú¤éにない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

        ÀR«ä¦Û¦b : ¤H¥Í¨S¦³©Ò¦³Åv¡A¥u¦³¥Í©Rªº¨Ï¥ÎÅv¡C
ªð¦^¦Cªí ¤W¤@¥DÃD