Cara Membuka File Excel menggunakan VBA GetOpenFileName

Aplikasi Ms.Excel adalah aplikasi pengolahan data yang paling disenangi dan digemari oleh pekerja kantoran termasuk saya sendiri :D.

Aplikasi Ms.Excel dilengkapi dengan formula dan fitur-fitur yang dapat membantu pekerjaan kantoran, bahkan aplikasi Ms. Excel dilengkapi dengan VBA (Visual Basic For Application) yang dapat membuat printah-perintah tertentu dalam bahasa pemerograman sederhana untuk mempermudah suatu pekerjannya tertentu.

Kali ini web Matematika Akuntansi akan berbagi ilmu tentang Cara membuka file Ms. Excel dengan menggunakan VBA.

Membuka file Excel menggunakan VBA ini bisa dilakukan dengan script Method VBA Appliacation.GetOpenFileName.

Pengertian Application.GetOpenFileName Method VBA Excel

Application.GetOpenFileName adalah method yang menampilkan kotak dialog buka file standar dan mendapatkan data tanpa benar-benar membuka file.

Fungsi dari method ini sebenernya hampir sama dengan fitur open file. Namun, kelebihan dari methode ini adalah bisa membuka file dengan langsung menempatkan data pada cell yang diinginkan.

Syntak Application.GetOpenFileName VBA Ms.Excel

expression.GetOpenFilename (FileFilter, FilterIndex, Title, ButtonText, MultiSelect)

Keterangan :

expression adalah ekspresi sebuah variabel yang mewakili objek Aplikasi;
FileFilter adalah sebuah string yang menentukan kriteria pemfilteran file;
FilterIndex berfungsi untuk menentukan nomor indeks kriteria pemfilteran file default, dari 1 hingga jumlah filter yang ditentukan di FileFilter;
Title berfungsi untuk Menentukan judul kotak dialog;
ButtonText hanya Macintosh saja
MultiSelect adalah pernyataan yang bernilai True untuk memungkinkan beberapa nama file dipilih dan False untuk mengizinkan hanya satu nama file yang akan dipilih. Nilai defaultnya adalah False.

Contoh Script Application.GetOpenFileName VBA Excel

Untuk contoh script di bawah ini akan kita langsung praktikan ke cara membukan file Excel menggunakan VBA Excel.

Sub BukaFile()

Dim FileToOpen As Variant

Dim OpenBook As Workbook

Application.ScreenUpdating = False

FileToOpen = Application.GetOpenFilename(Title:="Cari file yang diinginkan", FileFilter:="Excel Files(*.xls*),*xls*")

If FileToOpen <> False Then

Set OpenBook = Application.Workbooks.Open(FileToOpen)

OpenBook.Sheets("Sheet1").Range("A2").CurrentRegion.Copy

ThisWorkbook.Worksheets("Sheet1").Range("A1").PasteSpecial xlPasteValues

OpenBook.Close False

End If

Application.ScreenUpdating = True

End Sub

Penjelasan:

Scrip vba di atas adalah berisi perintah untuk membuka data yang berada pada sheet1 suatu file yang kemudian diletakan di sheet1 file yang diinginkan.