Option Explicit
Sub import()
Dim bukafile As Variant
bukafile = Application.GetOpenFilename(FileFilter:="Excel Workbooks,*.xl*", _
Title:="Pilih file yang akan diimport", _
MultiSelect:=False)
If bukafile <> False Then
Workbooks.Open Filename:=bukafile
End If
End Sub
Tidak ada komentar:
Posting Komentar