Home » VBA Excel » Membuat Folder Baru Melalui Excel Dengan Kode VBA

Membuat Folder Baru Melalui Excel Dengan Kode VBA

Kategori

Pada artikel kali ini Admin ingin berbagi trik dan tips mengenai tentang VBA Excel yaitu bagaimana cara membuat Folder Baru melalui Excel dengan bantuan kode VBA.

Artikel ini merupakan inspirasi dari program Visual Basic 6 yang di terapkan melalui Excel dengan kode VBA. Berikut dibawah ini adalah gambar hasil untuk membuat Folder Baru melalui Excel.

Output


Berikut adalah langkah-langkah cara membuat folder melalui Excel dengan kode VBA :

  1. Buka Excel Anda (disini saya menggunakan Excel 2016)
  2. Aktifkan Tab Developer
  3. Kemudian klik Tab Developer tersebut kemudian pilih Visual Basic
  4. Maka Jendela Visual Basic muncul dan  pilih Insert >> Use Form 
  5. Setelah itu buatlah Form seperti pada Gambar dibawah ini :
Desain Form

     6. Setelah form selesai dibuat ketiklah kode dibawah ini :


Private Sub CommandButton1_Click()

Dim BuatFolder, FolderAda

If TextBox1 = "" Then

  MsgBox ("Nama Folder belum diisi")

  TextBox1.SetFocus

Else


If Dir("D:/" & TextBox1 & "/", vbDirectory) = "" Then

   BuatFolder = MsgBox("Nama Folder belum ada,apakah Anda ingin membuatnya?", vbYesNo)

    If BuatFolder = vbYes Then

       MkDir "D:/" & TextBox1 & "/"

       MsgBox ("Folder berhasil dibuat")

    End If

    Else

       FolderAda = MsgBox("Nama Folder sudah ada", vbOKOnly)

    End If

End If

End Sub

Dan langkah terakhir jalankan program Anda dengan menekan tombol segitiga hijau atau F5 kemudian pada teks kosong isilah nama folder yang akan dibuat, jika sudah yakin klik Buat Folder.

Untuk melihat hasil folder yang dibuat tergantung dimana Anda menempatkan Drivenya,disini saya membuat folder baru di Drive D (Perhatikan pada kode yang berwarna merah)

Tips :
Anda bisa menampilkan form tersebut di Sheet Excel dengan menambahkan tombol perintah atau Button pada bagian Tab Depelover >> Insert  Control >> Button lalu tambahkan kode dibawah ini

Sub Button1_Click()

UserForm1.Show

End Sub

Dengan kode diatas sekarang Anda sudah bisa menampilkan Form buat folder melalui Sheet hanya dengan menekan tombol tersebut

Demikian tips dari saya tentang Membuat Folder Baru Melalui Excel Dengan Kode VBA.Semoga artikel ini bermanfaat buat kita semua.Amin.

Selamat mencoba semoga berhasil....

No comments:

Post a Comment