Diskusi tentang Excel

Macro Excel | Cara Membuat Tombol Open File Excel dengan Script VBA

Membuka sebuah file pada Ms. Excel ternyata bisa menggunakan VBA dan kali ini saya akan berbagai script VBA tersebut.

Langsung saja ini dia script VBA nya silakan tulis pada sebuah Module

'Script VBA buka file
Sub BukaFileExcel()

Dim FSO
Dim sFolder As String
sFolder = "D:" 'Silakan ganti drive penyimpanan file anda

Set FSO = CreateObject("Scripting.FileSystemObject")

If Not FSO.FolderExists(sFolder) Then
MsgBox "Drive dan Folder tidak ditemukan", vbInformation, "Informasi!"
ElseIf FSO.FolderExists(sFolder) Then
Call Shell("explorer.exe " & sFolder, vbNormalFocus)
End If

End Sub
Dari script diatas merupakan prosedur untuk membuka file excel di drive D dan apabila drive D pada komputer Anda tidak ditemukan maka akan muncul pesan "drive dan folder tidak ditemukan" Apabila drive D ada di komputer Anda maka secara otomatis akan menampilkan seluruh file yang ada di Drive D seperti explore.

Jika Anda telah menuliskan script VBA diatas langkah berikutnya Anda harus membuat sebuah CommandButton pada Worksheet kemudian masukan Asign Macro nya pada Sub Module tersebut. lebih jelasnya silakan lihat gambar dibawah ini


Untuk menguji apakah script VBA diatas benar, silakan klik tombol CommandButton diatas dan lihat hasilnya apabila muncul pesan "Drive dan Folder tidak ditemukan" berarti drive D di komputer Anda tidak ada tetapi apabila ketika Anda tekan CommandButton tersebut langsung menuju drive D: maka drive D di komputer Anda ada.

Anda  bisa mengganti tulisan Button1 menjadi "Buka File" dengan cara klik kanan kemudian pilih Edit Text



Catatan :
Munculnya pesan diatas bukan berarti VBA yang diketikkan salah

Demikian tulisan singkat bagaimana cara membuat tombol Open File dengan menggunakan script VBA semoga bermanfaat dan selamat mencoba.

Related

Macro Excel VBA 2328556274753453839

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