Hot Fox: Re: ]] XL-mania [[ penggabungan data dari beberapa file xls

quarta-feira, 3 de fevereiro de 2010

Re: ]] XL-mania [[ penggabungan data dari beberapa file xls

barangkali yg dimaksud oleh penanya adalah: 'bgmana melakukannya dengan otomatis'.

karena cara yg tidak otomatis sudah jelas ada:

buka file, copy range, paste range ke sheet di book gabungan

ulangi perintah merah itu terhdap semua file "jurs*.xls" lainnya..

jika file yg akan diproses berada di satu folder, tentunya kerjaan lebih mudah..

Sub ctvMergeTabelBook()
'----------------------

' siti Vi / 3 feb 2010
'----------------------

   Dim FS As Object, FL As Object
   Dim fPath As String, txt As String
   fPath = ThisWorkbook.Path
   Set FS = CreateObject("Scripting.FileSystemObject")
   Set DesTabel = Sheets("ctvGab").Range("A1")
   NewRow = 1: nSht = 0
   ctvGab.Activate: ctvGab.Cells.Clear
   For Each FL In FS.GetFolder(fPath).Files
      If LCase(Right(FL.Name, 4)) = ".xls" Then
         If LCase(Left(FL.Name, 4)) = "jurs" Then
            nSht = nSht + 1
            txt = txt + CStr(nSht) + vbTab & FL.Name & vbTab & vbCrLf
            Call ctv_MergeTables(FL.Name)
         End If
      End If
   Next FL
   ThisWorkbook.Save
End Sub

mestinya ya ada lah.. prosedur lain bernama ctv_MergeTables,

ndak perlu di pajang di sini 'ntar bikin bosan para pemirsa..

soalnya 'gerak-gerik'nya sudah sangat sering dicontohkan di milis ini.

lampiran *.zi_ harap di rename dulue manjadi *.zip baru diexpand.

Jika ini dianggap cUcok, pakailah; jika tidak cUcok, hapuslah... (titik)

Milis (bagi sekelompok members tertentu) kan seperti atm box

kita masukkan kartu, keluar uang dan ambil (karena duit anda sendiri)

ngeloyor pergi, tidak perlu senyum dulu sama kotak atm-nya

tapi lebih baik diingat bahwa 'MEMBERs' milis adalah orang,

ada nyawanya... kacian deh loh...

siti

----- Original Message -----
From: ayunkgo@gmail.com
To: XL-mania@yahoogroups.com
Sent: Wednesday, February 03, 2010 6:20 AM
Subject: ]] XL-mania [[ penggabungan data dari beberapa file xls

Dear para Pakar Excell
Mau minta tulung donk
Bagaimana yah melakukan penggabungan data seperti file tertera di atas menjadi satu file
Contoh dari yg saya lampirkan, dari beberapa file jurs menjadi satu data file di gabungan .xls

Mohon bantuannya dengan sangat yah
Ayunk

__._,_.___

Reply to sender | Reply to group

Messages in this topic (3)

Recent Activity:

New Members 113

Visit Your Group Start a New Topic

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| Member ke 13,013 siapa ya? Sini mau dikirimin coklat :D           |
| Member ke 31,031 dapet iPod dehh.... :D :D :D                     |
| 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              |
+-------------------------------------------------------------------+

MARKETPLACE

Going Green: Your Yahoo! Groups resource for green living