Coba manfaatkan fungsi Dir milik VB
dim sFile as string
dim wbkFile as workbook, wbkUnion as workbook
application.displayalerts=false
set wbkunion=thisworkbook
'init file pertama
sfile=dir$("C:\data\Template\ABC*.xls")
'loop mulai dari file pertama yang diproses
do while lenb(sfile)<>0
'buka filenya
set wbkfile= workbooks.open sfile,false
'proses copy paste data dari file ke hasil gabungan (union)
disini
'tutup file
wbkfile.close false
'file berikutnya
sfile=dir$
loop
application.displayalerts=true
Wassalam,
Kid.
2011/11/29 gobang13910 <[email protected]>
> **
>
>
> Salam Semua,
>
> Mohon bantuanya, sebelumnya saya cerita dulu masalah saya,(Curhat),
> saya punya file contohnya file namenya : ABC_0102_01.xls tapi buanyak
> sampai lebih dari 100 file, dengan file name yang sama tapi belakangnya
> beda..heheheh, nah dari file tersebut sama mau satukan isinya.
>
> dan yang lebih sebelnya file teresbut angka belakang tidak pernah sama
>
> yang saya mau tanyakan dan berharap bantuanya untuk coding macronya (biar
> tiap hari ga pegel copy paste 100an file satu-satu)
>
> yang saya tahu coding macro untuk buka file
>
> Workbooks.Open Filename:="C:\data\Template\ABC_0102_01.xls
>
> tapi selalu berubah nama belakangnya (_0102_01 => random number)
>
> Tulung dibantu ya
> Maaf kalo kepanjangan
>
> Trimakasih Buanyak..
>
>
>
