Kode Do While dan Loop dapat digunakan contoh sederhananya yaitu untuk memberikan perintah kepada Excel membuka semua file yang berekstensikan 'xls' di dalam suatu folder/direktori komputer secara bersamaan. Seperti yang ditunjukkan pada susunan kode di bawah ini:
Sub BukaSemuaData()Fungsi Dir akan memerintahkan Excel untuk mencocokkan nama-nama dan jenis-jenis file sesuai dengan ekstensi 'xls' hingga Excel tidak menemukan lagi kombinasi yang sesuai.
Dim jenis As String, direktori As String
direktori = "C:\Ganti sesuai alamat direktori anda\"
jenis = Dir(direktori & "*.xls*")
Do While jenis <> ""
Workbooks.Open direktori & jenis
jenis = Dir()
Loop
End Sub
0 Comments