15 Messages
Digest #4407
2a
Fw: Re: [belajar-excel] Cara Gabung Tabel Beda Workbook dan Beda Kom by "hendrik karnadi" hendrikkarnadi
Messages
Sun Jan 14, 2018 6:46 pm (PST) . Posted by:
y.roni35
bagus slip ini mr kid, bisakah bagi password vba excelnya
Sun Jan 14, 2018 7:20 pm (PST) . Posted by:
"hendrik karnadi" hendrikkarnadi
Hai Roni,Saya tidak melihat VBA nya diprotect, begitu pula Sheetnya.
Salam,HK
----- Forwarded message ----- From: y.roni35@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>To: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>Sent: Monday, 15 January 2018, 9:46:14 AM GMT+7Subject: [belajar-excel] Re: Print slip gaji
bagus slip ini mr kid, bisakah bagi password vba excelnya
Salam,HK
----- Forwarded message ----- From: y.roni35@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>To: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>Sent: Monday, 15 January 2018, 9:46:14 AM GMT+7Subject: [belajar-excel] Re: Print slip gaji
bagus slip ini mr kid, bisakah bagi password vba excelnya
Sun Jan 14, 2018 10:39 pm (PST) . Posted by:
y.roni35
ok makasih mr kid, ini baru ku download ulang ternayata sudah bisa
Tue Jan 16, 2018 1:03 am (PST) . Posted by:
"go tjwan ham" go_tjwan_ham
Thanka Mr.Kid dan nangagus buat bantuannya
Sent from Yahoo Mail on Android
Sent from Yahoo Mail on Android
Sun Jan 14, 2018 7:00 pm (PST) . Posted by:
"hendrik karnadi" hendrikkarnadi
Hai Kiki,
Sebenarnya ada dua file "gabungan" dalam folder Consolidate yang saya kirim sebelumnya,
- Consolidate (TB R_HK + Kid), menambah sekaligus menjumlahkan berdasarkan "Account" (sql nya dibantu Mr. Kid).
- Consolidate (GL R_HK + Zainal), menambah saja (Append) berdasarkan "Account" (sql nya dibantu Pak Zainal).
Demikian ralat dari saya dan sekaligus mohon maaf kepada Pak Zainal yang lupa saya sebutkan namanya dalam jawaban tersebut, dimana saya hanya menyebutkan jawaban No. 1.
Salam,HK
----- Forwarded message ----- From: 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com>To: BeExcel <belajar-excel@yahoogroups.com>Sent: Sunday, 14 January 2018, 7:12:24 PM GMT+7Subject: Re: [belajar-excel] Cara Gabung Tabel Beda Workbook dan Beda Komputer
Hai Kiki,
Tentang :
* Penginput data ada 3 orang (Andi, Dian, Dina), dengan komputer berlainan tempat
> Meski input berlainan tempat, ada baiknya save di satu folder yang sama di komputer yang sama
Tentang :
* Bagaimana cara paling efektif agar saya dapat menggabungkan tiga workbook tersebut dalam satu tabel di komputer saya ?
> Jika menggunakan xl2010 ke atas, pakailah Power Query (download dan install untuk xl2010 dan xl2013, pakai untuk xl2016 ke atas)
Tentang :
* Apakah harus menggunakan relasi antar tabel atau cukup dengan append ?
> Append,
> karena Andi, Dian, dan Dina sudah memiliki hubungan yang baik-baik saja, yaitu bekerja sebagai satu tim yang kompak...
> ndak usah repot-repot cari gara-gara membuatkan relasi tambahan diantara mereka,
nanti ndak mereka malah bubar gara-gara ada yang bertepuk sebelah tangan
> lagi pula, apa pantes Celana Dian dijejerken dengan Celana Andi.. ra' ya ndak mungkin to...> yang simpel dan logis saja ya...
nanti ndak sampeyan malah mbulet lan mumet sendiri, karena Underwear Dian tak tertandingi (lha Andi dan Dina gak punya Underwear jeh..)
> mending punyanya masing-masing ditumpuk jadi satu, biar gampang ngirim ke laundry
> oh iya, ndak usah aneh-aneh pengen Merge segala ya> apa iya, kalo Celana Andi diganti dengan Celana Dian saja, dan biarkan Dian gak punya celana.. (ih... saru..)
> So, sudah bisa paham bedanya Append, Merge, dan manfaat Relationship dalam data ? Mestinya bisalah... masak cuman bisa cengar-cengir sendiri kaya lagi gak sehat..
> Sederhananya,
1. Relationship untuk menjejerkan data (sering disebut JOIN) [Celana Dian gak bisa di JOIN dengan Celana Andi kan]
2. Merge untuk mengganti yang lama dan menambahkan yang belum ada [kasihan Dian, baru punya celana baru dah dipakai buat ngganti celana Andi yang dah lama] 3. Append untuk menggabungkan (menumpuk, atau mengumpulkan jadi satu susun, sering disebut UNION ALL) [disusun dari atas ke bawah, biar mbak Inem gampang mbawa ke laundry]
Tentang :
* Append tiga workbook tersebut ke tabel yang berstruktur kolom sama di komputer saya dengan bantuan Power Query
> yak bagus...
Tentang :
Yang jadi masalah, workbook saya yang memuat hasil append query dari 3 workbook tsb file nya menjadi besar
> loh... lha kok tumpukannya ditaruh di meja tamu...> kan mau dibawa ke laundry..> taruhlah di keranjang, biar mbak Inem gampang mbawanya...
kecuali kalo mbak Inem selalu punya pulsa untuk telpon sampeyan nanyain lokasi tumpukannya dimana, maka tumpukannya bisa ditaruh diteras belakang... jadi kan gak bikin sesek n penguk ruangan kantor ya.... biar kantornya tetep fresh gitu, tapi tumpukannya juga sampai ke laundry
> So, Cari wadah yang lebih pantes [Excel data model atau langsung Pivot Cache],
lalu sesuaikan peletakan wadahnya berdasar potensi kelanggengan mbak Inem untuk segera tahu
dimana tumpukannya dan bisa segera membawa ke laundry [Save with workbook atau tidak jika oleh pivot cache, atau biar kompresi Excel Data Model]
Tentang :
lambat ketika proses refresh
> waaa.... lha jelas, mbak inem aja sungkan mau masuk ke ruang tamu kantor... masak petugas laundry harus ngobrol sama tamu kantor yang lagi siriyes mbahas proyek...
kacian mbak Inem, cuma maju mundur maju mundur, masuk gak masuk gak... lah kalo incak incik begitu, ya jadi lama kerjanya si mbak Inem... kapan sampai laundry bawa tumpukannya ya...> coba kalo pas dengan karakter kerja mbak Inem, mesti sampeyan bisa jadi pahlawan...
begitu memahami mbak Inem gitu loh...
Begitu ya...wkwkwkwk...
ngomyangin lainnya aja yuk...1. Kalau pakai xl2007 ke bawah : a. datanya gak banyak (tidak lebih dari 500K per tabel), bisa pakai Get External Data berisi query Union All, lalu dimasukkan langsung ke pivot table b. datanya sedikit (tidak lebih dari 100K per tabel), pakai VBA untuk buka file, lalu copy, trus paste ke workbook kumpulan, masih ok lah c. datanya sangat sedikit, copas value manual atau entri langsung sajah di workbook kumpulan... (kalo betah) d. kalau datanya banyak banget, pakai VBA untuk mengumpulkannya menjadi 1 (satu) bijik text file, lalu ambil dari text file pakai Get External Data
2. Kalau pakai xl2010 ke atas, tapi tidak bisa pakai Power Query n Excel Data Model : >>> seperti kalau pakai xl2007 ke bawah
3. Kalau pakai xl2010 ke atas, bisa pakai power query, tapi gak punya akses ke Excel Data Model :
>>> data yang ada di power query di keluarkan ke worksheet, lalu pakai nomor 1.d.4. Kalau pakai xl2010 ke atas, bisa pakai power query n Excel Data Model : >>> manfaatkan seoptimum mungkin... *** psstt.... bisik-bisik aja ya, ini rahasia... pakai power query, bisa dinamis untuk ngambil dari mana saja (tidak harus dari satu folder), asal ada daftar nama file beserta path-nya. daftarnya nambah, maka yang diambil juga nambah... daftarnya bisa diatur pakai berbagai cara supaya dinamis juga kan... rahasia loh ya...
udah ah...nanti ndak ditanyain BeExceller, 'Kid Sehat ?':(
Regards,Kid
2018-01-12 14:07 GMT+07:00 kiki tanjung kieki_e@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>:
Dear Teman Teman
Mohon bantuan dan pencerahan untuk kasus berikut :
Sebenarnya ada dua file "gabungan" dalam folder Consolidate yang saya kirim sebelumnya,
- Consolidate (TB R_HK + Kid), menambah sekaligus menjumlahkan berdasarkan "Account" (sql nya dibantu Mr. Kid).
- Consolidate (GL R_HK + Zainal), menambah saja (Append) berdasarkan "Account" (sql nya dibantu Pak Zainal).
Demikian ralat dari saya dan sekaligus mohon maaf kepada Pak Zainal yang lupa saya sebutkan namanya dalam jawaban tersebut, dimana saya hanya menyebutkan jawaban No. 1.
Salam,HK
----- Forwarded message ----- From: 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com>To: BeExcel <belajar-excel@yahoogroups.com>Sent: Sunday, 14 January 2018, 7:12:24 PM GMT+7Subject: Re: [belajar-excel] Cara Gabung Tabel Beda Workbook dan Beda Komputer
Hai Kiki,
Tentang :
* Penginput data ada 3 orang (Andi, Dian, Dina), dengan komputer berlainan tempat
> Meski input berlainan tempat, ada baiknya save di satu folder yang sama di komputer yang sama
Tentang :
* Bagaimana cara paling efektif agar saya dapat menggabungkan tiga workbook tersebut dalam satu tabel di komputer saya ?
> Jika menggunakan xl2010 ke atas, pakailah Power Query (download dan install untuk xl2010 dan xl2013, pakai untuk xl2016 ke atas)
Tentang :
* Apakah harus menggunakan relasi antar tabel atau cukup dengan append ?
> Append,
> karena Andi, Dian, dan Dina sudah memiliki hubungan yang baik-baik saja, yaitu bekerja sebagai satu tim yang kompak...
> ndak usah repot-repot cari gara-gara membuatkan relasi tambahan diantara mereka,
nanti ndak mereka malah bubar gara-gara ada yang bertepuk sebelah tangan
> lagi pula, apa pantes Celana Dian dijejerken dengan Celana Andi.. ra' ya ndak mungkin to...> yang simpel dan logis saja ya...
nanti ndak sampeyan malah mbulet lan mumet sendiri, karena Underwear Dian tak tertandingi (lha Andi dan Dina gak punya Underwear jeh..)
> mending punyanya masing-masing ditumpuk jadi satu, biar gampang ngirim ke laundry
> oh iya, ndak usah aneh-aneh pengen Merge segala ya> apa iya, kalo Celana Andi diganti dengan Celana Dian saja, dan biarkan Dian gak punya celana.. (ih... saru..)
> So, sudah bisa paham bedanya Append, Merge, dan manfaat Relationship dalam data ? Mestinya bisalah... masak cuman bisa cengar-cengir sendiri kaya lagi gak sehat..
> Sederhananya,
1. Relationship untuk menjejerkan data (sering disebut JOIN) [Celana Dian gak bisa di JOIN dengan Celana Andi kan]
2. Merge untuk mengganti yang lama dan menambahkan yang belum ada [kasihan Dian, baru punya celana baru dah dipakai buat ngganti celana Andi yang dah lama] 3. Append untuk menggabungkan (menumpuk, atau mengumpulkan jadi satu susun, sering disebut UNION ALL) [disusun dari atas ke bawah, biar mbak Inem gampang mbawa ke laundry]
Tentang :
* Append tiga workbook tersebut ke tabel yang berstruktur kolom sama di komputer saya dengan bantuan Power Query
> yak bagus...
Tentang :
Yang jadi masalah, workbook saya yang memuat hasil append query dari 3 workbook tsb file nya menjadi besar
> loh... lha kok tumpukannya ditaruh di meja tamu...> kan mau dibawa ke laundry..> taruhlah di keranjang, biar mbak Inem gampang mbawanya...
kecuali kalo mbak Inem selalu punya pulsa untuk telpon sampeyan nanyain lokasi tumpukannya dimana, maka tumpukannya bisa ditaruh diteras belakang... jadi kan gak bikin sesek n penguk ruangan kantor ya.... biar kantornya tetep fresh gitu, tapi tumpukannya juga sampai ke laundry
> So, Cari wadah yang lebih pantes [Excel data model atau langsung Pivot Cache],
lalu sesuaikan peletakan wadahnya berdasar potensi kelanggengan mbak Inem untuk segera tahu
dimana tumpukannya dan bisa segera membawa ke laundry [Save with workbook atau tidak jika oleh pivot cache, atau biar kompresi Excel Data Model]
Tentang :
lambat ketika proses refresh
> waaa.... lha jelas, mbak inem aja sungkan mau masuk ke ruang tamu kantor... masak petugas laundry harus ngobrol sama tamu kantor yang lagi siriyes mbahas proyek...
kacian mbak Inem, cuma maju mundur maju mundur, masuk gak masuk gak... lah kalo incak incik begitu, ya jadi lama kerjanya si mbak Inem... kapan sampai laundry bawa tumpukannya ya...> coba kalo pas dengan karakter kerja mbak Inem, mesti sampeyan bisa jadi pahlawan...
begitu memahami mbak Inem gitu loh...
Begitu ya...wkwkwkwk...
ngomyangin lainnya aja yuk...1. Kalau pakai xl2007 ke bawah : a. datanya gak banyak (tidak lebih dari 500K per tabel), bisa pakai Get External Data berisi query Union All, lalu dimasukkan langsung ke pivot table b. datanya sedikit (tidak lebih dari 100K per tabel), pakai VBA untuk buka file, lalu copy, trus paste ke workbook kumpulan, masih ok lah c. datanya sangat sedikit, copas value manual atau entri langsung sajah di workbook kumpulan... (kalo betah) d. kalau datanya banyak banget, pakai VBA untuk mengumpulkannya menjadi 1 (satu) bijik text file, lalu ambil dari text file pakai Get External Data
2. Kalau pakai xl2010 ke atas, tapi tidak bisa pakai Power Query n Excel Data Model : >>> seperti kalau pakai xl2007 ke bawah
3. Kalau pakai xl2010 ke atas, bisa pakai power query, tapi gak punya akses ke Excel Data Model :
>>> data yang ada di power query di keluarkan ke worksheet, lalu pakai nomor 1.d.4. Kalau pakai xl2010 ke atas, bisa pakai power query n Excel Data Model : >>> manfaatkan seoptimum mungkin... *** psstt.... bisik-bisik aja ya, ini rahasia... pakai power query, bisa dinamis untuk ngambil dari mana saja (tidak harus dari satu folder), asal ada daftar nama file beserta path-nya. daftarnya nambah, maka yang diambil juga nambah... daftarnya bisa diatur pakai berbagai cara supaya dinamis juga kan... rahasia loh ya...
udah ah...nanti ndak ditanyain BeExceller, 'Kid Sehat ?':(
Regards,Kid
2018-01-12 14:07 GMT+07:00 kiki tanjung kieki_e@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>:
Dear Teman Teman
Mohon bantuan dan pencerahan untuk kasus berikut :
Sun Jan 14, 2018 7:26 pm (PST) . Posted by:
y.roni35
mungkin berikut bisa membantu https://drive.google.com/file/d/1SteqxTOuitqKL1R_YepB6Z_-oW_H25nm/view?usp=sharing https://drive.google.com/file/d/1SteqxTOuitqKL1R_YepB6Z_-oW_H25nm/view?usp=sharing
Salam,
Yusuf
Salam,
Yusuf
Sun Jan 14, 2018 11:03 pm (PST) . Posted by:
"kiki tanjung" kieki_e
Dear Pak Yusuf
Terima kasih atas pencerahannya
Saya coba pahami dulu
On Monday, January 15, 2018, 10:26:55 AM GMT+7, y.roni35@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
mungkin berikut bisa membantu https://drive.google.com/file/d/1SteqxTOuitqKL1R_YepB6Z_-oW_H25nm/view?usp=sharing
Salam,Yusuf #yiv7483032324 #yiv7483032324 -- #yiv7483032324ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv7483032324 #yiv7483032324ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv7483032324 #yiv7483032324ygrp-mkp #yiv7483032324hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv7483032324 #yiv7483032324ygrp-mkp #yiv7483032324ads {margin-bottom:10px;}#yiv7483032324 #yiv7483032324ygrp-mkp .yiv7483032324ad {padding:0 0;}#yiv7483032324 #yiv7483032324ygrp-mkp .yiv7483032324ad p {margin:0;}#yiv7483032324 #yiv7483032324ygrp-mkp .yiv7483032324ad a {color:#0000ff;text-decoration:none;}#yiv7483032324 #yiv7483032324ygrp-sponsor #yiv7483032324ygrp-lc {font-family:Arial;}#yiv7483032324 #yiv7483032324ygrp-sponsor #yiv7483032324ygrp-lc #yiv7483032324hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv7483032324 #yiv7483032324ygrp-sponsor #yiv7483032324ygrp-lc ..yiv7483032324ad {margin-bottom:10px;padding:0 0;}#yiv7483032324 #yiv7483032324actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv7483032324 #yiv7483032324activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv7483032324 #yiv7483032324activity span {font-weight:700;}#yiv7483032324 #yiv7483032324activity span:first-child {text-transform:uppercase;}#yiv7483032324 #yiv7483032324activity span a {color:#5085b6;text-decoration:none;}#yiv7483032324 #yiv7483032324activity span span {color:#ff7900;}#yiv7483032324 #yiv7483032324activity span .yiv7483032324underline {text-decoration:underline;}#yiv7483032324 .yiv7483032324attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv7483032324 .yiv7483032324attach div a {text-decoration:none;}#yiv7483032324 ..yiv7483032324attach img {border:none;padding-right:5px;}#yiv7483032324 .yiv7483032324attach label {display:block;margin-bottom:5px;}#yiv7483032324 .yiv7483032324attach label a {text-decoration:none;}#yiv7483032324 blockquote {margin:0 0 0 4px;}#yiv7483032324 .yiv7483032324bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv7483032324 .yiv7483032324bold a {text-decoration:none;}#yiv7483032324 dd.yiv7483032324last p a {font-family:Verdana;font-weight:700;}#yiv7483032324 dd.yiv7483032324last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv7483032324 dd.yiv7483032324last p span.yiv7483032324yshortcuts {margin-right:0;}#yiv7483032324 div.yiv7483032324attach-table div div a {text-decoration:none;}#yiv7483032324 div.yiv7483032324attach-table {width:400px;}#yiv7483032324 div.yiv7483032324file-title a, #yiv7483032324 div.yiv7483032324file-title a:active, #yiv7483032324 div.yiv7483032324file-title a:hover, #yiv7483032324 div.yiv7483032324file-title a:visited {text-decoration:none;}#yiv7483032324 div.yiv7483032324photo-title a, #yiv7483032324 div.yiv7483032324photo-title a:active, #yiv7483032324 div.yiv7483032324photo-title a:hover, #yiv7483032324 div.yiv7483032324photo-title a:visited {text-decoration:none;}#yiv7483032324 div#yiv7483032324ygrp-mlmsg #yiv7483032324ygrp-msg p a span.yiv7483032324yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv7483032324 .yiv7483032324green {color:#628c2a;}#yiv7483032324 .yiv7483032324MsoNormal {margin:0 0 0 0;}#yiv7483032324 o {font-size:0;}#yiv7483032324 #yiv7483032324photos div {float:left;width:72px;}#yiv7483032324 #yiv7483032324photos div div {border:1px solid #666666;min-height:62px;overflow:hidden;width:62px;}#yiv7483032324 #yiv7483032324photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv7483032324 #yiv7483032324reco-category {font-size:77%;}#yiv7483032324 #yiv7483032324reco-desc {font-size:77%;}#yiv7483032324 .yiv7483032324replbq {margin:4px;}#yiv7483032324 #yiv7483032324ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv7483032324 #yiv7483032324ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv7483032324 #yiv7483032324ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv7483032324 #yiv7483032324ygrp-mlmsg select, #yiv7483032324 input, #yiv7483032324 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv7483032324 #yiv7483032324ygrp-mlmsg pre, #yiv7483032324 code {font:115% monospace;}#yiv7483032324 #yiv7483032324ygrp-mlmsg * {line-height:1.22em;}#yiv7483032324 #yiv7483032324ygrp-mlmsg #yiv7483032324logo {padding-bottom:10px;}#yiv7483032324 #yiv7483032324ygrp-msg p a {font-family:Verdana;}#yiv7483032324 #yiv7483032324ygrp-msg p#yiv7483032324attach-count span {color:#1E66AE;font-weight:700;}#yiv7483032324 #yiv7483032324ygrp-reco #yiv7483032324reco-head {color:#ff7900;font-weight:700;}#yiv7483032324 #yiv7483032324ygrp-reco {margin-bottom:20px;padding:0px;}#yiv7483032324 #yiv7483032324ygrp-sponsor #yiv7483032324ov li a {font-size:130%;text-decoration:none;}#yiv7483032324 #yiv7483032324ygrp-sponsor #yiv7483032324ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv7483032324 #yiv7483032324ygrp-sponsor #yiv7483032324ov ul {margin:0;padding:0 0 0 8px;}#yiv7483032324 #yiv7483032324ygrp-text {font-family:Georgia;}#yiv7483032324 #yiv7483032324ygrp-text p {margin:0 0 1em 0;}#yiv7483032324 #yiv7483032324ygrp-text tt {font-size:120%;}#yiv7483032324 #yiv7483032324ygrp-vital ul li:last-child {border-right:none !important;}#yiv7483032324
Terima kasih atas pencerahannya
Saya coba pahami dulu
On Monday, January 15, 2018, 10:26:55 AM GMT+7, y.roni35@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
mungkin berikut bisa membantu https://drive.google.com/file/d/1SteqxTOuitqKL1R_YepB6Z_-oW_H25nm/view?usp=sharing
Salam,Yusuf #yiv7483032324 #yiv7483032324 -- #yiv7483032324ygrp-
Sun Jan 14, 2018 11:03 pm (PST) . Posted by:
"kiki tanjung" kieki_e
Dear Mr Kid
As usual, sebuah pencerahan dengan logika dan perumpamaan yang luar biasa dr Mr Kid
Terima kasih ya, semoga Allah SWT membalas kebaikan Mr Kid
Segera saya coba praktekkan.
On Sunday, January 14, 2018, 7:12:21 PM GMT+7, 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
Hai Kiki,
Tentang :
* Penginput data ada 3 orang (Andi, Dian, Dina), dengan komputer berlainan tempat
> Meski input berlainan tempat, ada baiknya save di satu folder yang sama di komputer yang sama
Tentang :
* Bagaimana cara paling efektif agar saya dapat menggabungkan tiga workbook tersebut dalam satu tabel di komputer saya ?
> Jika menggunakan xl2010 ke atas, pakailah Power Query (download dan install untuk xl2010 dan xl2013, pakai untuk xl2016 ke atas)
Tentang :
* Apakah harus menggunakan relasi antar tabel atau cukup dengan append ?
> Append,
> karena Andi, Dian, dan Dina sudah memiliki hubungan yang baik-baik saja, yaitu bekerja sebagai satu tim yang kompak...
> ndak usah repot-repot cari gara-gara membuatkan relasi tambahan diantara mereka,
nanti ndak mereka malah bubar gara-gara ada yang bertepuk sebelah tangan
> lagi pula, apa pantes Celana Dian dijejerken dengan Celana Andi.. ra' ya ndak mungkin to...> yang simpel dan logis saja ya...
nanti ndak sampeyan malah mbulet lan mumet sendiri, karena Underwear Dian tak tertandingi (lha Andi dan Dina gak punya Underwear jeh..)
> mending punyanya masing-masing ditumpuk jadi satu, biar gampang ngirim ke laundry
> oh iya, ndak usah aneh-aneh pengen Merge segala ya> apa iya, kalo Celana Andi diganti dengan Celana Dian saja, dan biarkan Dian gak punya celana.. (ih... saru..)
> So, sudah bisa paham bedanya Append, Merge, dan manfaat Relationship dalam data ? Mestinya bisalah... masak cuman bisa cengar-cengir sendiri kaya lagi gak sehat..
> Sederhananya,
1. Relationship untuk menjejerkan data (sering disebut JOIN) [Celana Dian gak bisa di JOIN dengan Celana Andi kan]
2. Merge untuk mengganti yang lama dan menambahkan yang belum ada [kasihan Dian, baru punya celana baru dah dipakai buat ngganti celana Andi yang dah lama] 3. Append untuk menggabungkan (menumpuk, atau mengumpulkan jadi satu susun, sering disebut UNION ALL) [disusun dari atas ke bawah, biar mbak Inem gampang mbawa ke laundry]
Tentang :
* Append tiga workbook tersebut ke tabel yang berstruktur kolom sama di komputer saya dengan bantuan Power Query
> yak bagus...
Tentang :
Yang jadi masalah, workbook saya yang memuat hasil append query dari 3 workbook tsb file nya menjadi besar
> loh... lha kok tumpukannya ditaruh di meja tamu....> kan mau dibawa ke laundry..> taruhlah di keranjang, biar mbak Inem gampang mbawanya...
kecuali kalo mbak Inem selalu punya pulsa untuk telpon sampeyan nanyain lokasi tumpukannya dimana, maka tumpukannya bisa ditaruh diteras belakang... jadi kan gak bikin sesek n penguk ruangan kantor ya.... biar kantornya tetep fresh gitu, tapi tumpukannya juga sampai ke laundry
> So, Cari wadah yang lebih pantes [Excel data model atau langsung Pivot Cache],
lalu sesuaikan peletakan wadahnya berdasar potensi kelanggengan mbak Inem untuk segera tahu
dimana tumpukannya dan bisa segera membawa ke laundry [Save with workbook atau tidak jika oleh pivot cache, atau biar kompresi Excel Data Model]
Tentang :
lambat ketika proses refresh
> waaa.... lha jelas, mbak inem aja sungkan mau masuk ke ruang tamu kantor... masak petugas laundry harus ngobrol sama tamu kantor yang lagi siriyes mbahas proyek...
kacian mbak Inem, cuma maju mundur maju mundur, masuk gak masuk gak... lah kalo incak incik begitu, ya jadi lama kerjanya si mbak Inem... kapan sampai laundry bawa tumpukannya ya...> coba kalo pas dengan karakter kerja mbak Inem, mesti sampeyan bisa jadi pahlawan...
begitu memahami mbak Inem gitu loh...
Begitu ya...wkwkwkwk....
ngomyangin lainnya aja yuk...1. Kalau pakai xl2007 ke bawah : a. datanya gak banyak (tidak lebih dari 500K per tabel), bisa pakai Get External Data berisi query Union All, lalu dimasukkan langsung ke pivot table b. datanya sedikit (tidak lebih dari 100K per tabel), pakai VBA untuk buka file, lalu copy, trus paste ke workbook kumpulan, masih ok lah c. datanya sangat sedikit, copas value manual atau entri langsung sajah di workbook kumpulan... (kalo betah) d. kalau datanya banyak banget, pakai VBA untuk mengumpulkannya menjadi 1 (satu) bijik text file, lalu ambil dari text file pakai Get External Data
2. Kalau pakai xl2010 ke atas, tapi tidak bisa pakai Power Query n Excel Data Model : >>> seperti kalau pakai xl2007 ke bawah
3. Kalau pakai xl2010 ke atas, bisa pakai power query, tapi gak punya akses ke Excel Data Model :
>>> data yang ada di power query di keluarkan ke worksheet, lalu pakai nomor 1.d.4. Kalau pakai xl2010 ke atas, bisa pakai power query n Excel Data Model : >>> manfaatkan seoptimum mungkin... *** psstt.... bisik-bisik aja ya, ini rahasia... pakai power query, bisa dinamis untuk ngambil dari mana saja (tidak harus dari satu folder), asal ada daftar nama file beserta path-nya. daftarnya nambah, maka yang diambil juga nambah... daftarnya bisa diatur pakai berbagai cara supaya dinamis juga kan.... rahasia loh ya...
udah ah...nanti ndak ditanyain BeExceller, 'Kid Sehat ?':(
Regards,Kid
2018-01-12 14:07 GMT+07:00 kiki tanjung kieki_e@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>:
Dear Teman Teman
Mohon bantuan dan pencerahan untuk kasus berikut :
As usual, sebuah pencerahan dengan logika dan perumpamaan yang luar biasa dr Mr Kid
Terima kasih ya, semoga Allah SWT membalas kebaikan Mr Kid
Segera saya coba praktekkan.
On Sunday, January 14, 2018, 7:12:21 PM GMT+7, 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
Hai Kiki,
Tentang :
* Penginput data ada 3 orang (Andi, Dian, Dina), dengan komputer berlainan tempat
> Meski input berlainan tempat, ada baiknya save di satu folder yang sama di komputer yang sama
Tentang :
* Bagaimana cara paling efektif agar saya dapat menggabungkan tiga workbook tersebut dalam satu tabel di komputer saya ?
> Jika menggunakan xl2010 ke atas, pakailah Power Query (download dan install untuk xl2010 dan xl2013, pakai untuk xl2016 ke atas)
Tentang :
* Apakah harus menggunakan relasi antar tabel atau cukup dengan append ?
> Append,
> karena Andi, Dian, dan Dina sudah memiliki hubungan yang baik-baik saja, yaitu bekerja sebagai satu tim yang kompak...
> ndak usah repot-repot cari gara-gara membuatkan relasi tambahan diantara mereka,
nanti ndak mereka malah bubar gara-gara ada yang bertepuk sebelah tangan
> lagi pula, apa pantes Celana Dian dijejerken dengan Celana Andi.. ra' ya ndak mungkin to...> yang simpel dan logis saja ya...
nanti ndak sampeyan malah mbulet lan mumet sendiri, karena Underwear Dian tak tertandingi (lha Andi dan Dina gak punya Underwear jeh..)
> mending punyanya masing-masing ditumpuk jadi satu, biar gampang ngirim ke laundry
> oh iya, ndak usah aneh-aneh pengen Merge segala ya> apa iya, kalo Celana Andi diganti dengan Celana Dian saja, dan biarkan Dian gak punya celana.. (ih... saru..)
> So, sudah bisa paham bedanya Append, Merge, dan manfaat Relationship dalam data ? Mestinya bisalah... masak cuman bisa cengar-cengir sendiri kaya lagi gak sehat..
> Sederhananya,
1. Relationship untuk menjejerkan data (sering disebut JOIN) [Celana Dian gak bisa di JOIN dengan Celana Andi kan]
2. Merge untuk mengganti yang lama dan menambahkan yang belum ada [kasihan Dian, baru punya celana baru dah dipakai buat ngganti celana Andi yang dah lama] 3. Append untuk menggabungkan (menumpuk, atau mengumpulkan jadi satu susun, sering disebut UNION ALL) [disusun dari atas ke bawah, biar mbak Inem gampang mbawa ke laundry]
Tentang :
* Append tiga workbook tersebut ke tabel yang berstruktur kolom sama di komputer saya dengan bantuan Power Query
> yak bagus...
Tentang :
Yang jadi masalah, workbook saya yang memuat hasil append query dari 3 workbook tsb file nya menjadi besar
> loh... lha kok tumpukannya ditaruh di meja tamu....> kan mau dibawa ke laundry..> taruhlah di keranjang, biar mbak Inem gampang mbawanya...
kecuali kalo mbak Inem selalu punya pulsa untuk telpon sampeyan nanyain lokasi tumpukannya dimana, maka tumpukannya bisa ditaruh diteras belakang... jadi kan gak bikin sesek n penguk ruangan kantor ya.... biar kantornya tetep fresh gitu, tapi tumpukannya juga sampai ke laundry
> So, Cari wadah yang lebih pantes [Excel data model atau langsung Pivot Cache],
lalu sesuaikan peletakan wadahnya berdasar potensi kelanggengan mbak Inem untuk segera tahu
dimana tumpukannya dan bisa segera membawa ke laundry [Save with workbook atau tidak jika oleh pivot cache, atau biar kompresi Excel Data Model]
Tentang :
lambat ketika proses refresh
> waaa.... lha jelas, mbak inem aja sungkan mau masuk ke ruang tamu kantor... masak petugas laundry harus ngobrol sama tamu kantor yang lagi siriyes mbahas proyek...
kacian mbak Inem, cuma maju mundur maju mundur, masuk gak masuk gak... lah kalo incak incik begitu, ya jadi lama kerjanya si mbak Inem... kapan sampai laundry bawa tumpukannya ya...> coba kalo pas dengan karakter kerja mbak Inem, mesti sampeyan bisa jadi pahlawan...
begitu memahami mbak Inem gitu loh...
Begitu ya...wkwkwkwk....
ngomyangin lainnya aja yuk...1. Kalau pakai xl2007 ke bawah : a. datanya gak banyak (tidak lebih dari 500K per tabel), bisa pakai Get External Data berisi query Union All, lalu dimasukkan langsung ke pivot table b. datanya sedikit (tidak lebih dari 100K per tabel), pakai VBA untuk buka file, lalu copy, trus paste ke workbook kumpulan, masih ok lah c. datanya sangat sedikit, copas value manual atau entri langsung sajah di workbook kumpulan... (kalo betah) d. kalau datanya banyak banget, pakai VBA untuk mengumpulkannya menjadi 1 (satu) bijik text file, lalu ambil dari text file pakai Get External Data
2. Kalau pakai xl2010 ke atas, tapi tidak bisa pakai Power Query n Excel Data Model : >>> seperti kalau pakai xl2007 ke bawah
3. Kalau pakai xl2010 ke atas, bisa pakai power query, tapi gak punya akses ke Excel Data Model :
>>> data yang ada di power query di keluarkan ke worksheet, lalu pakai nomor 1.d.4. Kalau pakai xl2010 ke atas, bisa pakai power query n Excel Data Model : >>> manfaatkan seoptimum mungkin... *** psstt.... bisik-bisik aja ya, ini rahasia... pakai power query, bisa dinamis untuk ngambil dari mana saja (tidak harus dari satu folder), asal ada daftar nama file beserta path-nya. daftarnya nambah, maka yang diambil juga nambah... daftarnya bisa diatur pakai berbagai cara supaya dinamis juga kan.... rahasia loh ya...
udah ah...nanti ndak ditanyain BeExceller, 'Kid Sehat ?':(
Regards,Kid
2018-01-12 14:07 GMT+07:00 kiki tanjung kieki_e@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>:
Dear Teman Teman
Mohon bantuan dan pencerahan untuk kasus berikut :
Sun Jan 14, 2018 10:40 pm (PST) . Posted by:
"Tio Adi Bayu Adjie"
Assalamu Alaikum Wr. Wb.
Dear Be-Exceller,
Saya tertarik dengan contoh consolidate terlampir yang diberikan Pak Hendrik sebelumnya tentang Consolidate dengan menarik data dari worksheet lain dengan ADO. Yg mau saya tanyakan.
1. Adakah contoh sederhana tentang import data sederhana (bukan consolidate) dari workbook lain dengan ADO dan dengan DAO ?
2. Apakah ada syarat tertentu, seperti excel versi 2010 atau versi yg lebih tinggi atau bisa dengan versi yang lebih rendah ?
3. Apakah ada reference tertentu yang harus di centang, seperti Microsoft office 14.0 Object Library atau reference lainnya ?
4. Import data mana yang lebih cepat, dengan ADO atau DAO ?
Terima Kasih
Wassalamu alaikum Wr. Wb.
Best Regards,
Tio Adi Bayu Adjie
Dear Be-Exceller,
Saya tertarik dengan contoh consolidate terlampir yang diberikan Pak Hendrik sebelumnya tentang Consolidate dengan menarik data dari worksheet lain dengan ADO. Yg mau saya tanyakan.
1. Adakah contoh sederhana tentang import data sederhana (bukan consolidate) dari workbook lain dengan ADO dan dengan DAO ?
2. Apakah ada syarat tertentu, seperti excel versi 2010 atau versi yg lebih tinggi atau bisa dengan versi yang lebih rendah ?
3. Apakah ada reference tertentu yang harus di centang, seperti Microsoft office 14.0 Object Library atau reference lainnya ?
4. Import data mana yang lebih cepat, dengan ADO atau DAO ?
Terima Kasih
Wassalamu alaikum Wr. Wb.
Best Regards,
Tio Adi Bayu Adjie
Mon Jan 15, 2018 4:56 am (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Wa'alaikumussalam wr wb
Hai Tio,
1. Contoh ADO dan DAO
> File kerja wbkApp.xlsm; File Data E:\wbkDT.xls sheet DATA
hasil di wbkApp.xlsm sheet HASIL, dengan record pertama di range A2
> ADO
'pakai 3 baris berikut jika di VBE -> Tools -> references -> sudah
dipilih Ms ActiveX Data Object versi tetrtinggi yang ada
'>> kalau dicentang sendiri di references, lalu komputer lain tidak
punya, maka akan error.
dim cn as adodb.connection, rs as adodb.recordset,sCon as string, sQ
as string
set cn=new adodb.connection
set rs=new adodb.recordset
'kalau tidak mau repot pakai centang references, pakai 3 baris ini :
[late binding]
'>> untungnya, references selalu dipilihkan yang terbaru oleh OS
dim cn as adodb.connection, rs as adodb.recordset,sCon as string, sQ
as string
set cn=createobject("adodb.connection")
set rs=createobject("adodb.recordset")
'connection string dan query untuk koneksi data
'Connection string : [ganti path dan nama file sesuai kebutuhan] [pilih
salah satu]
scon="Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm,
*.xlsb)};DBQ=E:\wbkDT.xls;" 'driver ODBC (direkomendasikan)
'driver OLEDB,xl2007 ke atas, ganti 8.0 menjadi 12.0, sesuaikan
OLEDB.12.0 dengan yang ada di komputer setempat
scon="Provider=Microsoft.ACE.OLEDB.12.0;Data
Source=E:\wbkDT.xls;Extended Properties=""Excel 8.0;HDR=YES"";"
'query
sq="SELECT a.* FROM [DATA$] as a"
'buka koneksi dan ambil recordset
cn.open scon
rs.open sQ, cn , 1 , 3 '1 : cursor type Open Keyset ; 3 : lock
type Optimistic
'paste ke range a2
sheets("hasil").range("a2").copyfromrecordset rs
'tutup
rs.close
cn.close
'jika perlu cleanup
set rs=nothing
set cn=nothing
> DAO [sangat cepat untuk data MS Access, Excel, dan text file]
'A. *khusus untuk file xl2003 ke bawah saja*
'pastikan referensi yang dicentang adalah Ms Data Access Object terbaru
(3.6 kalo gak salah)
dim db as DAO.database, rs as DAO.recordset
'buka db file dan ambil recordset [sesuaikan nama file]
set db=OpenDatabase( "E:\wbkDT.xls" , false, true , "Excel
8.0;HDR=YES;" ) 'kalau data tidak punya header, set HDR dengan NO,
false : opsi untuk shared mode, true : read only
set rs=db.openrecordset( "DATA$" ) 'nama sheet bisa diganti
query, cursor type juga bisa dtentukan, tapi contoh ini pakai default-nya
'B. untuk file xl2002 ke atas
'pastikan referensi yang dicentang adalah Ms Data Access Object terbaru
(3.6 kalo gak salah)
dim db as DAO.database, rs as DAO.recordset
dim ws as DAO.workspace
'buka db file dan ambil recordset [sesuaikan nama file]
set ws=createworkspace( "" , "" , "" , 1 ) ' nama workspace :
"" , user : "" , pwd : "" , type : odbc [selainnya adalah 2, untuk Jet
(khusus database engine MS Access)
' nama file db atau dsn odbc : "" , options : kosong , readonly :
kosong , connection string
set db=ws.opendatabase( "" , , , "ODBC;Driver={Microsoft Excel
Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};Dbq=E:\wbkDT.xls;" )
set rs=db.openrecordset( "SELECT a.* FROM [DATA$] as a" )
'>langkah selanjutnya<'
'paste ke range a2
sheets("hasil").range("a2").copyfromrecordset rs
'tutup
rs.close
db.close
'jika perlu cleanup
set rs=nothing
set db=nothing
2. Syarat :
> ADO :
a. di komputer telah ter-install dan terregister library Ms ActiveX
Data Objects
b. pilih connection string yang sesuai dengan driver-nya (ODBC atau
OLEDB)
c. bisa semua versi Excel, dengan mengatur nilai parameter pada
bagian ExtendedProperties jika pakai OLE DB
> DAO
a. di komputer telah ter-install dan teregister library Ms Data
Access Object
b. pastikan telah mencentang referensi library Ms Data Access
Object, karena menggunakan on the fly pun sama beresikonya (kalau ADO bisa
lebih luwes)
c. khusus untuk koneksi ke database berupa file seperti MS Access,
textfile, Excel versi 2003 ke bawah (yang di-save as versi 2003 ke bawah),
pakai cara A
d. khusus untuk koneksi ke database berupa file seperti MS Access,
textfile, Excel versi 2002 ke atas (yang di-save as sesuai versinya), pakai
cara B
3. Referensi yang harus dicentang bisa dilihat di nomor 1 dan nomor 2. ADO
berpotensi tidak perlu mencentang, yaitu dengan createobject (lihat nomor 1)
4. Kecepatan :
DAO lebih cepat dari ADO ketika mengkoneksi MS Access, Text File, dan
Excel
ADO secara umum lebih cepat dari DAO ketika mengkoneksi DBMS Oracle,
MS SQL Server, MySQL, dan beberapa DBMS lain
umumnya yang digunakan adalah ADO dengan driver ODBC. Untuk ADO
dengan driver OLE DB ke produk Ms SQL Server lebih cepat dibanding ODBC
kecuali saat mengeksekusi stored procedure
Wassalamu'alaikum wr wb
Kid
2018-01-15 11:45 GMT+07:00 Tio Adi Bayu Adjie tio.adjie@ptssb.co.id
[belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> Assalamu Alaikum Wr. Wb.
>
>
>
> Dear Be-Exceller,
>
> Saya tertarik dengan contoh consolidate terlampir yang diberikan Pak
> Hendrik sebelumnya tentang Consolidate dengan menarik data dari worksheet
> lain dengan ADO. Yg mau saya tanyakan.
>
> 1. Adakah contoh sederhana tentang import data sederhana (bukan
> consolidate) dari workbook lain dengan ADO dan dengan DAO ?
>
> 2. Apakah ada syarat tertentu, seperti excel versi 2010 atau versi
> yg lebih tinggi atau bisa dengan versi yang lebih rendah ?
>
> 3. Apakah ada reference tertentu yang harus di centang, seperti
> Microsoft office 14.0 Object Library atau reference lainnya ?
>
> 4. Import data mana yang lebih cepat, dengan ADO atau DAO ?
>
>
>
>
>
> *Terima Kasih *
>
> *Wassalamu alaikum Wr. Wb.*
>
>
>
> *Best Regards,*
>
> Tio Adi Bayu Adjie
>
>
>
>
>
Hai Tio,
1. Contoh ADO dan DAO
> File kerja wbkApp.xlsm; File Data E:\wbkDT.xls sheet DATA
hasil di wbkApp.xlsm sheet HASIL, dengan record pertama di range A2
> ADO
'pakai 3 baris berikut jika di VBE -> Tools -> references -> sudah
dipilih Ms ActiveX Data Object versi tetrtinggi yang ada
'>> kalau dicentang sendiri di references, lalu komputer lain tidak
punya, maka akan error.
dim cn as adodb.connection, rs as adodb.recordset,sCon as string, sQ
as string
set cn=new adodb.connection
set rs=new adodb.recordset
'kalau tidak mau repot pakai centang references, pakai 3 baris ini :
[late binding]
'>> untungnya, references selalu dipilihkan yang terbaru oleh OS
dim cn as adodb.connection, rs as adodb.recordset,sCon as string, sQ
as string
set cn=createobject("adodb.connection")
set rs=createobject("adodb.recordset")
'connection string dan query untuk koneksi data
'Connection string : [ganti path dan nama file sesuai kebutuhan] [pilih
salah satu]
scon="Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm,
*.xlsb)};DBQ=E:\wbkDT.xls;" 'driver ODBC (direkomendasikan)
'driver OLEDB,xl2007 ke atas, ganti 8.0 menjadi 12.0, sesuaikan
OLEDB.12.0 dengan yang ada di komputer setempat
scon="Provider=Microsoft.ACE.OLEDB.12.0;Data
Source=E:\wbkDT.xls;Extended Properties=""Excel 8.0;HDR=YES"";"
'query
sq="SELECT a.* FROM [DATA$] as a"
'buka koneksi dan ambil recordset
cn.open scon
rs.open sQ, cn , 1 , 3 '1 : cursor type Open Keyset ; 3 : lock
type Optimistic
'paste ke range a2
sheets("hasil").range("a2").copyfromrecordset rs
'tutup
rs.close
cn.close
'jika perlu cleanup
set rs=nothing
set cn=nothing
> DAO [sangat cepat untuk data MS Access, Excel, dan text file]
'A. *khusus untuk file xl2003 ke bawah saja*
'pastikan referensi yang dicentang adalah Ms Data Access Object terbaru
(3.6 kalo gak salah)
dim db as DAO.database, rs as DAO.recordset
'buka db file dan ambil recordset [sesuaikan nama file]
set db=OpenDatabase( "E:\wbkDT.xls" , false, true , "Excel
8.0;HDR=YES;" ) 'kalau data tidak punya header, set HDR dengan NO,
false : opsi untuk shared mode, true : read only
set rs=db.openrecordset( "DATA$" ) 'nama sheet bisa diganti
query, cursor type juga bisa dtentukan, tapi contoh ini pakai default-nya
'B. untuk file xl2002 ke atas
'pastikan referensi yang dicentang adalah Ms Data Access Object terbaru
(3.6 kalo gak salah)
dim db as DAO.database, rs as DAO.recordset
dim ws as DAO.workspace
'buka db file dan ambil recordset [sesuaikan nama file]
set ws=createworkspace( "" , "" , "" , 1 ) ' nama workspace :
"" , user : "" , pwd : "" , type : odbc [selainnya adalah 2, untuk Jet
(khusus database engine MS Access)
' nama file db atau dsn odbc : "" , options : kosong , readonly :
kosong , connection string
set db=ws.opendatabase( "" , , , "ODBC;Driver={Microsoft Excel
Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};Dbq=E:\wbkDT.xls;" )
set rs=db.openrecordset( "SELECT a.* FROM [DATA$] as a" )
'>langkah selanjutnya<'
'paste ke range a2
sheets("hasil").range("a2").copyfromrecordset rs
'tutup
rs.close
db.close
'jika perlu cleanup
set rs=nothing
set db=nothing
2. Syarat :
> ADO :
a. di komputer telah ter-install dan terregister library Ms ActiveX
Data Objects
b. pilih connection string yang sesuai dengan driver-nya (ODBC atau
OLEDB)
c. bisa semua versi Excel, dengan mengatur nilai parameter pada
bagian ExtendedProperties jika pakai OLE DB
> DAO
a. di komputer telah ter-install dan teregister library Ms Data
Access Object
b. pastikan telah mencentang referensi library Ms Data Access
Object, karena menggunakan on the fly pun sama beresikonya (kalau ADO bisa
lebih luwes)
c. khusus untuk koneksi ke database berupa file seperti MS Access,
textfile, Excel versi 2003 ke bawah (yang di-save as versi 2003 ke bawah),
pakai cara A
d. khusus untuk koneksi ke database berupa file seperti MS Access,
textfile, Excel versi 2002 ke atas (yang di-save as sesuai versinya), pakai
cara B
3. Referensi yang harus dicentang bisa dilihat di nomor 1 dan nomor 2. ADO
berpotensi tidak perlu mencentang, yaitu dengan createobject (lihat nomor 1)
4. Kecepatan :
DAO lebih cepat dari ADO ketika mengkoneksi MS Access, Text File, dan
Excel
ADO secara umum lebih cepat dari DAO ketika mengkoneksi DBMS Oracle,
MS SQL Server, MySQL, dan beberapa DBMS lain
umumnya yang digunakan adalah ADO dengan driver ODBC. Untuk ADO
dengan driver OLE DB ke produk Ms SQL Server lebih cepat dibanding ODBC
kecuali saat mengeksekusi stored procedure
Wassalamu'alaikum wr wb
Kid
2018-01-15 11:45 GMT+07:00 Tio Adi Bayu Adjie tio.adjie@ptssb.co.id
[belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> Assalamu Alaikum Wr. Wb.
>
>
>
> Dear Be-Exceller,
>
> Saya tertarik dengan contoh consolidate terlampir yang diberikan Pak
> Hendrik sebelumnya tentang Consolidate dengan menarik data dari worksheet
> lain dengan ADO. Yg mau saya tanyakan.
>
> 1. Adakah contoh sederhana tentang import data sederhana (bukan
> consolidate) dari workbook lain dengan ADO dan dengan DAO ?
>
> 2. Apakah ada syarat tertentu, seperti excel versi 2010 atau versi
> yg lebih tinggi atau bisa dengan versi yang lebih rendah ?
>
> 3. Apakah ada reference tertentu yang harus di centang, seperti
> Microsoft office 14.0 Object Library atau reference lainnya ?
>
> 4. Import data mana yang lebih cepat, dengan ADO atau DAO ?
>
>
>
>
>
> *Terima Kasih *
>
> *Wassalamu alaikum Wr. Wb.*
>
>
>
> *Best Regards,*
>
> Tio Adi Bayu Adjie
>
>
>
>
>
Tue Jan 16, 2018 2:15 am (PST) . Posted by:
"hendrik karnadi" hendrikkarnadi
Terima kasih Mr. Kid atas penjelasannya yang tidak mudah kami dapatkan dari internet.
Sebagian Code dari file yang saya kirim terdahulu, "scon" nya (huruf miring berrwarna) ada tambahan "Xml" di belakang versi Excel (Excel 12.0),cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & _ "Data Source=" & ThisWorkbook.FullName & ";" & _ "Extended Properties=""Excel 12.0 Xml;HDR=YES"";"Saya menggunakan Excel 2013.
Yang ingin saya tanyakan:Apa fungsi "Xml" di sini ?
Terima kasih.
Salam,HK
On Monday, 15 January 2018, 7:56:38 PM GMT+7, 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
Wa'alaikumussalam wr wb
Hai Tio,
1. Contoh ADO dan DAO
> File kerja wbkApp.xlsm; File Data E:\wbkDT.xls sheet DATA
hasil di wbkApp.xlsm sheet HASIL, dengan record pertama di range A2> ADO
'pakai 3 baris berikut jika di VBE -> Tools -> references -> sudah dipilih Ms ActiveX Data Object versi tetrtinggi yang ada '>> kalau dicentang sendiri di references, lalu komputer lain tidak punya, maka akan error.
dim cn as adodb.connection, rs as adodb.recordset,sCon as string, sQ as string
set cn=new adodb.connection set rs=new adodb.recordset
'kalau tidak mau repot pakai centang references, pakai 3 baris ini : [late binding] '>> untungnya, references selalu dipilihkan yang terbaru oleh OS
dim cn as adodb.connection, rs as adodb.recordset,sCon as string, sQ as string set cn=createobject("adodb.connection") set rs=createobject("adodb.recordset")
'connection string dan query untuk koneksi data 'Connection string : [ganti path dan nama file sesuai kebutuhan] [pilih salah satu]
scon="Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};DBQ=E:\wbkDT.xls;" 'driver ODBC (direkomendasikan)
'driver OLEDB,xl2007 ke atas, ganti 8.0 menjadi 12.0, sesuaikan OLEDB.12.0 dengan yang ada di komputer setempat scon="Provider=Microsoft.ACE.OLEDB.12.0;Data Source=E:\wbkDT.xls;Extended Properties=""Excel 8.0;HDR=YES"";"
'query sq="SELECT a.* FROM [DATA$] as a"
'buka koneksi dan ambil recordset cn.open scon rs.open sQ, cn , 1 , 3 '1 : cursor type Open Keyset ; 3 : lock type Optimistic
'paste ke range a2 sheets("hasil").range("a2").copyfromrecordset rs
'tutup rs.close cn.close
'jika perlu cleanup set rs=nothing set cn=nothing
> DAO [sangat cepat untuk data MS Access, Excel, dan text file] 'A. khusus untuk file xl2003 ke bawah saja
'pastikan referensi yang dicentang adalah Ms Data Access Object terbaru (3.6 kalo gak salah)
dim db as DAO.database, rs as DAO.recordset
'buka db file dan ambil recordset [sesuaikan nama file]
set db=OpenDatabase( "E:\wbkDT.xls" , false, true , "Excel 8.0;HDR=YES;" ) 'kalau data tidak punya header, set HDR dengan NO, false : opsi untuk shared mode, true : read only set rs=db.openrecordset( "DATA$" ) 'nama sheet bisa diganti query, cursor type juga bisa dtentukan, tapi contoh ini pakai default-nya
'B. untuk file xl2002 ke atas
'pastikan referensi yang dicentang adalah Ms Data Access Object terbaru (3.6 kalo gak salah)
dim db as DAO.database, rs as DAO.recordset
dim ws as DAO.workspace
'buka db file dan ambil recordset [sesuaikan nama file]
set ws=createworkspace( "" , "" , "" , 1 ) ' nama workspace : "" , user : "" , pwd : "" , type : odbc [selainnya adalah 2, untuk Jet (khusus database engine MS Access)
' nama file db atau dsn odbc : "" , options : kosong , readonly : kosong , connection string set db=ws.opendatabase( "" , , , "ODBC;Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};Dbq=E:\wbkDT.xls;" )
set rs=db..openrecordset( "SELECT a.* FROM [DATA$] as a" )
'>langkah selanjutnya<'
'paste ke range a2 sheets("hasil").range("a2").copyfromrecordset rs
'tutup rs.close db.close
'jika perlu cleanup set rs=nothing set db=nothing
2. Syarat : > ADO :
a. di komputer telah ter-install dan terregister library Ms ActiveX Data Objects b. pilih connection string yang sesuai dengan driver-nya (ODBC atau OLEDB)
c. bisa semua versi Excel, dengan mengatur nilai parameter pada bagian ExtendedProperties jika pakai OLE DB> DAO a. di komputer telah ter-install dan teregister library Ms Data Access Object b. pastikan telah mencentang referensi library Ms Data Access Object, karena menggunakan on the fly pun sama beresikonya (kalau ADO bisa lebih luwes)
c. khusus untuk koneksi ke database berupa file seperti MS Access, textfile, Excel versi 2003 ke bawah (yang di-save as versi 2003 ke bawah), pakai cara A
d. khusus untuk koneksi ke database berupa file seperti MS Access, textfile, Excel versi 2002 ke atas (yang di-save as sesuai versinya), pakai cara B
3. Referensi yang harus dicentang bisa dilihat di nomor 1 dan nomor 2. ADO berpotensi tidak perlu mencentang, yaitu dengan createobject (lihat nomor 1)
4. Kecepatan : DAO lebih cepat dari ADO ketika mengkoneksi MS Access, Text File, dan Excel
ADO secara umum lebih cepat dari DAO ketika mengkoneksi DBMS Oracle, MS SQL Server, MySQL, dan beberapa DBMS lain umumnya yang digunakan adalah ADO dengan driver ODBC. Untuk ADO dengan driver OLE DB ke produk Ms SQL Server lebih cepat dibanding ODBC kecuali saat mengeksekusi stored procedure
Wassalamu'alaikum wr wbKid
2018-01-15 11:45 GMT+07:00 Tio Adi Bayu Adjie tio.adjie@ptssb.co.id [belajar-excel] <belajar-excel@yahoogroups.com>:
Assalamu Alaikum Wr. Wb.
Dear Be-Exceller,
Saya tertarik dengan contoh consolidate terlampir yang diberikan Pak Hendrik sebelumnya tentang Consolidate dengan menarik data dari worksheet lain dengan ADO. Yg mau saya tanyakan.
1. Adakah contoh sederhana tentang import data sederhana (bukan consolidate) dari workbook lain dengan ADO dan dengan DAO ?
2. Apakah ada syarat tertentu, seperti excel versi 2010 atau versi yg lebih tinggi atau bisa dengan versi yang lebih rendah ?
3. Apakah ada reference tertentu yang harus di centang, seperti Microsoft office 14.0 Object Library atau reference lainnya ?
4. Import data mana yang lebih cepat, dengan ADO atau DAO ?
Terima Kasih
Wassalamu alaikum Wr. Wb.
Best Regards,
Tio Adi Bayu Adjie
Sebagian Code dari file yang saya kirim terdahulu, "scon" nya (huruf miring berrwarna) ada tambahan "Xml" di belakang versi Excel (Excel 12.0),cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & _ "Data Source=" & ThisWorkbook.FullName & ";" & _ "Extended Properties=""Excel 12.0 Xml;HDR=YES"";"Saya menggunakan Excel 2013.
Yang ingin saya tanyakan:Apa fungsi "Xml" di sini ?
Terima kasih.
Salam,HK
On Monday, 15 January 2018, 7:56:38 PM GMT+7, 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
Wa'alaikumussalam wr wb
Hai Tio,
1. Contoh ADO dan DAO
> File kerja wbkApp.xlsm; File Data E:\wbkDT.xls sheet DATA
hasil di wbkApp.xlsm sheet HASIL, dengan record pertama di range A2> ADO
'pakai 3 baris berikut jika di VBE -> Tools -> references -> sudah dipilih Ms ActiveX Data Object versi tetrtinggi yang ada '>> kalau dicentang sendiri di references, lalu komputer lain tidak punya, maka akan error.
dim cn as adodb.connection, rs as adodb.recordset,sCon as string, sQ as string
set cn=new adodb.connection set rs=new adodb.recordset
'kalau tidak mau repot pakai centang references, pakai 3 baris ini : [late binding] '>> untungnya, references selalu dipilihkan yang terbaru oleh OS
dim cn as adodb.connection, rs as adodb.recordset,sCon as string, sQ as string set cn=createobject("adodb.connection") set rs=createobject("adodb.recordset")
'connection string dan query untuk koneksi data 'Connection string : [ganti path dan nama file sesuai kebutuhan] [pilih salah satu]
scon="Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};DBQ=E:\wbkDT.xls;" 'driver ODBC (direkomendasikan)
'driver OLEDB,xl2007 ke atas, ganti 8.0 menjadi 12.0, sesuaikan OLEDB.12.0 dengan yang ada di komputer setempat scon="Provider=Microsoft.ACE.OLEDB.12.0;Data Source=E:\wbkDT.xls;Extended Properties=""Excel 8.0;HDR=YES"";"
'query sq="SELECT a.* FROM [DATA$] as a"
'buka koneksi dan ambil recordset cn.open scon rs.open sQ, cn , 1 , 3 '1 : cursor type Open Keyset ; 3 : lock type Optimistic
'paste ke range a2 sheets("hasil").range("a2").copyfromrecordset rs
'tutup rs.close cn.close
'jika perlu cleanup set rs=nothing set cn=nothing
> DAO [sangat cepat untuk data MS Access, Excel, dan text file] 'A. khusus untuk file xl2003 ke bawah saja
'pastikan referensi yang dicentang adalah Ms Data Access Object terbaru (3.6 kalo gak salah)
dim db as DAO.database, rs as DAO.recordset
'buka db file dan ambil recordset [sesuaikan nama file]
set db=OpenDatabase( "E:\wbkDT.xls" , false, true , "Excel 8.0;HDR=YES;" ) 'kalau data tidak punya header, set HDR dengan NO, false : opsi untuk shared mode, true : read only set rs=db.openrecordset( "DATA$" ) 'nama sheet bisa diganti query, cursor type juga bisa dtentukan, tapi contoh ini pakai default-nya
'B. untuk file xl2002 ke atas
'pastikan referensi yang dicentang adalah Ms Data Access Object terbaru (3.6 kalo gak salah)
dim db as DAO.database, rs as DAO.recordset
dim ws as DAO.workspace
'buka db file dan ambil recordset [sesuaikan nama file]
set ws=createworkspace( "" , "" , "" , 1 ) ' nama workspace : "" , user : "" , pwd : "" , type : odbc [selainnya adalah 2, untuk Jet (khusus database engine MS Access)
' nama file db atau dsn odbc : "" , options : kosong , readonly : kosong , connection string set db=ws.opendatabase( "" , , , "ODBC;Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};Dbq=E:\wbkDT.xls;" )
set rs=db..openrecordset( "SELECT a.* FROM [DATA$] as a" )
'>langkah selanjutnya<'
'paste ke range a2 sheets("hasil").range("a2").copyfromrecordset rs
'tutup rs.close db.close
'jika perlu cleanup set rs=nothing set db=nothing
2. Syarat : > ADO :
a. di komputer telah ter-install dan terregister library Ms ActiveX Data Objects b. pilih connection string yang sesuai dengan driver-nya (ODBC atau OLEDB)
c. bisa semua versi Excel, dengan mengatur nilai parameter pada bagian ExtendedProperties jika pakai OLE DB> DAO a. di komputer telah ter-install dan teregister library Ms Data Access Object b. pastikan telah mencentang referensi library Ms Data Access Object, karena menggunakan on the fly pun sama beresikonya (kalau ADO bisa lebih luwes)
c. khusus untuk koneksi ke database berupa file seperti MS Access, textfile, Excel versi 2003 ke bawah (yang di-save as versi 2003 ke bawah), pakai cara A
d. khusus untuk koneksi ke database berupa file seperti MS Access, textfile, Excel versi 2002 ke atas (yang di-save as sesuai versinya), pakai cara B
3. Referensi yang harus dicentang bisa dilihat di nomor 1 dan nomor 2. ADO berpotensi tidak perlu mencentang, yaitu dengan createobject (lihat nomor 1)
4. Kecepatan : DAO lebih cepat dari ADO ketika mengkoneksi MS Access, Text File, dan Excel
ADO secara umum lebih cepat dari DAO ketika mengkoneksi DBMS Oracle, MS SQL Server, MySQL, dan beberapa DBMS lain umumnya yang digunakan adalah ADO dengan driver ODBC. Untuk ADO dengan driver OLE DB ke produk Ms SQL Server lebih cepat dibanding ODBC kecuali saat mengeksekusi stored procedure
Wassalamu'alaikum wr wbKid
2018-01-15 11:45 GMT+07:00 Tio Adi Bayu Adjie tio.adjie@ptssb.co.id [belajar-excel] <belajar-excel@yahoogroups.com>:
Assalamu Alaikum Wr. Wb.
Dear Be-Exceller,
Saya tertarik dengan contoh consolidate terlampir yang diberikan Pak Hendrik sebelumnya tentang Consolidate dengan menarik data dari worksheet lain dengan ADO. Yg mau saya tanyakan.
1. Adakah contoh sederhana tentang import data sederhana (bukan consolidate) dari workbook lain dengan ADO dan dengan DAO ?
2. Apakah ada syarat tertentu, seperti excel versi 2010 atau versi yg lebih tinggi atau bisa dengan versi yang lebih rendah ?
3. Apakah ada reference tertentu yang harus di centang, seperti Microsoft office 14.0 Object Library atau reference lainnya ?
4. Import data mana yang lebih cepat, dengan ADO atau DAO ?
Terima Kasih
Wassalamu alaikum Wr. Wb.
Best Regards,
Tio Adi Bayu Adjie
Tue Jan 16, 2018 2:24 am (PST) . Posted by:
"Tio Adi Bayu Adjie"
Terima kasih jawabannya Mr. Kid.
Mr. Kid, bagaimana memodif sql sintax sq="SELECT a.* FROM [DATA$] as a" sehingga datanya tertentu seperti range ("A5:F20") ? Karena kalau sintax yang dikasih, datanya yang terambil semua data yang ada di worksheet itu.
Terima kasih.
Best Regards,
Tio Adi Bayu Adjie
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: Monday, January 15, 2018 7:56 PM
To: BeExcel
Subject: Re: [belajar-excel] Mengisi data dengan ADO atau DAO
Wa'alaikumussalam wr wb
Hai Tio,
1. Contoh ADO dan DAO
> File kerja wbkApp.xlsm; File Data E:\wbkDT.xls sheet DATA
hasil di wbkApp.xlsm sheet HASIL, dengan record pertama di range A2
> ADO
'pakai 3 baris berikut jika di VBE -> Tools -> references -> sudah dipilih Ms ActiveX Data Object versi tetrtinggi yang ada
'>> kalau dicentang sendiri di references, lalu komputer lain tidak punya, maka akan error.
dim cn as adodb.connection, rs as adodb.recordset,sCon as string, sQ as string
set cn=new adodb.connection
set rs=new adodb.recordset
'kalau tidak mau repot pakai centang references, pakai 3 baris ini : [late binding]
'>> untungnya, references selalu dipilihkan yang terbaru oleh OS
dim cn as adodb.connection, rs as adodb.recordset,sCon as string, sQ as string
set cn=createobject("adodb.connection")
set rs=createobject("adodb.recordset")
'connection string dan query untuk koneksi data
'Connection string : [ganti path dan nama file sesuai kebutuhan] [pilih salah satu]
scon="Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};DBQ=E:\wbkDT.xls;" 'driver ODBC (direkomendasikan)
'driver OLEDB,xl2007 ke atas, ganti 8.0 menjadi 12.0, sesuaikan OLEDB.12.0 dengan yang ada di komputer setempat
scon="Provider=Microsoft.ACE.OLEDB.12.0;Data Source=E:\wbkDT.xls;Extended Properties=""Excel 8.0;HDR=YES"";"
'query
sq="SELECT a.* FROM [DATA$] as a"
'buka koneksi dan ambil recordset
cn.open scon
rs.open sQ, cn , 1 , 3 '1 : cursor type Open Keyset ; 3 : lock type Optimistic
'paste ke range a2
sheets("hasil").range("a2").copyfromrecordset rs
'tutup
rs.close
cn.close
'jika perlu cleanup
set rs=nothing
set cn=nothing
> DAO [sangat cepat untuk data MS Access, Excel, dan text file]
'A. khusus untuk file xl2003 ke bawah saja
'pastikan referensi yang dicentang adalah Ms Data Access Object terbaru (3.6 kalo gak salah)
dim db as DAO.database, rs as DAO.recordset
'buka db file dan ambil recordset [sesuaikan nama file]
set db=OpenDatabase( "E:\wbkDT.xls" , false, true , "Excel 8.0;HDR=YES;" ) 'kalau data tidak punya header, set HDR dengan NO, false : opsi untuk shared mode, true : read only
set rs=db.openrecordset( "DATA$" ) 'nama sheet bisa diganti query, cursor type juga bisa dtentukan, tapi contoh ini pakai default-nya
'B. untuk file xl2002 ke atas
'pastikan referensi yang dicentang adalah Ms Data Access Object terbaru (3.6 kalo gak salah)
dim db as DAO.database, rs as DAO.recordset
dim ws as DAO.workspace
'buka db file dan ambil recordset [sesuaikan nama file]
set ws=createworkspace( "" , "" , "" , 1 ) ' nama workspace : "" , user : "" , pwd : "" , type : odbc [selainnya adalah 2, untuk Jet (khusus database engine MS Access)
' nama file db atau dsn odbc : "" , options : kosong , readonly : kosong , connection string
set db=ws.opendatabase( "" , , , "ODBC;Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};Dbq=E:\wbkDT..xls;" )
set rs=db..openrecordset( "SELECT a.* FROM [DATA$] as a" )
'>langkah selanjutnya<'
'paste ke range a2
sheets("hasil").range("a2").copyfromrecordset rs
'tutup
rs.close
db.close
'jika perlu cleanup
set rs=nothing
set db=nothing
2. Syarat :
> ADO :
a. di komputer telah ter-install dan terregister library Ms ActiveX Data Objects
b. pilih connection string yang sesuai dengan driver-nya (ODBC atau OLEDB)
c. bisa semua versi Excel, dengan mengatur nilai parameter pada bagian ExtendedProperties jika pakai OLE DB
> DAO
a. di komputer telah ter-install dan teregister library Ms Data Access Object
b. pastikan telah mencentang referensi library Ms Data Access Object, karena menggunakan on the fly pun sama beresikonya (kalau ADO bisa lebih luwes)
c. khusus untuk koneksi ke database berupa file seperti MS Access, textfile, Excel versi 2003 ke bawah (yang di-save as versi 2003 ke bawah), pakai cara A
d. khusus untuk koneksi ke database berupa file seperti MS Access, textfile, Excel versi 2002 ke atas (yang di-save as sesuai versinya), pakai cara B
3. Referensi yang harus dicentang bisa dilihat di nomor 1 dan nomor 2. ADO berpotensi tidak perlu mencentang, yaitu dengan createobject (lihat nomor 1)
4. Kecepatan :
DAO lebih cepat dari ADO ketika mengkoneksi MS Access, Text File, dan Excel
ADO secara umum lebih cepat dari DAO ketika mengkoneksi DBMS Oracle, MS SQL Server, MySQL, dan beberapa DBMS lain
umumnya yang digunakan adalah ADO dengan driver ODBC. Untuk ADO dengan driver OLE DB ke produk Ms SQL Server lebih cepat dibanding ODBC kecuali saat mengeksekusi stored procedure
Wassalamu'alaikum wr wb
Kid
2018-01-15 11:45 GMT+07:00 Tio Adi Bayu Adjie tio.adjie@ptssb.co.id<mailto:tio.adjie@ptssb.co.id> [belajar-excel] <belajar-excel@yahoogroups.com<mailto:belajar-excel@yahoogroups.com>>:
Assalamu Alaikum Wr. Wb.
Dear Be-Exceller,
Saya tertarik dengan contoh consolidate terlampir yang diberikan Pak Hendrik sebelumnya tentang Consolidate dengan menarik data dari worksheet lain dengan ADO. Yg mau saya tanyakan.
1. Adakah contoh sederhana tentang import data sederhana (bukan consolidate) dari workbook lain dengan ADO dan dengan DAO ?
2. Apakah ada syarat tertentu, seperti excel versi 2010 atau versi yg lebih tinggi atau bisa dengan versi yang lebih rendah ?
3. Apakah ada reference tertentu yang harus di centang, seperti Microsoft office 14.0 Object Library atau reference lainnya ?
4. Import data mana yang lebih cepat, dengan ADO atau DAO ?
Terima Kasih
Wassalamu alaikum Wr. Wb.
Best Regards,
Tio Adi Bayu Adjie
Mr. Kid, bagaimana memodif sql sintax sq="SELECT a.* FROM [DATA$] as a" sehingga datanya tertentu seperti range ("A5:F20") ? Karena kalau sintax yang dikasih, datanya yang terambil semua data yang ada di worksheet itu.
Terima kasih.
Best Regards,
Tio Adi Bayu Adjie
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: Monday, January 15, 2018 7:56 PM
To: BeExcel
Subject: Re: [belajar-excel] Mengisi data dengan ADO atau DAO
Wa'alaikumussalam wr wb
Hai Tio,
1. Contoh ADO dan DAO
> File kerja wbkApp.xlsm; File Data E:\wbkDT.xls sheet DATA
hasil di wbkApp.xlsm sheet HASIL, dengan record pertama di range A2
> ADO
'pakai 3 baris berikut jika di VBE -> Tools -> references -> sudah dipilih Ms ActiveX Data Object versi tetrtinggi yang ada
'>> kalau dicentang sendiri di references, lalu komputer lain tidak punya, maka akan error.
dim cn as adodb.connection, rs as adodb.recordset,sCon as string, sQ as string
set cn=new adodb.connection
set rs=new adodb.recordset
'kalau tidak mau repot pakai centang references, pakai 3 baris ini : [late binding]
'>> untungnya, references selalu dipilihkan yang terbaru oleh OS
dim cn as adodb.connection, rs as adodb.recordset,sCon as string, sQ as string
set cn=createobject("adodb.connection")
set rs=createobject("adodb.recordset")
'connection string dan query untuk koneksi data
'Connection string : [ganti path dan nama file sesuai kebutuhan] [pilih salah satu]
scon="Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};DBQ=E:\wbkDT.xls;" 'driver ODBC (direkomendasikan)
'driver OLEDB,xl2007 ke atas, ganti 8.0 menjadi 12.0, sesuaikan OLEDB.12.0 dengan yang ada di komputer setempat
scon="Provider=Microsoft.ACE.OLEDB.12.0;Data Source=E:\wbkDT.xls;Extended Properties=""Excel 8.0;HDR=YES"";"
'query
sq="SELECT a.* FROM [DATA$] as a"
'buka koneksi dan ambil recordset
cn.open scon
rs.open sQ, cn , 1 , 3 '1 : cursor type Open Keyset ; 3 : lock type Optimistic
'paste ke range a2
sheets("hasil").range("a2").copyfromrecordset rs
'tutup
rs.close
cn.close
'jika perlu cleanup
set rs=nothing
set cn=nothing
> DAO [sangat cepat untuk data MS Access, Excel, dan text file]
'A. khusus untuk file xl2003 ke bawah saja
'pastikan referensi yang dicentang adalah Ms Data Access Object terbaru (3.6 kalo gak salah)
dim db as DAO.database, rs as DAO.recordset
'buka db file dan ambil recordset [sesuaikan nama file]
set db=OpenDatabase( "E:\wbkDT.xls" , false, true , "Excel 8.0;HDR=YES;" ) 'kalau data tidak punya header, set HDR dengan NO, false : opsi untuk shared mode, true : read only
set rs=db.openrecordset( "DATA$" ) 'nama sheet bisa diganti query, cursor type juga bisa dtentukan, tapi contoh ini pakai default-nya
'B. untuk file xl2002 ke atas
'pastikan referensi yang dicentang adalah Ms Data Access Object terbaru (3.6 kalo gak salah)
dim db as DAO.database, rs as DAO.recordset
dim ws as DAO.workspace
'buka db file dan ambil recordset [sesuaikan nama file]
set ws=createworkspace( "" , "" , "" , 1 ) ' nama workspace : "" , user : "" , pwd : "" , type : odbc [selainnya adalah 2, untuk Jet (khusus database engine MS Access)
' nama file db atau dsn odbc : "" , options : kosong , readonly : kosong , connection string
set db=ws.opendatabase( "" , , , "ODBC;Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};Dbq=E:\wbkDT..xls;" )
set rs=db..openrecordset( "SELECT a.* FROM [DATA$] as a" )
'>langkah selanjutnya<'
'paste ke range a2
sheets("hasil").range("a2").copyfromrecordset rs
'tutup
rs.close
db.close
'jika perlu cleanup
set rs=nothing
set db=nothing
2. Syarat :
> ADO :
a. di komputer telah ter-install dan terregister library Ms ActiveX Data Objects
b. pilih connection string yang sesuai dengan driver-nya (ODBC atau OLEDB)
c. bisa semua versi Excel, dengan mengatur nilai parameter pada bagian ExtendedProperties jika pakai OLE DB
> DAO
a. di komputer telah ter-install dan teregister library Ms Data Access Object
b. pastikan telah mencentang referensi library Ms Data Access Object, karena menggunakan on the fly pun sama beresikonya (kalau ADO bisa lebih luwes)
c. khusus untuk koneksi ke database berupa file seperti MS Access, textfile, Excel versi 2003 ke bawah (yang di-save as versi 2003 ke bawah), pakai cara A
d. khusus untuk koneksi ke database berupa file seperti MS Access, textfile, Excel versi 2002 ke atas (yang di-save as sesuai versinya), pakai cara B
3. Referensi yang harus dicentang bisa dilihat di nomor 1 dan nomor 2. ADO berpotensi tidak perlu mencentang, yaitu dengan createobject (lihat nomor 1)
4. Kecepatan :
DAO lebih cepat dari ADO ketika mengkoneksi MS Access, Text File, dan Excel
ADO secara umum lebih cepat dari DAO ketika mengkoneksi DBMS Oracle, MS SQL Server, MySQL, dan beberapa DBMS lain
umumnya yang digunakan adalah ADO dengan driver ODBC. Untuk ADO dengan driver OLE DB ke produk Ms SQL Server lebih cepat dibanding ODBC kecuali saat mengeksekusi stored procedure
Wassalamu'alaikum wr wb
Kid
2018-01-15 11:45 GMT+07:00 Tio Adi Bayu Adjie tio.adjie@ptssb.co.id<mailto:tio.adjie@ptssb.co.id> [belajar-excel] <belajar-excel@yahoogroups.com<mailto:belajar-excel@yahoogroups.com>>:
Assalamu Alaikum Wr. Wb.
Dear Be-Exceller,
Saya tertarik dengan contoh consolidate terlampir yang diberikan Pak Hendrik sebelumnya tentang Consolidate dengan menarik data dari worksheet lain dengan ADO. Yg mau saya tanyakan.
1. Adakah contoh sederhana tentang import data sederhana (bukan consolidate) dari workbook lain dengan ADO dan dengan DAO ?
2. Apakah ada syarat tertentu, seperti excel versi 2010 atau versi yg lebih tinggi atau bisa dengan versi yang lebih rendah ?
3. Apakah ada reference tertentu yang harus di centang, seperti Microsoft office 14.0 Object Library atau reference lainnya ?
4. Import data mana yang lebih cepat, dengan ADO atau DAO ?
Terima Kasih
Wassalamu alaikum Wr. Wb.
Best Regards,
Tio Adi Bayu Adjie
Mon Jan 15, 2018 9:56 pm (PST) . Posted by:
"luddy subiyandoko" luddy_subiyandoko
Mohon bantuan master
Ini saya mempunyai kendala terkait rumus vlookup yg tidak sesuai dengan hasilnya.
Mohon bantuan petunjuknya
Dikirim dari Yahoo Mail di Android
Ini saya mempunyai kendala terkait rumus vlookup yg tidak sesuai dengan hasilnya.
Mohon bantuan petunjuknya
Dikirim dari Yahoo Mail di Android
Mon Jan 15, 2018 10:17 pm (PST) . Posted by:
"Abu Abdillaah"
Dear Pak Luddy
Coba rumus diganti seperti berikut:
=VLOOKUP(K340,F330:G346,2,0)
Best regards,
2018-01-16 12:38 GMT+07:00 luddy subiyandoko luddy_subiyandoko@yahoo.co..id
[belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> Mohon bantuan master
>
> Ini saya mempunyai kendala terkait rumus vlookup yg tidak sesuai dengan
> hasilnya.
>
> Mohon bantuan petunjuknya
>
> Dikirim dari Yahoo Mail di Android
> <https://overview.mail.yahoo.com/mobile/?.src=Android>
>
>
>
Coba rumus diganti seperti berikut:
=VLOOKUP(K340,F330:G346,2,0)
Best regards,
2018-01-16 12:38 GMT+07:00 luddy subiyandoko luddy_subiyandoko@yahoo.co..id
[belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> Mohon bantuan master
>
> Ini saya mempunyai kendala terkait rumus vlookup yg tidak sesuai dengan
> hasilnya.
>
> Mohon bantuan petunjuknya
>
> Dikirim dari Yahoo Mail di Android
> <https://overview.mail.yahoo.com/mobile/?.src=Android>
>
>
>
Mon Jan 15, 2018 11:08 pm (PST) . Posted by:
"luddy subiyandoko" luddy_subiyandoko
Terima kasih sarannya pak abdi
Kalau apabila yg dicari - 1.64101, kan kalau gak sama gak bisa muncul hasilnya, nah itu seperti apa ya pak
Dikirim dari Yahoo Mail di Android
Pada Sel, 16 Jan 2018 pada 13:20, Abu Abdillaah abuabdillaah99@gmail.com [belajar-excel]<belajar-excel@yahoogroups.com> menulis:
Dear Pak Luddy
Coba rumus diganti seperti berikut:=VLOOKUP(K340,F330:G346,2,0)
Best regards,
2018-01-16 12:38 GMT+07:00 luddy subiyandoko luddy_subiyandoko@yahoo.co..id [belajar-excel] <belajar-excel@yahoogroups.com>:
Mohon bantuan master
Ini saya mempunyai kendala terkait rumus vlookup yg tidak sesuai dengan hasilnya.
Mohon bantuan petunjuknya
Dikirim dari Yahoo Mail di Android
#yiv8088326755 #yiv8088326755 -- #yiv8088326755ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv8088326755 #yiv8088326755ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv8088326755 #yiv8088326755ygrp-mkp #yiv8088326755hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv8088326755 #yiv8088326755ygrp-mkp #yiv8088326755ads {margin-bottom:10px;}#yiv8088326755 #yiv8088326755ygrp-mkp .yiv8088326755ad {padding:0 0;}#yiv8088326755 #yiv8088326755ygrp-mkp .yiv8088326755ad p {margin:0;}#yiv8088326755 #yiv8088326755ygrp-mkp .yiv8088326755ad a {color:#0000ff;text-decoration:none;}#yiv8088326755 #yiv8088326755ygrp-sponsor #yiv8088326755ygrp-lc {font-family:Arial;}#yiv8088326755 #yiv8088326755ygrp-sponsor #yiv8088326755ygrp-lc #yiv8088326755hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv8088326755 #yiv8088326755ygrp-sponsor #yiv8088326755ygrp-lc .yiv8088326755ad {margin-bottom:10px;padding:0 0;}#yiv8088326755 #yiv8088326755actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv8088326755 #yiv8088326755activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv8088326755 #yiv8088326755activity span {font-weight:700;}#yiv8088326755 #yiv8088326755activity span:first-child {text-transform:uppercase;}#yiv8088326755 #yiv8088326755activity span a {color:#5085b6;text-decoration:none;}#yiv8088326755 #yiv8088326755activity span span {color:#ff7900;}#yiv8088326755 #yiv8088326755activity span .yiv8088326755underline {text-decoration:underline;}#yiv8088326755 .yiv8088326755attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv8088326755 .yiv8088326755attach div a {text-decoration:none;}#yiv8088326755 .yiv8088326755attach img {border:none;padding-right:5px;}#yiv8088326755 .yiv8088326755attach label {display:block;margin-bottom:5px;}#yiv8088326755 .yiv8088326755attach label a {text-decoration:none;}#yiv8088326755 blockquote {margin:0 0 0 4px;}#yiv8088326755 ..yiv8088326755bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv8088326755 .yiv8088326755bold a {text-decoration:none;}#yiv8088326755 dd.yiv8088326755last p a {font-family:Verdana;font-weight:700;}#yiv8088326755 dd.yiv8088326755last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv8088326755 dd.yiv8088326755last p span.yiv8088326755yshortcuts {margin-right:0;}#yiv8088326755 div.yiv8088326755attach-table div div a {text-decoration:none;}#yiv8088326755 div.yiv8088326755attach-table {width:400px;}#yiv8088326755 div.yiv8088326755file-title a, #yiv8088326755 div.yiv8088326755file-title a:active, #yiv8088326755 div.yiv8088326755file-title a:hover, #yiv8088326755 div.yiv8088326755file-title a:visited {text-decoration:none;}#yiv8088326755 div.yiv8088326755photo-title a, #yiv8088326755 div.yiv8088326755photo-title a:active, #yiv8088326755 div.yiv8088326755photo-title a:hover, #yiv8088326755 div.yiv8088326755photo-title a:visited {text-decoration:none;}#yiv8088326755 div#yiv8088326755ygrp-mlmsg #yiv8088326755ygrp-msg p a span.yiv8088326755yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv8088326755 .yiv8088326755green {color:#628c2a;}#yiv8088326755 .yiv8088326755MsoNormal {margin:0 0 0 0;}#yiv8088326755 o {font-size:0;}#yiv8088326755 #yiv8088326755photos div {float:left;width:72px;}#yiv8088326755 #yiv8088326755photos div div {border:1px solid #666666;min-height:62px;overflow:hidden;width:62px;}#yiv8088326755 #yiv8088326755photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv8088326755 #yiv8088326755reco-category {font-size:77%;}#yiv8088326755 #yiv8088326755reco-desc {font-size:77%;}#yiv8088326755 .yiv8088326755replbq {margin:4px;}#yiv8088326755 #yiv8088326755ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv8088326755 #yiv8088326755ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv8088326755 #yiv8088326755ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv8088326755 #yiv8088326755ygrp-mlmsg select, #yiv8088326755 input, #yiv8088326755 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv8088326755 #yiv8088326755ygrp-mlmsg pre, #yiv8088326755 code {font:115% monospace;}#yiv8088326755 #yiv8088326755ygrp-mlmsg * {line-height:1.22em;}#yiv8088326755 #yiv8088326755ygrp-mlmsg #yiv8088326755logo {padding-bottom:10px;}#yiv8088326755 #yiv8088326755ygrp-msg p a {font-family:Verdana;}#yiv8088326755 #yiv8088326755ygrp-msg p#yiv8088326755attach-count span {color:#1E66AE;font-weight:700;}#yiv8088326755 #yiv8088326755ygrp-reco #yiv8088326755reco-head {color:#ff7900;font-weight:700;}#yiv8088326755 #yiv8088326755ygrp-reco {margin-bottom:20px;padding:0px;}#yiv8088326755 #yiv8088326755ygrp-sponsor #yiv8088326755ov li a {font-size:130%;text-decoration:none;}#yiv8088326755 #yiv8088326755ygrp-sponsor #yiv8088326755ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv8088326755 #yiv8088326755ygrp-sponsor #yiv8088326755ov ul {margin:0;padding:0 0 0 8px;}#yiv8088326755 #yiv8088326755ygrp-text {font-family:Georgia;}#yiv8088326755 #yiv8088326755ygrp-text p {margin:0 0 1em 0;}#yiv8088326755 #yiv8088326755ygrp-text tt {font-size:120%;}#yiv8088326755 #yiv8088326755ygrp-vital ul li:last-child {border-right:none !important;}#yiv8088326755
Kalau apabila yg dicari - 1.64101, kan kalau gak sama gak bisa muncul hasilnya, nah itu seperti apa ya pak
Dikirim dari Yahoo Mail di Android
Pada Sel, 16 Jan 2018 pada 13:20, Abu Abdillaah abuabdillaah99@gmail.com [belajar-excel]<belajar-excel@yahoogroups.com> menulis:
Dear Pak Luddy
Coba rumus diganti seperti berikut:=VLOOKUP(K340,F330:G346,2,0)
Best regards,
2018-01-16 12:38 GMT+07:00 luddy subiyandoko luddy_subiyandoko@yahoo.co..id [belajar-excel] <belajar-excel@yahoogroups.com>:
Mohon bantuan master
Ini saya mempunyai kendala terkait rumus vlookup yg tidak sesuai dengan hasilnya.
Mohon bantuan petunjuknya
Dikirim dari Yahoo Mail di Android
#yiv8088326755 #yiv8088326755 -- #yiv8088326755ygrp-
============================================================
Pojok Lowongan Kerja yang disediakan milis :
http://milis-belajar-excel.1048464.n5.nabble.com/Pojok-Lowongan-Kerja-f5725753.html
*** Posting lowongan kerja : ke link tersebut dan klik New Topic
============================================================
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
---------------------------------------------------------------------
Pojok Lowongan Kerja yang disediakan milis :
http://milis-belajar-excel.1048464.n5.nabble.com/Pojok-Lowongan-Kerja-f5725753.html
*** Posting lowongan kerja : ke link tersebut dan klik New Topic
============================================================
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