½Ð°Ýmkdirªº°ÝÃD

wufonna

½Ð°Ý°õ¦æ

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

ÁÂÁÂ

wufonna

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

ÁÂÁÂ

wufonna

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

kimbal

¦h¼Æ¬O¦]¬°­«ÂЫØ,¸Õ¸Õ³o¼Ë¥ýÀˬd«á«Ø.

1. Sub MkDirs()
   
2. '³yªÑ²¼¥N¸¹ªº¥Ø¿ý
   
3. Dim strPath As String
   
4. For i = 2 To 5
   
5.     strPath = ThisWorkbook.Path & "\" & " (" & ¤u§@ªí1.Range("A" & i).Value & ")" & ¤u§@ªí1.Range("B" & i).Value
   
6.     If Len(Dir(strPath, vbDirectory)) = 0 Then
   
7.         MkDir strPath
   
8.     End If
   
9. Next
   
10. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 1# wufonna
ChrW(160)¬O¤£¥i¨£¦r¤¸,³y¦¨¿ù»~ªº¥D­n­ì¦]

1. Option Explicit
   
2. Sub MkDirs()
   
3.     Dim i As Integer, N As String, strPath As String
   
4.     MsgBox ¤u§@ªí1.Range("B136")
   
5.     '?  ¬°ChrW(160)¬O¤£¥i¨£¦r¤¸,³y¦¨¿ù»~ªº¥D­n­ì¦]
   
6.     ¤u§@ªí1.Cells.Replace ChrW(160), "", xlPart  '²M°£¤u§@ªí¤¤ChrW(160)¤£¥i¨£¦r¤¸
   
7.     MsgBox ¤u§@ªí1.Range("B136")
   
8.     For i = 2 To 1409
   
9.         strPath = ThisWorkbook.Path & "\" & " (" & ¤u§@ªí1.Range("A" & i).Value & ")" & ¤u§@ªí1.Range("B" & i)
   
10.         'kimbal ª©¥D «Øij¬d¬ÝµL­«ÂЫإߥؿý
    
11.         If Len(Dir(strPath, vbDirectory)) = 0 Then MkDir strPath
    
12.     Next
    
13. End Sub

½Æ»s¥N½X

wufonna

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