1 New Message
Digest #2405
Message
Fri Jul 5, 2013 2:44 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
ops ada pertanyaannya ya...
ternyata wbkDB nya {share workbook}..
myDB = "D:\(Nama Directory)\DB_ELS.xls"
myDBBackUp = "D:\(Nama Directory)" -> Nama Directory untuk backup file
application.displayalerts=false
set wbkDB = workbook.open(myDB)
wbkdb.saveas mydbbackup & "\" & wbkdb.name 'supaya jadi file salinan
(masih ada sheet C nya)
wbkdb.exclusiveaccess 'supaya ndak shared lagi
wbkdb.sheets("Sheet C").delete 'buang sheet c nya
wbkdb.save
application.displayalerts=true
----
object wbkdb bisa dibentuk menjadi blok With End With
myDB = "D:\(Nama Directory)\DB_ELS.xls"
myDBBackUp = "D:\(Nama Directory)" -> Nama Directory untuk backup file
application.displayalerts=false
set wbkDB = workbook.open(myDB)
with wbkdb
.saveas mydbbackup & "\" & wbkdb.name 'supaya jadi file salinan (masih
ada sheet C nya)
.exclusiveaccess 'supaya ndak shared lagi
.sheets("Sheet C").delete 'buang sheet c nya
.save
end with
application.displayalerts=true
Wassalam,
Kid.
2013/7/3 ones_marle_oke <ones_marle_oke@yahoo.com >
> **
>
>
> Om Kid, tuh kan saya cerewet lagi... Maaf loh klo cerewetnya kebangetan..
> Nah, ternyata wbkDB nya {share workbook}..
> Secara otomatis, berarti klo bgtu tidak bisa didelete kan ya sheetnya..
> lah saya bingung om kid, ini gmn cara bukanya ya?
>
> Apa sama aja menggunakan seperti :
> set wsDB = wbkDB.worksheet("sheet C")
> wsDB.Unprotect
>
> Atau berbeda caranya ?
>
>
> --- In belajar-excel@yahoogroups.com , "ones_marle_oke" <ones_marle_oke@...>
> wrote:
> >
> > Wah, dalam arti kata application.displayalerts ini digunakan untuk tidak
> ada seperti pertanyaan, "{name workbook sudah ada, apakah mau direplace?}
> -> seperti ini bkn om kid yg dimaksudkan cerewetnya?
> >
> > Maaf loh om kid, klo yg ini cerewetnya kebangetan.. jd keseringan
> nanya.. hehehehe.. :)
> >
> > --- In belajar-excel@yahoogroups.com , "Mr. Kid" <mr.nmkid@> wrote:
> > >
> > > 1. application.displayalerts=false -> Ini gunanya untuk apa ya ?
> > > >> Excel sering kelewatan cerewetnya, karena saking hati-hatinya
> terhadap
> > > data. Akhirnya, sering muncul yang namanya dialog konfirmasi. Terutama
> saat
> > > akan hapus sheet atau akan save file.
> > > >> properti DisplayAlerts milik object Application adalah pernyataan
> sikap
> > > user terhadap kecerewetan Excel ini. Jika nilai properti diset FALSE,
> maka
> > > si Excel diminta user untuk tidak cerewet.
> > > >> Sebaiknya, properti ini dikembalikan menjadi TRUE diakhir proses
> > > (kasihan si Excel kalau ndak diijinkan cerewet, kuatirnya nanti malah
> > > stress) agar dapat keuntungan dari kehati-hatian si Excel dalam
> menangani
> > > data.
> > >
> > > 2. wbkdb.name -> untuk name itu, ini sebuah pedeklarasian terlebih
> > > dahulu tidak?
> > > >> variabel wbkdb memiliki type workbook.
> > > >> name adalah sebuah properti milik object Workbook yang berisi nilai
> nama
> > > workbook.
> > > >> jadi tidak perlu deklarasi apa-apa, karena sekedar menggunakan nilai
> > > yang disimpan oleh sebuah properti dalam suatu object.
> > >
> > >
> > > #ngomong", Kopdar ver2 diadakan kpn lagi ya?
> > > -> mau ikut klo ada kopdar lagi..
> > > >> sedang menunggu panitia untuk mengadakan rekrutmen kepanitiaan
> kopdar2.
> > > Kalau BeExceller yang bersedia menjadi panitia cuman dikit, bisa jadi
> butuh
> > > waktu yang lama untuk bisa mewujudkan kopdar2.
> > >
> > >
> > > Wassalam
> > > Kid.
> > >
> > >
> > >
> > > 2013/7/3 ones_marle_oke <ones_marle_oke@>
> > >
> > > > **
> > > >
> > > >
> > > > Bener om Kid. Jadi Sheet A dan B berserta isinya akan di simpan ke
> folder
> > > > lain. Ya intinya si, mau backup 'wbkDB' ini tanpa Sheet C.
> > > >
> > > > {'wbkDB.save -> untuk menyimpan file utama baru saja dibuka kok udah
> mau
> > > > di-save} -> ah bisa aja ini si om Kid. Kan cm jln cerita mksdnya.
> > > >
> > > > Mau tanya sedikit lg deh om tentang maksud ini :
> > > > 1. application.displayalerts=false -> Ini gunanya untuk apa ya ?
> > > > 2. {wbkdb.'name'} -> untuk name yg saya beri tanda kutip ini, ini
> sebuah
> > > > pedeklarasian terlebih dahulu tidak?
> > > >
> > > > Sekali lagi terima kasih ya om Kid..
> > > > #ngomong", Kopdar ver2 diadakan kpn lagi ya?
> > > > -> mau ikut klo ada kopdar lagi..
> > > >
> > > >
> > > > --- In belajar-excel@yahoogroups.com , "Mr. Kid" <mr.nmkid@> wrote:
> > > > >
> > > > > Kalau ndak salah, maksudnya ada file utama yang berisi sheet A,B,C.
> > > > > Yang akan dipakai adalah file yang berisi sheet A,B saja dan juga
> file
> > > > yang
> > > > > berisi A,B ini dibuatkan salinan nya di folder lain.
> > > > >
> > > > > myDB = "D:\(Nama Directory)\DB_ELS.xls"
> > > > > myDBBackUp = "D:\(Nama Directory)" -> Nama Directory untuk backup
> file
> > > > >
> > > > > application.displayalerts=false
> > > > > set wbkDB = workbook.open(myDB)
> > > > > 'wbkDB.save -> untuk menyimpan file utama baru saja dibuka kok
> udah mau
> > > > > di-save
> > > > >
> > > > > 'hapus sheet bernama Sheet C
> > > > > 'set wsDB = wbkDB.worksheets("Sheet C") '-> Stuck ga ngerti cara
> > > > > deleted sheet tersebut
> > > > > wbkdb.sheets("Sheet C").delete
> > > > >
> > > > > 'savecopyas dengan nama yang sama tapi di folder beda
> > > > > 'wbkDB.SaveAsCopy myDBBackUp
> > > > > wbkdb.savecopyas mydbbackup & "\" & wbkdb.name
> > > > >
> > > > > application.displayalerts=true
> > > > >
> > > > > Wassalam,
> > > > > Kid.
> > > > >
> > > > >
> > > > >
> > > > > 2013/7/3 ones_marle_oke <ones_marle_oke@>
> > > > >
> > > > > > **
> > > >
> > > > > >
> > > > > >
> > > > > > Salam Super semua untuk BeExcel... (Selamat Sore....) :)
> > > > > >
> > > > > > Om, Tante, Brother, Sistah semua yang ada disini... #kok malah
> nyanyi
> > > > ya
> > > > > > saya... (guyonan sedikit aja si)
> > > > > >
> > > > > > Mau tanya neh... -> *ujung - ujungnya malah nanya
> > > > > >
> > > > > > Bagaimana ya cara untuk saveascopy workbook ke directory yang
> lain.
> > > > > > Jadi gini, ada "wbkDB" (sebagai workbook yang menjadi penyimpanan
> > > > datanya)
> > > > > > nah terus, didalam "wbkDB" ini pnya 3 sheet yg isinya : sheet A,
> sheet
> > > > B
> > > > > > dan sheet C.
> > > > > >
> > > > > > Namun saat ingin mau saya saveascopy "wbkDB" ini, ada (sheet C)
> yang
> > > > harus
> > > > > > saya 'Delete' terlebih dahulu sblm saya simpan ke directory
> lain. Ini
> > > > > > berfungsi untuk data BackUp dari "wbkDB" saja. Karena suatu saat
> > > > "wbkDB"
> > > > > > ini hilang atau corrupt, saya masih mempunyai data BackUp dari
> "wbkDB"
> > > > > > tersebut.
> > > > > >
> > > > > > Nah begitu deh cerita panjang pendeknya neh BeExcel.
> > > > > > Saya mencoba untuk delete sheet baru simpan (saveascopy), tp
> malah kena
> > > > > > debug mlulu..
> > > > > > (Sedihnya nasib ini)
> > > > > >
> > > > > > contoh perjalanan script :
> > > > > > myDB = "D:\(Nama Directory)\DB_ELS.xls"
> > > > > > myDBBackUp = "D:\(Nama Directory)" -> Nama Directory untuk
> backup file
> > > > > > set wbkDB = workbook.open(myDB)
> > > > > > wbkDB.save -> untuk menyimpan file utama
> > > > > > set wsDB = wbkDB.worksheets("Sheet C") -> Stuck ga ngerti cara
> deleted
> > > > > > sheet tersebut
> > > > > > wbkDB.SaveAsCopy myDBBackUp
> > > > > >
> > > > > > Dari script diatas, selalu BUG terus.. Mumet, apakah ada yang
> > > > terlewatkan
> > > > > > dari perjalanan script tersebut ?
> > > > > >
> > > > > > Terima kasih neh BeExcel yang bs mmberikan pencerahan dan
> penjelasan
> > > > dari
> > > > > > kesalahan script diatas...
> > > > > >
> > > > > >
> > > > > >
> > > > >
> > > >
> > > >
> > > >
> > >
> >
>
>
>
ternyata wbkDB nya {share workbook}..
myDB = "D:\
myDBBackUp = "D:\
application.
set wbkDB = workbook.open(
wbkdb.saveas mydbbackup & "\" & wbkdb.name 'supaya jadi file salinan
(masih ada sheet C nya)
wbkdb.exclusiveacce
wbkdb.sheets(
wbkdb.save
application.
----
object wbkdb bisa dibentuk menjadi blok With End With
myDB = "D:\
myDBBackUp = "D:\
application.
set wbkDB = workbook.open(
with wbkdb
.saveas mydbbackup & "\" & wbkdb.name 'supaya jadi file salinan (masih
ada sheet C nya)
.exclusiveaccess 'supaya ndak shared lagi
.sheets("
.save
end with
application.
Wassalam,
Kid.
2013/7/3 ones_marle_oke <ones_marle_oke@
> **
>
>
> Om Kid, tuh kan saya cerewet lagi... Maaf loh klo cerewetnya kebangetan..
> Nah, ternyata wbkDB nya {share workbook}..
> Secara otomatis, berarti klo bgtu tidak bisa didelete kan ya sheetnya..
> lah saya bingung om kid, ini gmn cara bukanya ya?
>
> Apa sama aja menggunakan seperti :
> set wsDB = wbkDB.worksheet(
> wsDB.Unprotect
>
> Atau berbeda caranya ?
>
>
> --- In belajar-excel@
> wrote:
> >
> > Wah, dalam arti kata application.
> ada seperti pertanyaan, "{name workbook sudah ada, apakah mau direplace?}
> -> seperti ini bkn om kid yg dimaksudkan cerewetnya?
> >
> > Maaf loh om kid, klo yg ini cerewetnya kebangetan.. jd keseringan
> nanya.. hehehehe.. :)
> >
> > --- In belajar-excel@
> > >
> > > 1. application.
> > > >> Excel sering kelewatan cerewetnya, karena saking hati-hatinya
> terhadap
> > > data. Akhirnya, sering muncul yang namanya dialog konfirmasi. Terutama
> saat
> > > akan hapus sheet atau akan save file.
> > > >> properti DisplayAlerts milik object Application adalah pernyataan
> sikap
> > > user terhadap kecerewetan Excel ini. Jika nilai properti diset FALSE,
> maka
> > > si Excel diminta user untuk tidak cerewet.
> > > >> Sebaiknya, properti ini dikembalikan menjadi TRUE diakhir proses
> > > (kasihan si Excel kalau ndak diijinkan cerewet, kuatirnya nanti malah
> > > stress) agar dapat keuntungan dari kehati-hatian si Excel dalam
> menangani
> > > data.
> > >
> > > 2. wbkdb.name -> untuk name itu, ini sebuah pedeklarasian terlebih
> > > dahulu tidak?
> > > >> variabel wbkdb memiliki type workbook.
> > > >> name adalah sebuah properti milik object Workbook yang berisi nilai
> nama
> > > workbook.
> > > >> jadi tidak perlu deklarasi apa-apa, karena sekedar menggunakan nilai
> > > yang disimpan oleh sebuah properti dalam suatu object.
> > >
> > >
> > > #ngomong"
> > > -> mau ikut klo ada kopdar lagi..
> > > >> sedang menunggu panitia untuk mengadakan rekrutmen kepanitiaan
> kopdar2.
> > > Kalau BeExceller yang bersedia menjadi panitia cuman dikit, bisa jadi
> butuh
> > > waktu yang lama untuk bisa mewujudkan kopdar2.
> > >
> > >
> > > Wassalam
> > > Kid.
> > >
> > >
> > >
> > > 2013/7/3 ones_marle_oke <ones_marle_
> > >
> > > > **
> > > >
> > > >
> > > > Bener om Kid. Jadi Sheet A dan B berserta isinya akan di simpan ke
> folder
> > > > lain. Ya intinya si, mau backup 'wbkDB&#
> > > >
> > > > {'wbkDB.
> mau
> > > > di-save} -> ah bisa aja ini si om Kid. Kan cm jln cerita mksdnya.
> > > >
> > > > Mau tanya sedikit lg deh om tentang maksud ini :
> > > > 1. application.
> > > > 2. {wbkdb.'
> sebuah
> > > > pedeklarasian terlebih dahulu tidak?
> > > >
> > > > Sekali lagi terima kasih ya om Kid..
> > > > #ngomong"
> > > > -> mau ikut klo ada kopdar lagi..
> > > >
> > > >
> > > > --- In belajar-excel@
> > > > >
> > > > > Kalau ndak salah, maksudnya ada file utama yang berisi sheet A,B,C.
> > > > > Yang akan dipakai adalah file yang berisi sheet A,B saja dan juga
> file
> > > > yang
> > > > > berisi A,B ini dibuatkan salinan nya di folder lain.
> > > > >
> > > > > myDB = "D:\
> > > > > myDBBackUp = "D:\
> file
> > > > >
> > > > > application.
> > > > > set wbkDB = workbook.open(
> > > > > 'wbkDB.save -> untuk menyimpan file utama baru saja dibuka kok
> udah mau
> > > > > di-save
> > > > >
> > > > > 'hapus sheet bernama Sheet C
> > > > > 'set wsDB = wbkDB.worksheets(
> > > > > deleted sheet tersebut
> > > > > wbkdb.sheets(
> > > > >
> > > > > 'savecopyas dengan nama yang sama tapi di folder beda
> > > > > 'wbkDB.SaveAsCo
> > > > > wbkdb.savecopyas mydbbackup & "\" & wbkdb.name
> > > > >
> > > > > application.
> > > > >
> > > > > Wassalam,
> > > > > Kid.
> > > > >
> > > > >
> > > > >
> > > > > 2013/7/3 ones_marle_oke <ones_marle_
> > > > >
> > > > > > **
> > > >
> > > > > >
> > > > > >
> > > > > > Salam Super semua untuk BeExcel... (Selamat Sore....) :)
> > > > > >
> > > > > > Om, Tante, Brother, Sistah semua yang ada disini... #kok malah
> nyanyi
> > > > ya
> > > > > > saya... (guyonan sedikit aja si)
> > > > > >
> > > > > > Mau tanya neh... -> *ujung - ujungnya malah nanya
> > > > > >
> > > > > > Bagaimana ya cara untuk saveascopy workbook ke directory yang
> lain.
> > > > > > Jadi gini, ada "wbkDB" (sebagai workbook yang menjadi penyimpanan
> > > > datanya)
> > > > > > nah terus, didalam "wbkDB" ini pnya 3 sheet yg isinya : sheet A,
> sheet
> > > > B
> > > > > > dan sheet C.
> > > > > >
> > > > > > Namun saat ingin mau saya saveascopy "wbkDB" ini, ada (sheet C)
> yang
> > > > harus
> > > > > > saya 'Delete&#
> lain. Ini
> > > > > > berfungsi untuk data BackUp dari "wbkDB" saja. Karena suatu saat
> > > > "wbkDB"
> > > > > > ini hilang atau corrupt, saya masih mempunyai data BackUp dari
> "wbkDB"
> > > > > > tersebut.
> > > > > >
> > > > > > Nah begitu deh cerita panjang pendeknya neh BeExcel.
> > > > > > Saya mencoba untuk delete sheet baru simpan (saveascopy)
> malah kena
> > > > > > debug mlulu..
> > > > > > (Sedihnya nasib ini)
> > > > > >
> > > > > > contoh perjalanan script :
> > > > > > myDB = "D:\
> > > > > > myDBBackUp = "D:\
> backup file
> > > > > > set wbkDB = workbook.open(
> > > > > > wbkDB.save -> untuk menyimpan file utama
> > > > > > set wsDB = wbkDB.worksheets(
> deleted
> > > > > > sheet tersebut
> > > > > > wbkDB.SaveAsCopy myDBBackUp
> > > > > >
> > > > > > Dari script diatas, selalu BUG terus.. Mumet, apakah ada yang
> > > > terlewatkan
> > > > > > dari perjalanan script tersebut ?
> > > > > >
> > > > > > Terima kasih neh BeExcel yang bs mmberikan pencerahan dan
> penjelasan
> > > > dari
> > > > > > kesalahan script diatas...
> > > > > >
> > > > > >
> > > > > >
> > > > >
> > > >
> > > >
> > > >
> > >
> >
>
>
>
GROUP FOOTER MESSAGE
=====================================================================
Untuk memudahkan tim penyusun materi Belajar Excel yang lebih sesuai kebutuhan member, silakan ungkapkan permasalahan yang kerap ditemui dalam menggunakan Excel sehari-hari atau hal-hal yang ingin dipelajari dalam jangka dekat ini. Mohon diprioritaskan dari yang sering ditemui sampai yang ingin dipelajari.
Isi sesuai kelompoknya (fitur-fitur, formula-formula tertentu yang masih membingungkan, otomasi atau pemrograman dalam Excel [Macro - VBA], hal lainnya yang membuat Anda kesulitan dalam mempelajari Excel).
Boleh mengisi berulang kali untuk menambah uneg-uneg yang ingin diungkapkan.
Link untuk menuangkan seluruh uneg-uneg tersebut ada di :
http://tech.groups.yahoo.com/group/belajar-excel/database?method=addRecord&tbl=3
=====================================================================
Langkah kecil Anda dalam mengisi database bisa menjadi langkah pertama yang bermanfaat besar untuk kita semua.
=====================================================================
---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscribe@yahoogroups.com
posting ke milis, kirimkan ke:
belajar-excel@yahoogroups.com
berkunjung ke web milis
http://tech.groups.yahoo.com/group/belajar-excel/messages
melihat file archive / mendownload lampiran
http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe):
kirim mail kosong ke belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------
Untuk memudahkan tim penyusun materi Belajar Excel yang lebih sesuai kebutuhan member, silakan ungkapkan permasalahan yang kerap ditemui dalam menggunakan Excel sehari-hari atau hal-hal yang ingin dipelajari dalam jangka dekat ini. Mohon diprioritaskan dari yang sering ditemui sampai yang ingin dipelajari.
Isi sesuai kelompoknya (fitur-fitur, formula-formula tertentu yang masih membingungkan, otomasi atau pemrograman dalam Excel [Macro - VBA], hal lainnya yang membuat Anda kesulitan dalam mempelajari Excel).
Boleh mengisi berulang kali untuk menambah uneg-uneg yang ingin diungkapkan.
Link untuk menuangkan seluruh uneg-uneg tersebut ada di :
http://tech.groups.yahoo.com/group/belajar-excel/database?method=addRecord&tbl=3
=====================================================================
Langkah kecil Anda dalam mengisi database bisa menjadi langkah pertama yang bermanfaat besar untuk kita semua.
=====================================================================
---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscribe@yahoogroups.com
posting ke milis, kirimkan ke:
belajar-excel@yahoogroups.com
berkunjung ke web milis
http://tech.groups.yahoo.com/group/belajar-excel/messages
melihat file archive / mendownload lampiran
http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe):
kirim mail kosong ke belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------
Tidak ada komentar:
Posting Komentar