Membuka sebuah file pada Ms. Excel ternyata dapat memakai VBA dan kali ini aku akan banyak sekali script VBA tersebut.
Langsung saja ini beliau script VBA nya silakan tulis pada sebuah Module
'Script VBA buka fileDari script diatas merupakan mekanisme 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 menyerupai explore.
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
Jika Anda telah menuliskan script VBA diatas langkah berikutnya Anda harus menciptakan sebuah CommandButton pada Worksheet lalu 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 risikonya apabila muncul pesan "Drive dan Folder tidak ditemukan" berarti drive D di komputer Anda tidak ada tetapi apabila dikala Anda tekan CommandButton tersebut pribadi menuju drive D: maka drive D di komputer Anda ada.
Anda dapat mengganti goresan pena Button1 menjadi "Buka File" dengan cara klik kanan lalu pilih Edit Text
Catatan :
Munculnya pesan diatas bukan berarti VBA yang diketikkan salah
Demikian goresan pena singkat bagaimana cara menciptakan tombol Open File dengan memakai script VBA biar bermanfaat dan selamat mencoba.
Sumber http://www.excel-id.com/