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

¦p¦óÀˬd«ü©w¸ê®Æ§¨¬O§_¦s¦b

¦p¦óÀˬd«ü©w¸ê®Æ§¨¬O§_¦s¦b

½Ð°Ý¦p¦óÀˬd«ü©w¸ê®Æ§¨¬O§_¦s¦b, ­YªG¤£¦s¦b®É, «h·s¼W¸Ó¸ê®Æ§¨
½Ð«ü±Ð

¦^´_ 1# enoch
  1. Option Explicit
  2. Sub Ex()
  3.     Dim xlFolder As String
  4.     xlFolder = "D:\MyTest"       '«ü©w¸ê®Æ§¨
  5.     If Dir(xlFolder, vbDirectory) = "" Then MkDir xlFolder
  6. End Sub
½Æ»s¥N½X

TOP

¦^´_  enoch
GBKEE µoªí©ó 2012-3-22 15:22


½Ð°Ý¤@¤U
¦pªG§Úµ¹­û¤u¤@­ÓÀÉ,
ÀɦW¬O¥Lªº¨­¥÷ÃÒ¦r¸¹.id (¤ñ¤è M123456789.id)
³o­ÓÀÉ­û¤u¥i¥H¦b¦Û¤vªº¹q¸£¤¤¥ô·N²¾°Ê
¦pªG§Ú­n±±¨î¹q¸£¤¤¦³³o­ÓÀɤ~¥i¥H¶}±ÒÀɮק_«h´NÃö³¬Àɮתº¸Ü
¸Ó«ç»ò¼gµ{¦¡
ÁÂÁ«ü¥¿
jeason

TOP

ÁÂÁÂ GBKEE
§A¤w¸Ñµª¤F§Ú¹L¥h«Ü¦h°ÝÃD
THANK YOU

TOP

¦^´_ 3# brabus
§Aªº°ÝÃD¥Î vba ¦³ÂIÃø«×,·í·j´M¨ì¨t²Î¸ê®Æ§¨·|¥X¿ù,§Ú¯à¤O¦³­­,©|¶·°ª¤â¬Û§U

TOP

¦^´_ 5# GBKEE


    ¦pªG¤£¥Î·j´Mªº¤è¦¡
¦Ó¬O¥Ñ¨Ï¥ÎªÌ§iª¾¸ô®|¦b¨ºªº¸Ü©O
·|¤£·|®e©ö¸Ñ¨M
µ¥©ó½Ð¨Ï¥ÎªÌ§iª¾idÀɦb¨º
¦pªG¦³
´N¥i¥H¨Ï¥Î
¦pªG¨S¦³´N¦b30¬í«áÃö³¬ÀÉÔò
jeason

TOP

        ÀR«ä¦Û¦b : ­n§åµû§O¤H®É¡A¥ý·Q·Q¦Û¤v¬O§_§¹¬üµL¯Ê¡C
ªð¦^¦Cªí ¤W¤@¥DÃD