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

[µo°Ý] ±qExcel±N¸ê®Æ¤W¶Ç¨ìºô­¶~

[µo°Ý] ±qExcel±N¸ê®Æ¤W¶Ç¨ìºô­¶~

¥»©«³Ì«á¥Ñ hugh0620 ©ó 2012-3-29 14:45 ½s¿è

Dear ¤j¤j­Ì

        ¦]¬°,²{¦b«Ü¦h¤u§@¬O»Ý­n±N¸ê®Æ¿é¤J¦bºô­¶¤W,±N¸ê®Æ¤W¶Ç¤W¥h,
        ¤]¥Ñ©óºô­¶ªº³]­p´N¹³¬OERP©Î¤@¯ëµ{¦¡³]­p¤@¼Ë,
        ¤@­ÓÅÚ½³¤@­Ó§|,¦]¦¹,¬°Åý¨ä¥L³¡ªù¦P¨Æ¤u§@¤è«K,
        ³]­p¤@­ÓEXCEL»Pºô­¶Äæ¦ì¬Û¹ïÀ³ªº¤u¨ã,
        ·í¦bEXCEL¥ý±N¸ê®Æ«Ø»ô«á,¦A³z¹LVBAªº¤è¦¡,±N¸ê®Æ³vµ§ªº¤W¸ü¤W¥h,
        (¦bEXCEL¿é¤J¸ê®Æ¤ñ¸û§Ö,«Ø¥ß§¹«á,¥i¦AÀˬd¸ê®Æªº¥¿½T,¦A±N¸ê®Æ¤W¶Ç
          ¦³­«ÂЪº¦a¤è,¥i¥H¥ÎCOPYªº¤è¦¡,¨Ó«ØÀÉ,¦p¦bºô­¶¤W,¤ñ¸û¤£¦n³B²z)
      
        ¤p§Ì¤]ªá¤F¨Ç®É¶¡ªì¨Bªº«Øºc¤@­Ó²³æªº¤u¨ã
        ¨ÌYahooºô§}¶i¦æ¸ê®Æ¬d¸ß ¦pªþÀÉ
         ºô­¶¸ê®Æ±a¤JªºDEMO.rar (10.78 KB)
        ³o¬O¤p§Ì²Ä¤@¦¸¹Á¸Õ±N¸ê®Æ¤W¶Ç¨ìºô­¶¤W,¦]¬°³o­Ó¸òºô­¶ªºµ{¦¡½X¦³Ãö
        »Ý­n¥h¬Ýºô­¶ªºµ{¦¡½X,¤F¸Ñ¤°»ò¬Oinputªºid,«ö¶sªºid,¤~±N¨ä§¹¦¨
        ¥Ñ©ó¨S¦³asp©Îhtmlªº°ò¦,¥u¦³°Ñ·Ó¥¦¤HÃþ¦üªºex¨Ó®M¥Î,¦ý¯uªº¤£¬Æ¤F¸Ñ¨ä»yªk
        ¥ç§Æ±æ¯à³z¹L³o­Óµo°Ý,¹ï¦³»Ý­n¦bºô­¶¤W­«ÂЩʤu§@ªº¤H,¦¬¶°¤Î´£¨Ñ¤@¨Ç¸ê°T¨ÓÀ³¥Î
      
       ¥H¤U¬O¤p§Ì¹ï¤@¯ë¸ê®Æ¦bºô­¶³B²z®É·|¦³ªº¨BÆJ ,­Y¦³¤£²Å¦X±¡ªp©Î¬Oº|±¼ªº,½Ð¤j¤j­Ì¦A«ü±Ð
       (¤U¦Cµ{¦¡½X,¶È¬OÁ|¨Ò»¡©ú,¨Ã«D¯u¹êªº¼¶¼g¤è¦¡,ÁÙ¬O­n¤j¤j­Ì¤À¨É,¯u¥¿¥h°õ¦æ®É,¸Ó¦p¦ó¨Ó¼¶¼g)
       1. ³sµ²ºô­¶
       2. ¿é¤J±b±K+½T©w  (³oÃä´N·|¦³¨â­Óinput +¤@­Ó«ö¶s)
              »Ý­n¥Îif¨Ó§PÂ_ ,·í«ö½T©w«á,ºô­¶¦^¶Çªº°T®§¬O¥¿½T©Î¿ù»~  (³o³¡¥÷¤p§ÌÁÙ¨S´ú¸Õ¹L,¥ç½Ð¤j¤j­Ì¯à¤À¨É)
              ¥i¥Îyahooµn¤Jmailªº±b±K¨Ó´ú¸Õ,¸Ó¦p¦ó¼¶¼g   (¥ç¥i¶i¦æ´ú¸Õ)            
               if   «ö¶s=ok then
                     msgbox  " ½T©w¶i¤J"  
               else
                      msgbox  " ¥¢±Ñ,±b±K¿ù»~"
                end if
       3.  ½T©wµn¤J«á,¶}©l³vµ§¸ê®Æªº¿é¤J, N­ÓINPUT
             ¦]¬°ºô­¶¦³«Ü¦hINPUTªº¦r,¦³¨S¦³¤j¤j¤ñ¸û¤F¸Ñºô­¶¦p¦ó§PÂ_INPUT¬O»Ý­n¶ñ¼gªº
             ¥i§_´£¨ÑÃþ¦ü³o¤è­±ªºª¾ÃÑ
       4.  ¿é¤J§¹¸ê®Æ«á,¥i¯à¬O
                        [¤U¤@¨B]©Î¬O
                        [½T©wSAVE]©Î¬O
                        [´«­¶] ©Î¬O
                       ..........
               ¦b³B²z¤W,¥i¯à·|µo¥Í¤W­zªº±¡ªp
        5.  ³Ì«á¦A¨Ó´N¬O´`Àô±NEXCELªº¸ê®Æ¤W¶Ç
        
        ¤p§Ì´N¥ý¦C¥X³o¨Ç°ÝÃD,½Ð¤j¤j­Ì¨Ó¤À¨É©Î±Ð¾É«á½ú
        ¤p§Ì¥ç·|¨C¨ì¤@­Ó¶i«×,±N¤@¨Ç½d¨Ò©ñ¤W¨Ó¤À¨É
'===== µn¤J±b±Kªº¼gªk,¥Hyahoo mail¬°¨Ò==========
(¶È¯à¦bµn¥Xªº±¡ªp¤U°õ¦æ¡A§Æ±æ¦³¤j¤j¯à´£¨Ñ¥ýµn¥X¡A¦Aµn¤Jªº¼gªk)
  1. Sub EX2()  'Yahoo mail µn¤Jªºµ{¦¡½X
  2. A = Sheet1.Range("A1")                                                     'ºô§}
  3.             With CreateObject("InternetExplorer.Application")
  4.                 .Navigate A
  5.                 Do While .Busy Or .ReadyState <> 4
  6.                     DoEvents
  7.                 Loop
  8.                 .Visible = True
  9.                 .Document.all("username").innerText = Sheet1.Range("A2")     '±b¸¹
  10.                 .Document.all("passwd").innerText = Sheet1.Range("A3")       '±K½X
  11.                 .Document.all("persistent").Value = Y                        '«O«ùµn¤J
  12.                  MsgBox "¸ê®Æ¤w¸g¶ñ¼g§¹¦¨¡A¶i¦æµn¤J"
  13.                 .Document.all(".save").Click                                 'µn¤J«ö¶s
  14.             End With
  15. End Sub
½Æ»s¥N½X
¾Ç²ß¤~¯à´£¤É¦Û¤v

        ÀR«ä¦Û¦b : ¡i»X½ªªº¦Û¥Ñ¡j¤H±`¦b¤°»ò³£¥i¥H¦Û¥Ñ¦Û¦bªº®É­Ô¡A«o³Q³oºØÀH¤ß©Ò±ýªº¦Û¥Ñ»X½ª¡AµêÂY®É¥ú¦Ó²@µLıª¾¡C
ªð¦^¦Cªí ¤W¤@¥DÃD