当前位置:   article > 正文

【EXCEL VBA】批量创建文件夹_vba批量创建文件夹

vba批量创建文件夹
  1. Sub 批量创建文件夹()
  2. Dim pth$
  3. With Application.FileDialog(msoFileDialogFolderPicker)
  4. .Title = "选择文件夹"
  5. If .Show Then
  6. pth = .SelectedItems(1)
  7. End If
  8. End With
  9. If IsEmpty(pth) Then Exit Sub '如果按取消键,退出
  10. Dim arr
  11. arr = Range("a1").CurrentRegion
  12. Dim i As Long
  13. For i = LBound(arr, 1) To UBound(arr, 1)
  14. MkDir pth & "\" & arr(i, 1)
  15. Next
  16. End Sub

声明:本文内容由网友自发贡献,转载请注明出处:【wpsshop】
推荐阅读
相关标签
  

闽ICP备14008679号