新建文件夹的问题

weide_yang

根据d2起的单元格中的字符，用代码在当前路径中新建N个文件夹的问题

本例要求在当前簿所在路径中新建名叫张三，李四，王五的3个文件夹。

此只举例，实际是要求新建N个文件夹。

恳请老师赐教，谢谢！

ykcbf1100

附件供参考。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf() '//2024.4.21
   
2.     Set fso = CreateObject("Scripting.FileSystemObject")
   
3.     p = ThisWorkbook.Path & ""
   
4.     r = Cells(Rows.Count, 4).End(3).Row
   
5.     arr = [d1].Resize(r)
   
6.     For i = 2 To UBound(arr)
   
7.         p1 = p & arr(i, 1) & ""
   
8.         If Not fso.FolderExists(p1) Then fso.CreateFolder p1
   
9.     Next
   
10.     MsgBox "OK！"
    
11. End Sub
    

复制代码

weide_yang

感谢老师帮助！谢谢！

gwjkkkkk

Option Explicit
Sub TEST1()
    Dim ar, i&, strPath$, strFolder$
   
    strPath = ThisWorkbook.Path & "\"
    ar = Range("D1", Cells(Rows.Count, "D").End(xlUp)).Value
    For i = 2 To UBound(ar)
        strFolder = strPath & ar(i, 1)
        If Dir(strFolder, vbDirectory) = "" Then MkDir strFolder
    Next i

    Beep
End Sub

gwjkkkkk

请参考附件。。。

朝露孤烟

win10测试，p1 = p & "\" & arr(i,1) & ""

limonet

关键字：push-location

limonet

Sub limonet()
    CreateObject("wscript.shell").Run "powershell Push-Location " & ThisWorkbook.Path & " -PassThru |  md " _
    & Join(Application.Transpose(Range("D2:D" & Range("D" & Rows.Count).End(xlUp).Row)), ","), 0
End Sub

ykcbf1100

limonet 发表于 2024-5-21 11:08
Sub limonet()
    CreateObject("wscript.shell").Run "powershell Push-Location " & ThisWorkbook.Path ...

你现在可以和一句６行哥相媲美了，一句代码解决问题。