Kalau boleh nambahin sedikit,
mungkin sebaiknya yang dimerge hanya datanya saja, gak perlu header dari
masing-masing sheet.
Pinjem script ya mbah semprul..
Jika menggunakan script dari mbah semprul, mungkin bisa diubah dikit di
bagian :
For Each sht In wbk.Sheets
Set Tble = sht.Cells(1).CurrentRegion
r = Tble.Rows.Count
menjadi :
For Each sht In wbk.Sheets
Set Tble = sht.Cells(1).CurrentRegion*.offset(1)*
r = Tble.Rows.Count - 1
tapi, pengubahan itu belum dicoba sih.. tapi intinya, agar tabel pada file
hasil.xls bisa tetap berkaidah database.
Wassalam,
Kid.
2012/2/2 Modby Matsnawabi <[email protected]>
> **
>
>
> Dear All,
>
> Mohon bantuan, bagaimana cara nya merge file/sheet.
>
> 1. ane punya 10 file dengan isi format kolom/baris yang sama. nah
> file2 itu mau di gabung jadi 1 file, file di gabung jadi ngurut ke
> bawah..(contoh book3,4,5) digabung seperti file hasil
>
> 2. Case lain gimana klo data nya salam satu file tapi beda sheet(misal
> 10 Sheet) mau kita merge jadi 1 sheet. (file BOOK 1, semua sheet
> digabung jadi hasil)
>
> 3. Gimana cara nya misahin sheet dalam satu file biar bisa jadi file
> masing-masing.
> contoh File BOOK 1 kan ada 4 sheet, gimana cara cepatnya biar sheet
> itu bisa pisah jadi 4 file.
>
> contoh file terlampir
>
> Thank's you...
> salam cipok... ;p
>
>
>
