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

[µo°Ý] ¶}±Òºô­¶ªº°ÝÃD

[µo°Ý] ¶}±Òºô­¶ªº°ÝÃD

¦U°Ý¤j¤j¦n:

      ³o¬Oªþ¥óªºµ{¦¡½X¡Aµ{¦¡½X¥D­n¬O§Q¥Î¥Ø«eÀx¦s®æ(¥u¦³¤@­Ó)¡AÂI¿ï¥¨¶°¶}±Òºô­¶¡C

      Set temp = CreateObject("InternetExplorer.Application")
      temp.Visible = True
      x = ActiveCell.Value
      OpenI = "http://tw.stock.yahoo.com/q/ta?s=" & x
      temp.Navigate OpenI
      
      °ÝÃD:
      ¦]¬°§Ú·Q¥ÎgoogleªºchromeÂsÄý¾¹¶}±Ò
      1.«ç»ò³]­p¦¨§Q¥ÎchromeÂsÄý¾¹¶}±Ò
      2.¨Ã¥B¿ï¨ú½Æ¼Æ­ÓÀx¦s®æ(1Äæ¦h¦C)¡A¨Ì¾ÚÀx¦s®æªº¤º®e¡A¦A§Q¥ÎÂsÄý¾¹¦b·s¼W¤@­Óµøµ¡¤¤¶}±Ò¦h­Ó¤À­¶¡C

test.rar (12.96 KB)

¦^´_ 1# spermbank

1. ¥ý¥kclick chrome§ä§ä¨ä¦ì¸m, §â¥L©ñ¦bstrChromePath, ¨Ò¦p¤U­±win7ªº: "C:\Users\USERNAME\AppData\Local\Google\Chrome\Application\Chrome.exe "
2.  °²³]3­Ó¸¹¤À§O¦bA1,A2,A3
  1.   Dim strChromePath As String
  2.   strChromePath = Environ("USERPROFILE") & "\AppData\Local\Google\Chrome\Application\Chrome.exe"
  3.     For Each C In Range("A1:A3")
  4.         x = C.Value
  5.         Shell (strChromePath & " -url http:tw.stock.yahoo.com/q/ta?s=" & x)
  6.     Next
½Æ»s¥N½X
À´±oµo°Ý,µª®×´N·|¦b¨ä¤¤

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

TOP

¦^´_ 2# kimbal

½Ð°Ý¤@¤U:

     §Ú¿ï¨úªº½Æ¼ÆÀx¦s®æ¡A¨Ã¤£¤@©w³£¦bA1,A2,A3
     ¦Ó¬O¤£½T©wÀH¾÷®Ø¨úªº²Ä?Äæ²ÄX¦æ¦Ü²Ä?Äæ²ÄY¦æ
     ³o¼Ë¤l­n«ç»ò³]­p¡AÁÂÁ¡C

TOP

§âRange("A1:A3")  ´«¦¨ Selection §Y¥i
À´±oµo°Ý,µª®×´N·|¦b¨ä¤¤

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

TOP

¦^´_ 4# kimbal


    ¬Q¤Ñ§Ë¶W¯Å¤[¡A¨Ã¥B¥Î¤F¥t¥~¤@­Ó¤èªk¨Ó¸Ñ¨M
    ¨S·Q¨ì´N¤@­ÓSelection´N¸Ñ¨MÅo!!!:'(
    ·PÁÂ

TOP

        ÀR«ä¦Û¦b : ¤£­n¤p¬Ý¦Û¤v¡A¦]¬°¤H¦³µL­­ªº¥i¯à¡C
ªð¦^¦Cªí ¤W¤@¥DÃD