Salam Mr Kid,
trimakasih respon dan bantuanya,
ada sedikit yang saya tidak mengerti setelah saya copas ke vbe editor
ada yang error
Sub macro3()
Dim sFile As String
Dim wbkFile As Workbook, wbkUnion As Workbook
Application.DisplayAlerts = False
Set wbkUnion = ThisWorkbook
'init file pertama
sFile = Dir$("Z:\CG_Insurance_Authorise*.CSV")
'loop mulai dari file pertama yang diproses
Do While LenB(sFile) <> 0
'buka filenya
set wbkfile= workbooks.open sfile,false -->( yang ini warnya merah)
'proses copy paste data dari file ke hasil gabungan (union) disini
'tutup file
wbkFile.Close False
'file berikutnya
sFile = Dir$
Loop
Application.DisplayAlerts = True
End Sub
mohon pencerahanya Mr Kid,
apa karna saya pakai office 2003?
Trimakasih
--- In [email protected], "Kid Mr." <mr.nmkid@...> wrote:
>
> 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 gobang13910@...
>
> > **
> >
> >
> > 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..
> >
> >
> >
>
