Hello Mas Slamet,
Biasanya saya menggunakan 2 variabel workbook, misal wb1 untuk workbook yang
baru saja di-update user, dan wb2 untuk workbook data utama.
Setelah buka wb2 (dengan workbook.open), tentukan baris mulainya data baru
pada wb2 (data utama), kemudian :
wb1.worksheets(shtUser).rngDataUser.copy
wb2.worksheets(shtDataUtama).range("A" &
lBarisBaru).PasteSpecial(xlPasteAll)
shtUser bertype string berisi nama sheet yang digunakan user, kalau di file
anda sheet Main
shtDataUtama bertype string berisi nama sheet pada workbook main_data.xls
rngDataUser bertype range berisi range data yang akan dimasukkan ke
workbook main_data.xls
"A" adalah kolom pada sheet shtDataUtama (lokasi akan di-paste-nya data dari
user)
lBarisBaru adalah baris pada sheet shtDataUtama (lokasi akan di-paste-nya
data dari user)
Jadi pada wb1 (dari user), menggunakan range (kumpulan data) dan pada wb2
(main_data) menggunakan 1 cell, yaitu A10 misalnya, untuk lBarisBaru=10
Semoga bermanfaat,
Kid
2009/3/12 Slamet Harto <slametha...@wiendi.web.id>
> Hallo semua,
>
> Ceritanya saya ingin mengirim data ke server dari file book2 ke file
> CDB.xls
> tetapi file ini selalu dalam keadaan tertutup
>
> mau minta tolong dong untuk error dipenggalan coding ini
>
> wb.Worksheets("Main").Range(CurDatRng).Formula =
> Worksheets("Sheet1").Range([A2], "A" & XLlastrow + 1).Formula
>
> udah pake cara berikut juga masih salah
> wb.Worksheets("Main").Range(CurDatRng).Copy
> Worksheets("Sheet1").Range([A2], "A" & XLlastrow + 1)
>
> udah cek ke jendela immediate dgn perintah debug print, tp hasilnya
> 1.. (apa ya maksudnya)
>
> File ini nantinya berisi database dan terpoteksi (kodingnya belum saya
> selesaikan)
>
> Terlampir wokbuknya, sebelum dan sesudahnya terima kasih banyak
> wassalam
> .
>
>
>
