[belajar-excel] Digest Number 2676

Milis Belajar Microsoft Excel Group

1 New Message

Digest #2676

1a

Re: Perintah Move All File by jhony.excel

Message

1a

Re: Perintah Move All File

Tue Dec 3, 2013 12:42 am (PST) . Posted by:

jhony.excel

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 <miss.jan.raisin@gmail.com>
Sender: belajar-excel@yahoogroups.com
Date: Tue, 3 Dec 2013 15:05:17
To: <belajar-excel@yahoogroups.com>
Reply-To: belajar-excel@yahoogroups.com
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, <jhony.excel@yahoo.co.id> 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®
>
> ------------------------------------
>

Reply to sender . Reply to group . Reply via Web Post . All Messages (3) . Top ^

Visit Your Group

>

View All Topics

>

Create New Topic

>

14 New Members

>

We are making changes based on your feedback, Thank you !

Submit Feedback

>

The Yahoo! Groups Product Blog

Check it out!

>

GROUP FOOTER MESSAGE

=====================================================================
Untuk memudahkan tim penyusun materi Belajar Excel yang lebih sesuai kebutuhan member, silakan ungkapkan permasalahan yang kerap ditemui dalam menggunakan Excel sehari-hari atau hal-hal yang ingin dipelajari dalam jangka dekat ini. Mohon diprioritaskan dari yang sering ditemui sampai yang ingin dipelajari.
Isi sesuai kelompoknya (fitur-fitur, formula-formula tertentu yang masih membingungkan, otomasi atau pemrograman dalam Excel [Macro - VBA], hal lainnya yang membuat Anda kesulitan dalam mempelajari Excel).
Boleh mengisi berulang kali untuk menambah uneg-uneg yang ingin diungkapkan.
Link untuk menuangkan seluruh uneg-uneg tersebut ada di :
http://tech.groups.yahoo.com/group/belajar-excel/database?method=addRecord&tbl=3
=====================================================================
Langkah kecil Anda dalam mengisi database bisa menjadi langkah pertama yang bermanfaat besar untuk kita semua.
=====================================================================

---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscribe@yahoogroups.com

posting ke milis, kirimkan ke:
belajar-excel@yahoogroups.com

berkunjung ke web milis
http://tech.groups.yahoo.com/group/belajar-excel/messages

melihat file archive / mendownload lampiran
http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-belajar-excel.1048464.n5.nabble.com/

menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com

keluar dari membership milis (UnSubscribe):
kirim mail kosong ke  belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------

CHANGE SETTINGS

>

TERMS OF USE

>

UNSUBSCRIBE

>