Cách tạo thư mục tự động dựa vào list EXCEL có sẵn

Chia sẻ bởi:hands

★★★★★

‹ Giúp e hàm kí tự ngẫu nhiên... Lọc dữ liệu theo màu sắc ›

Quảng cáo

cảm ởn a/c

chào các anh chị

Hiện tại em đang cần làm một công việc , sẽ dựa vào list có sẵn trong excel để
tạo thư mục tự động

Như trong file đính kèm

Level 1: thư mục cấp 1
level 2: thư mục con, cấp 2

_ giả sử trong quá trình tạo, nếu thư mục nào có rồi, nó sẽ bỏ qua ( kể cả level 1 và level 2)

7342

Mỗi khi click nút lệnh excel sẽ tự đông tạo thư mục như list này vào ở đĩa D:Thumuc..

Em không biết post chỗ nào cho đúng nữa, mong mod thông cảm

cảm ởn a/c

Làm được tuốt nếu dùng Scripting.FileSystemObject

Sub CreateFolder(ByVal Data_Table As Range)
  Dim tmpArr, Arr()
  Dim lR As Long, lC As Long
  Dim tmp1 As String, tmp2 As String, sRoot As String
  On Error GoTo ExitSub
  sRoot = ThisWorkbook.Path
  tmpArr = Data_Table.Value
  ReDim Arr(1 To UBound(tmpArr, 1), 1 To UBound(tmpArr, 2))
  With CreateObject("Scripting.FileSystemObject")
    For lC = 1 To UBound(tmpArr, 2)
      For lR = 1 To UBound(tmpArr, 1)
        tmp1 = Trim(tmpArr(lR, lC))
        If Len(tmp1) Then
          If lC = 1 Then
            tmp2 = sRoot & "" & tmp1
          Else
            tmp2 = Arr(lR, lC - 1) & "" & tmp1
          End If
          Arr(lR, lC) = tmp2
          If Not .FolderExists(tmp2) Then .CreateFolder tmp2
        End If
      Next
    Next
  End With
ExitSub:
End Sub

Sub Main()
Dim SrcRng As Range
Set SrcRng = Sheet1.Range("A2:D100")
CreateFolder SrcRng
End Sub

Chạy Sub Main rồi kiểm tra kết quả nhé

www.giaiphapexcel.com/diendan/threads/c%C3%A1ch-t%E1%BA%A1o-th%C6%B0-m%E1%BB%A5c-t%E1%BB%B1-%C4%91%E1%BB%99ng-d%E1%BB%B1a-v%C3%A0o-list-excel-c%C3%B3-s%E1%BA%B5n.72916/