赞
踩
- Sub 批量创建文件夹()
- Dim pth$
- With Application.FileDialog(msoFileDialogFolderPicker)
- .Title = "选择文件夹"
- If .Show Then
- pth = .SelectedItems(1)
- End If
- End With
- If IsEmpty(pth) Then Exit Sub '如果按取消键,退出
- Dim arr
-
- arr = Range("a1").CurrentRegion
- Dim i As Long
- For i = LBound(arr, 1) To UBound(arr, 1)
- MkDir pth & "\" & arr(i, 1)
- Next
- End Sub
Copyright © 2003-2013 www.wpsshop.cn 版权所有,并保留所有权利。