Hai Jhony, Coba manfaatkan fungsi Shell untuk menjalankan cmd, sehingga bisa memanfaatkan fungsi-fungsi MS DOS dengannya. Contoh untuk merge file dengan copy milik MS DOS : Shell "cmd.exe /C copy d:\cek\*.txt d:\cek2\coba.txt"
untuk append data ke file lain bisa dengan type. Misal file d:\cek2\coba.txt sudah ada dan isi dari file d:\cek\x.txt akan di-append ke d:\cek2\coba.txt dengan : Shell "cmd.exe /C type d:\cek\x.txt >> d:\cek2\coba.txt" Wassalam, Kid. On Tue, Dec 3, 2013 at 3:23 PM, <[email protected]> wrote: > > > 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® > ------------------------------ > *From: * Jan Raisin <[email protected]> > *Sender: * [email protected] > *Date: *Tue, 3 Dec 2013 15:05:17 +0700 > *To: *<[email protected]> > *ReplyTo: * [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® >> >> ------------------------------------ >> > >
