Hai Longinus,
Milis mempunya blog yang juga membahas tentang VBA. Disana ada cara memilih
range yang dimulai darisini
<http://b-excel.blogspot.com/2013/09/belajarvba-011-range-01-berdasar-alamat.html>
.
Misal : file z.xlsm akan menyalin data dari workbook bernama a.xlsx di
sheet bernama asal disimpan ke b.xlsx ke sheet bernama mydata
'buka workbook yang dibutuhkan
workbooks.open("drive:\pathnya\a.xlsx")
workbooks.open("drive:\pathnya\b.xlsx")
'copy sumber data di a.xlsx sheet asal yang berbentuk tabel yang baik tanpa
header
workbooks("a.xlsx").sheets("asal").range("a1").currentregion.offset(1).copy
'paste values beserta format number ke b.xlsx di sheet mydata pada baris
kosong (proses append data)
with workbooks("b.xlsx").sheets("mydata").range("a1")
.offset( .currentregion.rows.count ).pastespecial
xlpastevaluesandnumberformats
end with
'save lalu tutup workbook b.xlsx
workbooks("b.xlsx").close true
'tutup workbook a.xlsx tanpa save
workbooks("a.xlsx").close false
Regard,
Kid
2015-05-14 14:28 GMT+10:00 Longinus Lee [email protected]
[belajar-excel] <[email protected]>:
>
>
> Dear BeExceller
>
> Terlampir dua file, mohon bantu script nya.
>
> 1. copy data dari dataasli.exlb ke file databackup.xlsx, copy di bagian
> cell atau range yg berisikan data saja, sedangkan bagian kosong tidak akan
> di copy
>
> 2.input data dan edit data ke workbook lain (database.xlsx), maksudnya
> saya ingin menjadikan file database.xlsx sebagai tempat penyimpanan data
> aslinya. seperti Mr.Kid jelasin ke saya bahwa file ecxel yg sdh di convert
> jadi file.exe hanya berkerja sebagai engine saja.
>
> Sebelum dan sesudahnya saya ucapkan terima kasih.
>
> Salam,
> Longinus
>
>
>
