√ Macro Excel - Script Vba Untuk Menciptakan Folder Baru

Bagaimana cara menciptakan folder gres memakai macro atau script VBA? Untuk menciptakan folder gres memakai cara biasa memang sering kita lakukan dan sudah tidak abnormal lagi. Pada kesempatan kali ini saya akan menjelaskan bagaimana cara menciptakan tombol perintah untuk menciptakan folder baru
Ok, eksklusif saja silakan buat sebuah workbook gres dan klik sajian Developer kemudian klik Insert

Silakan lihat juga Script VBA Macro Excel untuk menentukan Cell/Range

Jika sudah akibat drag di lembar kerja sehingga akan terbentuk sebuah tombol dan ganti goresan pena CommandButton1 menjadi "Buat Folder" lalu klik kanan dan pilih Assign Macro

Atau dapat juga Anda gunakan Klik kanan View Code

Jika sudah akibat silakan silakan taruh script berikut ini pada module 1

'Membuat Folder Baru
Sub CreateFolder()
Dim fso
Dim strFol As String
strFol = "c:\FolderBaru" ' Lokasi Pembuatan Folder baru
Set fso = CreateObject("Scripting.FileSystemObject")
If Not fso.FolderExists(strFol) Then
fso.CreateFolder (strFol)
Else
MsgBox strFol & " already exists!", vbExclamation, "Folder Exists"
End If
End Sub

Silakan di cek jikalau Anda klik tombol "Buat Tombol Baru" maka sebuah folder akan dibentuk di drive C
Sumber http://www.excel-id.com/