Video : Membuka File Menggunakan Dialog Box
Tutorial Level 6
Berikut adalah Kode Program-nya:
Sub Buka_File()
Dim JumlahFile As Integer, i As Integer
Dim FileTerpilih
Dim BarisTerakhir As Long, BarisTerakhir2 As Long
Dim WB1 As Workbook
Dim WB2 As Workbook
FileTerpilih = Application.GetOpenFilename("Excel File (*.xlsx),*.xlsx", Title:="Pilih file..", MultiSelect:=True)
If VarType(FileTerpilih) = vbBoolean Then
Exit Sub
End If
JumlahFile = UBound(FileTerpilih)
Application.DisplayAlerts = False
Application.ScreenUpdating = False
For i = 1 To JumlahFile
Workbooks.Open FileTerpilih(i)
Next i
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub