Membuat Folder Masal dari File Excell

Sub folderMassal()

Dim LokasiFolder As String

Dim NamaFolder As String

LokasiFolder = "C:\Users\Administrator\Nextcloud2\Kinerja Pegawai\"

For i = 1 To 100

    NamaFolder = Cells(2 + i, 2)

    MkDir LokasiFolder & NamaFolder

Next i

End Sub

Bagikan Artikel ini