Diskusi tentang Excel

Macro Excel - Script VBA untuk Membuat Folder Baru

Bagaimana cara membuat folder baru menggunakan macro atau script VBA? Untuk membuat folder baru menggunakan cara biasa memang sering kita lakukan dan sudah tidak asing lagi. Pada kesempatan kali ini saya akan menjelaskan bagaimana cara membuat tombol perintah untuk membuat folder baru
Ok, langsung saja silakan buat sebuah workbook baru dan klik menu Developer kemudian klik Insert


Silakan lihat juga Script VBA Macro Excel untuk memilih Cell/Range
Jika sudah selesai drag di lembar kerja sehingga akan terbentuk sebuah tombol dan ganti tulisan CommandButton1 menjadi "Buat Folder" kemudian klik kanan dan pilih Assign Macro


Atau bisa juga Anda gunakan Klik kanan View Code



Jika sudah selesai 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 jika Anda klik tombol "Buat Tombol Baru" maka sebuah folder akan dibuat di drive C

Related

Macro Excel VBA 3797284574630821358

Post a Comment

Tulisan ini Bermanfaat..? Silakan berkomentar sesuai topik artikelnya, tidak dianjurkan menggunakan kata-kata yang dapat menimbulkan hal negatif. Mohon maaf apabila tidak memiliki etika akan Admin HAPUS tanpa pemberitahuan kembali. Terimakasih... salam Exceler

emo-but-icon

item