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

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

¦^´_ 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

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

TOP

        ÀR«ä¦Û¦b : ÀR§¤±`®¦¤v¹L¡B¶¢½Í²ö½×¤H«D¡C
ªð¦^¦Cªí ¤W¤@¥DÃD