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

[µo°Ý] ¦p¦ó§PÂ_°Ï°ìºô¸ô¤º¦@¥ÎºÏºÐ¤WªºÀɮפw¸g³Q¨ä¥L¹q¸£¶}±Ò

[µo°Ý] ¦p¦ó§PÂ_°Ï°ìºô¸ô¤º¦@¥ÎºÏºÐ¤WªºÀɮפw¸g³Q¨ä¥L¹q¸£¶}±Ò

½Ð±Ð¥ý¶i
        ¦pªG§Úªºµ{¦¡»Ý­n§ó·s°Ï°ìºô¸ô¤º¦@¥ÎºÏºÐ¤WªºÀɮסA
        ¦ý¬O¸ÓÀÉ®×¥i¯à·|¦³¨ä¥L¤H·|¶}±Ò¨Ï¥Î¡A
        ¦³¨S¦³¿ìªk¦b¶}±ÒÀɮפ§«e¡A¥ý§PÂ_¸ÓÀɮ׬O§_¤w¸g¶}±Ò¡H
        ¤£ª¾¹D³o¼ËªºVBAµ{¦¡½X¸Ó¦p¦ó¼g¡A
       §Æ±æ¦³¥ý¶i¥i¥H«üÂI¤@¤U¡AÁÂÁÂ
JS

½Ð°Ý¦U¦ì¥ý¶i
    ¤£ª¾¹D³o¼Ëªº°ÝÃD¬O§_µL¸Ñ¡H
    ÁÙ¬O§Ú´y­z¤£°÷²M·¡¡H¡H¡H

JS

TOP

³£¨S¦³¤j¤j¦^À³¡A¬O¦]¬°³o­Ó°ÝÃD¥»¨­´NµL¸Ñ¶Ü¡H
ÁÙ¬O¦]¬°°ÝÃD»¡©ú¤£°÷²M·¡¡H¡H¡H
¯à§_¦³¤H¦^À³´£¨Ñ¤è¦V¡A·P¿E¤£ºÉ....

JS

TOP

¦]¬°³£¨S¦³¤H¦³¥ô¦ó¦^À³¡A¥i¯à¬O§Úªí¹F±o¤£¤Ó²M·¡¡A©Ò¥H§Ú¦A»¡©ú°ÝÃD¤@¦¸
½Ð±Ð¥ý¶i
         ¦pªG§Úªºµ{¦¡»Ý­n ¥h§ó·s¤½¥q¤º°Ï°ìºô¸ô¤º¦@¥ÎºÏºÐ¤WªºExcelÀɮסA
         ¦ý¬O¸ÓÀÉ®×¥­®É¥i¯à·|¦³¨ä¥L¤H·|¶}±Ò½s¿è¨Ï¥Î¡A
         ¦³¨S¦³¿ìªk¦bµ{¦¡¶}±Ò¸Ó Excel Àɮפ§«e¡A¥ý§PÂ_¸ÓÀɮ׬O§_¤w¸g³Q¨ä¥Lªº¹q¸£©Ò¶}±Ò¡H
         ¤£ª¾¹D³o¼ËªºVBAµ{¦¡½X¸Ó¦p¦ó¼g¡A
        §Æ±æ¦³¥ý¶i¥i¥H«üÂI¤@¤U¡AÁÂÁÂ
JS

TOP

¥»©«³Ì«á¥Ñ luhpro ©ó 2012-9-16 19:46 ½s¿è
¦]¬°³£¨S¦³¤H¦³¥ô¦ó¦^À³¡A¥i¯à¬O§Úªí¹F±o¤£¤Ó²M·¡¡A©Ò¥H§Ú¦A»¡©ú°ÝÃD¤@¦¸
½Ð±Ð¥ý¶i
         ¦pªG§Úªºµ{¦¡ ...
jsleee µoªí©ó 2012-9-15 08:50

³o©Î³\¥i¥H§Q¥Î¿ù»~³B²zµ{¦¡ªº¤è¦¡¨Ó³B²z,
¤£¹L§Ú¤£·|.

§Ú¥t¥~·Q¨ì¤@­Ó¤ñ¸û²³æªº¿ìªk:
¥u­n¦b¶}±Ò¸ÓÀÉ®×®É, (­n©ñ¦b»P¸Ó Excel ÀɮצP¤@¥Ø¿ý¤W¥H«K©Ò¦³¤H¦s¨ú)
¹ï¤@­Ó©T©wªº¤å¦rÀÉ®×¼g¤J¨Ï¥ÎªÌ¦WºÙ,(©Î¨ä¥L¥i¿ëÃѸÓÀɮפw³Q¶}±Òªº¤å¦r±Ô­z©Î²Å¸¹)
¦A©óÃö³¬ExcelÀÉ®×®É,
¹ï¸ÓÀÉ®×¼g¤J None ¤§Ãþªº¤å¦r.

¦Ó­Y¬O¥t¤@¤HÀ|¸Õ­n¶}±Ò¸ÓÀÉ®×,
«h¦]Àˬd¨ì¤å¦rÀɤº®e±oª¾¤w³Q¶}±Ò,
´N¥i¤£±µ¨ü¨ä¶}±Òªº­n¨D.
(·íµM VBA ©Ò¦bÀɮפ£¯à»P±ý¶}±ÒÀɮ׬ۦP)

³o¼ËÀ³¸Ó´N¥i¥H¹F¨ì§A·Q­nªº®ÄªG¤F.
(­Y¹J¨ì·í¾÷©Î¬O VBA µ{¦¡¦³¿ù»~¦Ó¸õ¥X, ¨º´N¬O¥t¥~ªº³B²z¤è¦¡¤F)

TOP

¦^´_ 5# luhpro

ÁÂÁ luhpro «e½ú«üÂI...
§Ú¤j·§¦³¤@­Ó¤è¦V¤F¡A§Ú¦A¹Á¸Õ¬Ý¬Ý
ÁÂÁÂ

JS

TOP

¦^´_ 5# luhpro


    ÁÂÁ luhpro ¥ý¶iªº«üÂI¡AÁöµM§Ú¨Ã«D§¹¥þ¨Ï¥Î±z©Ò«üÂIªº¤èªk¡A¤£¹LÃþ¦üªº·N«ä...
    ¦]¬°¥Ø«e¨Ï¥Î Office 2010ªºª©¥»¡A¥u­nÀɮ׳Q¶}±Ò½s¿è¤¤¡A«h¦P¤@­Ó¥Ø¿ý¤¤ ´N·|¥X²{ ~$ÀɦW ªº¼È¦sÀÉ
    ©Ò¥H §Ú´N¥Î ¸Ó¼È¦sÀɮצs¦b»P§_ §@¬°§PÂ_¡A¤@¼Ë¥i¥H¹F¨ì®ÄªG¡A¥Ø«e°ÝÃD¤w¸g¸Ñ¨M¤F
    ¦A¦¸ÁÂÁ±z.....
JS

TOP

TRY ¬Ý¬Ý

SUB 1()
If Dir("E:\abc\aa\") = Empty Then   -->  
     
     Else
      MsgBox "µ{¦¡¹BÂत,¤£¯à§ó·s"
      Exit Sub
   End If

END SUB

TOP

¦^´_ 8# tomking


    ÁÙ¨S´ú¸Õ¡A¤£¹LÁÙ¬O·PÁ tomking ¥ý¶iªº«ü¾É...
    ÁÂÁÂ

JS

TOP

§Ú¤£·|¼gvba¡A¥H¤U¤è¦¡¬O§Ú¥Îªº¡A¨Ñ±z°Ñ¦Ò¡G
1¡B±NÀɮ׳]¬°¦@¥Î¬¡­¶Ã¯¡AÅý¦U°Ï¦Û¦æ½s¿èÄÝ©ó¥L­Ìªº¤u§@ªí¡C
2¡B©Î¬OÅý»Ý¦Ü¸ÓÀÉ®×½s¿èªº¤H­û¡A½Ð¥L­Ì¦b¦Û¦æªºexcel  / ¤u¨ã / ¿ï¶µ / ¤@¯ë / ¨Ï¥ÎªÌ¦WºÙ ¤º¡A¿é¤J¦Û¤vªº¥N¸¹©Î¦W¦r¡C
­Ya¦b¿W¦û¼Ò¦¡¤U¤w¦b½s¿è¸ÓÀɮסAb ¦A¥h¶}±Ò¸ÓÀɮ׮ɡA·|¥X²{¸ÓÀɮפw¥Ña½s¿è¤¤¡C
Joy

TOP

        ÀR«ä¦Û¦b : ¦³´¼¼z¤~¯à¤À¿ëµ½´c¨¸¥¿¡F¦³Á¾µê¤~¯à«Ø¥ß¬üº¡¤H¥Í¡C
ªð¦^¦Cªí ¤W¤@¥DÃD