Trima kasih Miss Jan, VBA berjalan dengan sempurna, Btw ada pertanyaan tambahan Bagaimana cara menggabungkan beberapa file txt menjadi 1 file txt ? Kalau di dos ada perintah copy d:\cek\*.txt. d:\cek2\coba.txt
Terima kasih sebelumnya Wassalam Best Regards, Powered by Telkomsel BlackBerry® -----Original Message----- From: Jan Raisin <[email protected]> Sender: [email protected] Date: Tue, 3 Dec 2013 15:05:17 To: <[email protected]> Reply-To: [email protected] Subject: Re: [belajar-excel] Perintah Move All File coba script berikut ini: Dim d As String, ext As Variant, x As Variant Dim sAsal As String, sTuju As String, sFile As String sAsal = "D:\Cek\" sTuju = "D:\Cek2\" ext = Array("*.xlsx", "*.xlsm") For Each x In ext d = Dir(sAsal & x) Do While d <> "" sFile = sAsal & d FileCopy sFile, sTuju & d Kill sFile d = Dir Loop Next x Salam, -Miss Jan Raisin- Pada 3 Desember 2013 11.43, <[email protected]> menulis: > Salam Semua, > > Saya mau tanya bagaimana vba memindahkan semua file excel (xlsx, xlsm dll) > dari folder d:\cek ke folder d:\cek2 > > Terima kasih > Best Regards, > > Powered by Telkomsel BlackBerry® > > ------------------------------------ >
