¥»©«³Ì«á¥Ñ 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¤è¦¡,ÁÙ¬On¤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¥Í¤Wzªº±¡ª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)- Sub EX2() 'Yahoo mail µn¤Jªºµ{¦¡½X
- A = Sheet1.Range("A1") 'ºô§}
- With CreateObject("InternetExplorer.Application")
- .Navigate A
- Do While .Busy Or .ReadyState <> 4
- DoEvents
- Loop
- .Visible = True
- .Document.all("username").innerText = Sheet1.Range("A2") '±b¸¹
- .Document.all("passwd").innerText = Sheet1.Range("A3") '±K½X
- .Document.all("persistent").Value = Y '«O«ùµn¤J
- MsgBox "¸ê®Æ¤w¸g¶ñ¼g§¹¦¨¡A¶i¦æµn¤J"
- .Document.all(".save").Click 'µn¤J«ö¶s
- End With
- End Sub
½Æ»s¥N½X |