Re: ]] XL-mania [[ Open file (all in folder) pakai macro

 

Dear Mas Yasir,

 

Coba check file yg saya lampirkan mas.

Mudah mudahan membantu.

 

Sub ShowFiles()       
MsgBox ("Browse Foldernyah")       
Dim FileName        As String       
           
        Path = BrowseFolder       
        FileName = Dir(Path & "\*.xls", vbNormal)       
        Do Until FileName = ""       
            Workbooks.Open Path & "\" & FileName       
            FileName = Dir()       
        Loop       
End Sub       

Liat juga Fungsi BrowseFolder

 

Best regards

Riky

----- Original Message -----

From: Yasir Arafat

To: XL-mania@yahoogroups.com

Sent: Friday, February 26, 2010 10:31 AM

Subject: ]] XL-mania [[ Open file (all in folder) pakai macro

 

Dear Pakar XL Bagaimana code di macro sehingga macro dapat membaca jumlah file yang ada di folder, kemudian membuka file tersebut satu persatu. Selama ini saya selalu menggunakan code:     Dim FileData As String     FileData = Application.GetOpenFilename("Excel File,*.xls")     Workbooks.Open FileName:=FileData Namun dengan perintah itu saya harus mengklik file yang saya inginkan (dalam folder yang sama) dan mengulang kembali perintah tersebut untuk file yang kedua dan seterusnya.  Memang jika file dalam folder tersebut sedikit, tidak terlalu merepotkan, tapi apabila sudah mulai bertambah, akan merepotkan dan sangat memungkinkan membuka file yang sudah dibuka sebelumnya, sehingga data yang diproses menjadi berganda. Terima kasih atas sharing ilmunya Best Regard Yasir

__._,_.___

Reply to sender | Reply to group

Messages in this topic (2)

Recent Activity:

• New Members 105

Visit Your Group Start a New Topic

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| huaaaa... momods sakit... *sob*                                   | 
| http://www.facebook.com/group.php?gid=37671048001&ref=mf          |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message,  melecehkan,  tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan  winzip  jika  perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke  |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/           |
+-------------------------------------------------------------------+
| Berikan testimoni di : http://www.friendster.com/xlmania atau...  |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html           |
+-------------------------------------------------------------------+
| Message lama ada di :                                             |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id]  |
| http://www.mail-archive.com/xl-mania@yahoogroups.com              |
+-------------------------------------------------------------------+

Switch to: Text-Only, Daily Digest • Unsubscribe • Terms of Use

.

__,_._,___