ªð¦^¦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 ©ó 2012-9-10 13:58 ½s¿è

¦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
À´±oµo°Ý,µª®×´N·|¦b¨ä¤¤

¤µ¤éの¤@¬íは  ©ú¤éにない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

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

TOP

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

TOP

        ÀR«ä¦Û¦b : ¤H¥Í¨S¦³©Ò¦³Åv¡A¥u¦³¥Í©Rªº¨Ï¥ÎÅv¡C
ªð¦^¦Cªí ¤W¤@¥DÃD