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

½Ð°Ýmkdirªº°ÝÃD

½Ð°Ýmkdirªº°ÝÃD

½Ð°Ý°õ¦æ

Sub MkDirs()
'³yªÑ²¼¥N¸¹ªº¥Ø¿ý


For i = 2 To 1409
MkDir ThisWorkbook.Path & "\" & " (" & ¤u§@ªí1.Range("A" & i).Value & ")" & ¤u§@ªí1.Range("B" & i).Value
Next

End Sub

³y¥Ø¿ý(1565)¨ìºëµØ¤U´N¨S¦³¤F

ÁÂÁÂ

u.rar (38.47 KB)

°õ¦æ¶¥¬q¿ù»~ 75
¸ô®|©ÎÀɮצs¨ú¿ù»~

ÁÂÁÂ

TOP

¬O¤£¬Ounicodeªº°ÝÃD¡A¦p¦ó§ï¡AÁÂÁÂ

TOP

ÁÂÁ kimbal¤j¤j GBKEE¤j¤j¡AªºÀ°¦£¡Aµ{¦¡¥i°õ¦æ¤F¡A
ÁÂÁÂ^0^

TOP

        ÀR«ä¦Û¦b : ¶¢¤HµL¼Ö½ì¡A¦£¤HµL¬O«D¡C
ªð¦^¦Cªí ¤W¤@¥DÃD