新建文件夹的问题

weide_yang · 发表于 2024-4-21 16:41

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

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

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

恳请老师赐教，谢谢！

ykcbf1100 · 发表于 2024-4-21 17:01

附件供参考。。。

ykcbf1100 · 发表于 2024-4-21 17:02

参与一下。。。

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

复制代码

weide_yang · 发表于 2024-4-21 17:12

感谢老师帮助！谢谢！

gwjkkkkk · 发表于 2024-4-21 20:43

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 · 发表于 2024-4-21 20:43

请参考附件。。。

朝露孤烟 · 发表于 2024-4-22 13:09

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

		自动登录	找回密码
密码			免费注册

[求助] 新建文件夹的问题

评分

评分

评分