Ada pertanyaan? Masuk ke Forum atau klik di sini..!

requestHalo, Pembaca Klinik Excel.. Bantu kami tetap online yuk..

Jika artikel-artikel kami dirasa memberikan manfaat, mohon bantu kami agar website ini tetap online ya.. Caranya gampang, cukup klik iklan yang tampil aja kok.. Terima kasih sebelumnya dan do'a kan agar kami dapat terus menulis artikel yang bermanfaat..

https://youtu.be/tuJrHwNYkc4

 

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