12 Messages
Digest #4408
Messages
Tue Jan 16, 2018 3:18 am (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Pak HK,
Excel 12.0 diikuti :
Xml : untuk xlsx
Macro : untuk xlsm
tanpa keduanya : untuk xlsb, xlsx, dan xlsm
Excel 8.0 tidak ada ikutannya karena semuanya xls dan berlaku untuk xl2002
(mungkin malah dari sebelumnya, tapi setelah Excel 4) dan xl2003
Regards,
Kid
2018-01-16 17:13 GMT+07:00 hendrik karnadi hendrikkarnadi@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> 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 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
>
>
>
>
>
>
Excel 12.0 diikuti :
Xml : untuk xlsx
Macro : untuk xlsm
tanpa keduanya : untuk xlsb, xlsx, dan xlsm
Excel 8.0 tidak ada ikutannya karena semuanya xls dan berlaku untuk xl2002
(mungkin malah dari sebelumnya, tapi setelah Excel 4) dan xl2003
Regards,
Kid
2018-01-16 17:13 GMT+07:00 hendrik karnadi hendrikkarnadi@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> 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 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 3:47 am (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Hai Tio,
Referensi data Excel dalam query :
1. area data menurut Excel dalam sebuah sheet : [nama sheet$] -> $
harus ada
2. sebuah area range tertentu dalam sebuah sheet : [nama
sheet$A1:C17] -> rujukan BUKAN absolute reference ($). (contoh yang
SALAH) >> [nama sheet$$A$1:$C$17] atau [nama sheet$A$1:$C$17]
3. sebuah *nama range STATIS* dengan *scope Workbook* : [NamedRANGE]
-> NamedRange HARUS refers to area range langsung, BUKAN refers to range
hasil formula dinamis (Index, Offset, Indirect)
4. sebuah nama range STATIS dengan scope sheet : [nama
sheet$NamedRangeScopeSheet] -> nama range merujuk langsung range yang
ada di sheet 'nama sheet'
*** Excel Table termasuk nama range dinamis, sampai sekarang belum bisa
digunakan langsung dalam query, jadi harus diambil address (tanpa absolute
reference) dari si Excel Table
*** Nama range yang di-hide tetap bisa digunakan asal sesuai ketentuan di
atas
*** Nama range yang refers to dengan formula dinamis (pakai Index, Offset,
Indirect) tidak bisa dipakai langsung, jadi harus diambil address (tanpa
absolute reference) dari si nama range dinamis
*** Nama range scope worksheet refers to ke sheet lain tidak bisa dipakai,
jadi sebaiknya gunakan saja refers to formulanya (dihilangkan absolute
reference dan ganti ! dengan $)
*** Nama range merujuk ke Excel Table tidak bisa digunakan, jadi sebaiknya
pakai saja nama Excel Table-nya dan diambil address tanpa absolute
reference.
Supaya gak bingung, coba saja...
Tinggal buat contoh data dilengkapi nama range dan sebagainya kan...
Regards,
Kid
2018-01-16 17:04 GMT+07:00 Tio Adi Bayu Adjie tio.adjie@ptssb.co.id
[belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> 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
> [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
>
>
>
>
>
>
>
Referensi data Excel dalam query :
1. area data menurut Excel dalam sebuah sheet : [nama sheet$] -> $
harus ada
2. sebuah area range tertentu dalam sebuah sheet : [nama
sheet$A1:C17] -> rujukan BUKAN absolute reference ($). (contoh yang
SALAH) >> [nama sheet$$A$1:$C$17] atau [nama sheet$A$1:$C$17]
3. sebuah *nama range STATIS* dengan *scope Workbook* : [NamedRANGE]
-> NamedRange HARUS refers to area range langsung, BUKAN refers to range
hasil formula dinamis (Index, Offset, Indirect)
4. sebuah nama range STATIS dengan scope sheet : [nama
sheet$NamedRangeScopeSheet] -> nama range merujuk langsung range yang
ada di sheet 'nama sheet'
*** Excel Table termasuk nama range dinamis, sampai sekarang belum bisa
digunakan langsung dalam query, jadi harus diambil address (tanpa absolute
reference) dari si Excel Table
*** Nama range yang di-hide tetap bisa digunakan asal sesuai ketentuan di
atas
*** Nama range yang refers to dengan formula dinamis (pakai Index, Offset,
Indirect) tidak bisa dipakai langsung, jadi harus diambil address (tanpa
absolute reference) dari si nama range dinamis
*** Nama range scope worksheet refers to ke sheet lain tidak bisa dipakai,
jadi sebaiknya gunakan saja refers to formulanya (dihilangkan absolute
reference dan ganti ! dengan $)
*** Nama range merujuk ke Excel Table tidak bisa digunakan, jadi sebaiknya
pakai saja nama Excel Table-nya dan diambil address tanpa absolute
reference.
Supaya gak bingung, coba saja...
Tinggal buat contoh data dilengkapi nama range dan sebagainya kan...
Regards,
Kid
2018-01-16 17:04 GMT+07:00 Tio Adi Bayu Adjie tio.adjie@ptssb.co.id
[belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> 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
> [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 4:19 am (PST) . Posted by:
"hendrik karnadi" hendrikkarnadi
Mr. Kid,Terima kasih atas pencerahannya.Karena rasa penasaran saya coba hilangkan Xml nya namun tetap bisa jalan, walaupun file sumbernya (file yang digabung) adalah Excel 97-2013 (.xls).
Pertanyaan saya:Apakah sebaiknya Xml nya dhilangkan saja ?
Salam,HK
On Tuesday, 16 January 2018, 6:18:48 PM GMT+7, 'Mr. Kid' mr..nmkid@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
Pak HK,
Excel 12.0 diikuti :
Xml : untuk xlsx
Macro : untuk xlsm
tanpa keduanya : untuk xlsb, xlsx, dan xlsm
Excel 8.0 tidak ada ikutannya karena semuanya xls dan berlaku untuk xl2002 (mungkin malah dari sebelumnya, tapi setelah Excel 4) dan xl2003
Regards,Kid
2018-01-16 17:13 GMT+07:00 hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>:
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
Pertanyaan saya:Apakah sebaiknya Xml nya dhilangkan saja ?
Salam,HK
On Tuesday, 16 January 2018, 6:18:48 PM GMT+7, 'Mr. Kid' mr..nmkid@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
Pak HK,
Excel 12.0 diikuti :
Xml : untuk xlsx
Macro : untuk xlsm
tanpa keduanya : untuk xlsb, xlsx, dan xlsm
Excel 8.0 tidak ada ikutannya karena semuanya xls dan berlaku untuk xl2002 (mungkin malah dari sebelumnya, tapi setelah Excel 4) dan xl2003
Regards,Kid
2018-01-16 17:13 GMT+07:00 hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>:
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
Tue Jan 16, 2018 4:56 am (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Yup, pada dasarnya, Excel 12.0 (tanpa Xml atau Macro) bisa digunakan untuk
semua versi Excel. Hanya saja, dibiasakan untuk setelah Excel 4 sampai
xl2003 pakai Excel 8.0.
Sedangkan untuk Xml atau Macro (yang digunakan mulai xl2007) adalah part
optional.
Regards,
Kid
2018-01-16 19:17 GMT+07:00 hendrik karnadi hendrikkarnadi@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> Mr. Kid,
> Terima kasih atas pencerahannya.
> Karena rasa penasaran saya coba hilangkan Xml nya namun tetap bisa jalan,
> walaupun file sumbernya (file yang digabung) adalah Excel 97-2013 (.xls).
>
> Pertanyaan saya:
> Apakah sebaiknya Xml nya dhilangkan saja ?
>
> Salam,
> HK
>
> On Tuesday, 16 January 2018, 6:18:48 PM GMT+7, 'Mr. Kid'
> mr.nmkid@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
>
>
>
> Pak HK,
>
> Excel 12.0 diikuti :
> Xml : untuk xlsx
> Macro : untuk xlsm
> tanpa keduanya : untuk xlsb, xlsx, dan xlsm
>
> Excel 8.0 tidak ada ikutannya karena semuanya xls dan berlaku untuk xl2002
> (mungkin malah dari sebelumnya, tapi setelah Excel 4) dan xl2003
>
> Regards,
> Kid
>
>
> 2018-01-16 17:13 GMT+07:00 hendrik karnadi hendrikkarnadi@yahoo.com
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
>
> 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 <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 wb
> Kid
>
>
>
> 2018-01-15 11:45 GMT+07:00 Tio Adi Bayu Adjie tio.adjie@ptssb..co.id
> <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
>
>
>
>
>
>
>
semua versi Excel. Hanya saja, dibiasakan untuk setelah Excel 4 sampai
xl2003 pakai Excel 8.0.
Sedangkan untuk Xml atau Macro (yang digunakan mulai xl2007) adalah part
optional.
Regards,
Kid
2018-01-16 19:17 GMT+07:00 hendrik karnadi hendrikkarnadi@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> Mr. Kid,
> Terima kasih atas pencerahannya.
> Karena rasa penasaran saya coba hilangkan Xml nya namun tetap bisa jalan,
> walaupun file sumbernya (file yang digabung) adalah Excel 97-2013 (.xls).
>
> Pertanyaan saya:
> Apakah sebaiknya Xml nya dhilangkan saja ?
>
> Salam,
> HK
>
> On Tuesday, 16 January 2018, 6:18:48 PM GMT+7, 'Mr. Kid'
> mr.nmkid@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
>
>
>
> Pak HK,
>
> Excel 12.0 diikuti :
> Xml : untuk xlsx
> Macro : untuk xlsm
> tanpa keduanya : untuk xlsb, xlsx, dan xlsm
>
> Excel 8.0 tidak ada ikutannya karena semuanya xls dan berlaku untuk xl2002
> (mungkin malah dari sebelumnya, tapi setelah Excel 4) dan xl2003
>
> Regards,
> Kid
>
>
> 2018-01-16 17:13 GMT+07:00 hendrik karnadi hendrikkarnadi@yahoo.com
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
>
> 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 <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 wb
> Kid
>
>
>
> 2018-01-15 11:45 GMT+07:00 Tio Adi Bayu Adjie tio.adjie@ptssb..co.id
> <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 6:47 am (PST) . Posted by:
"hendrik karnadi" hendrikkarnadi
Terima kasih Mr. Kid.
Salam,HK
Sent from Yahoo Mail on Android
On Tue, Jan 16, 2018 at 19:59, 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]<belajar-excel@yahoogroups.com> wrote:
Yup, pada dasarnya, Excel 12.0 (tanpa Xml atau Macro) bisa digunakan untuk semua versi Excel. Hanya saja, dibiasakan untuk setelah Excel 4 sampai xl2003 pakai Excel 8.0.
Sedangkan untuk Xml atau Macro (yang digunakan mulai xl2007) adalah part optional.
Regards,
Kid
2018-01-16 19:17 GMT+07:00 hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>:
Mr. Kid,Terima kasih atas pencerahannya.Karena rasa penasaran saya coba hilangkan Xml nya namun tetap bisa jalan, walaupun file sumbernya (file yang digabung) adalah Excel 97-2013 (.xls)..
Pertanyaan saya:Apakah sebaiknya Xml nya dhilangkan saja ?
Salam,HK
On Tuesday, 16 January 2018, 6:18:48 PM GMT+7, 'Mr. Kid' mr..nmkid@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com > wrote:
Pak HK,
Excel 12.0 diikuti :
Xml : untuk xlsx
Macro : untuk xlsm
tanpa keduanya : untuk xlsb, xlsx, dan xlsm
Excel 8.0 tidak ada ikutannya karena semuanya xls dan berlaku untuk xl2002 (mungkin malah dari sebelumnya, tapi setelah Excel 4) dan xl2003
Regards,Kid
2018-01-16 17:13 GMT+07:00 hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com >:
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
#yiv3952068635 #yiv3952068635 -- #yiv3952068635ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv3952068635 #yiv3952068635ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv3952068635 #yiv3952068635ygrp-mkp #yiv3952068635hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv3952068635 #yiv3952068635ygrp-mkp #yiv3952068635ads {margin-bottom:10px;}#yiv3952068635 #yiv3952068635ygrp-mkp .yiv3952068635ad {padding:0 0;}#yiv3952068635 #yiv3952068635ygrp-mkp .yiv3952068635ad p {margin:0;}#yiv3952068635 #yiv3952068635ygrp-mkp .yiv3952068635ad a {color:#0000ff;text-decoration:none;}#yiv3952068635 #yiv3952068635ygrp-sponsor #yiv3952068635ygrp-lc {font-family:Arial;}#yiv3952068635 #yiv3952068635ygrp-sponsor #yiv3952068635ygrp-lc #yiv3952068635hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv3952068635 #yiv3952068635ygrp-sponsor #yiv3952068635ygrp-lc .yiv3952068635ad {margin-bottom:10px;padding:0 0;}#yiv3952068635 #yiv3952068635actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv3952068635 #yiv3952068635activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv3952068635 #yiv3952068635activity span {font-weight:700;}#yiv3952068635 #yiv3952068635activity span:first-child {text-transform:uppercase;}#yiv3952068635 #yiv3952068635activity span a {color:#5085b6;text-decoration:none;}#yiv3952068635 #yiv3952068635activity span span {color:#ff7900;}#yiv3952068635 #yiv3952068635activity span .yiv3952068635underline {text-decoration:underline;}#yiv3952068635 .yiv3952068635attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv3952068635 .yiv3952068635attach div a {text-decoration:none;}#yiv3952068635 .yiv3952068635attach img {border:none;padding-right:5px;}#yiv3952068635 .yiv3952068635attach label {display:block;margin-bottom:5px;}#yiv3952068635 .yiv3952068635attach label a {text-decoration:none;}#yiv3952068635 blockquote {margin:0 0 0 4px;}#yiv3952068635 .yiv3952068635bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv3952068635 .yiv3952068635bold a {text-decoration:none;}#yiv3952068635 dd.yiv3952068635last p a {font-family:Verdana;font-weight:700;}#yiv3952068635 dd.yiv3952068635last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv3952068635 dd.yiv3952068635last p span.yiv3952068635yshortcuts {margin-right:0;}#yiv3952068635 div.yiv3952068635attach-table div div a {text-decoration:none;}#yiv3952068635 div.yiv3952068635attach-table {width:400px;}#yiv3952068635 div.yiv3952068635file-title a, #yiv3952068635 div.yiv3952068635file-title a:active, #yiv3952068635 div.yiv3952068635file-title a:hover, #yiv3952068635 div.yiv3952068635file-title a:visited {text-decoration:none;}#yiv3952068635 div.yiv3952068635photo-title a, #yiv3952068635 div.yiv3952068635photo-title a:active, #yiv3952068635 div.yiv3952068635photo-title a:hover, #yiv3952068635 div.yiv3952068635photo-title a:visited {text-decoration:none;}#yiv3952068635 div#yiv3952068635ygrp-mlmsg #yiv3952068635ygrp-msg p a span.yiv3952068635yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv3952068635 .yiv3952068635green {color:#628c2a;}#yiv3952068635 .yiv3952068635MsoNormal {margin:0 0 0 0;}#yiv3952068635 o {font-size:0;}#yiv3952068635 #yiv3952068635photos div {float:left;width:72px;}#yiv3952068635 #yiv3952068635photos div div {border:1px solid #666666;min-height:62px;overflow:hidden;width:62px;}#yiv3952068635 #yiv3952068635photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv3952068635 #yiv3952068635reco-category {font-size:77%;}#yiv3952068635 #yiv3952068635reco-desc {font-size:77%;}#yiv3952068635 .yiv3952068635replbq {margin:4px;}#yiv3952068635 #yiv3952068635ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv3952068635 #yiv3952068635ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv3952068635 #yiv3952068635ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv3952068635 #yiv3952068635ygrp-mlmsg select, #yiv3952068635 input, #yiv3952068635 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv3952068635 #yiv3952068635ygrp-mlmsg pre, #yiv3952068635 code {font:115% monospace;}#yiv3952068635 #yiv3952068635ygrp-mlmsg * {line-height:1.22em;}#yiv3952068635 #yiv3952068635ygrp-mlmsg #yiv3952068635logo {padding-bottom:10px;}#yiv3952068635 #yiv3952068635ygrp-msg p a {font-family:Verdana;}#yiv3952068635 #yiv3952068635ygrp-msg p#yiv3952068635attach-count span {color:#1E66AE;font-weight:700;}#yiv3952068635 #yiv3952068635ygrp-reco #yiv3952068635reco-head {color:#ff7900;font-weight:700;}#yiv3952068635 #yiv3952068635ygrp-reco {margin-bottom:20px;padding:0px;}#yiv3952068635 #yiv3952068635ygrp-sponsor #yiv3952068635ov li a {font-size:130%;text-decoration:none;}#yiv3952068635 #yiv3952068635ygrp-sponsor #yiv3952068635ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv3952068635 #yiv3952068635ygrp-sponsor #yiv3952068635ov ul {margin:0;padding:0 0 0 8px;}#yiv3952068635 #yiv3952068635ygrp-text {font-family:Georgia;}#yiv3952068635 #yiv3952068635ygrp-text p {margin:0 0 1em 0;}#yiv3952068635 #yiv3952068635ygrp-text tt {font-size:120%;}#yiv3952068635 #yiv3952068635ygrp-vital ul li:last-child {border-right:none !important;}#yiv3952068635
Salam,HK
Sent from Yahoo Mail on Android
On Tue, Jan 16, 2018 at 19:59, 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]<belajar-excel@yahoogroups.com> wrote:
Yup, pada dasarnya, Excel 12.0 (tanpa Xml atau Macro) bisa digunakan untuk semua versi Excel. Hanya saja, dibiasakan untuk setelah Excel 4 sampai xl2003 pakai Excel 8.0.
Sedangkan untuk Xml atau Macro (yang digunakan mulai xl2007) adalah part optional.
Regards,
Kid
2018-01-16 19:17 GMT+07:00 hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>:
Mr. Kid,Terima kasih atas pencerahannya.Karena rasa penasaran saya coba hilangkan Xml nya namun tetap bisa jalan, walaupun file sumbernya (file yang digabung) adalah Excel 97-2013 (.xls)..
Pertanyaan saya:Apakah sebaiknya Xml nya dhilangkan saja ?
Salam,HK
On Tuesday, 16 January 2018, 6:18:48 PM GMT+7, 'Mr. Kid' mr..nmkid@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com > wrote:
Pak HK,
Excel 12.0 diikuti :
Xml : untuk xlsx
Macro : untuk xlsm
tanpa keduanya : untuk xlsb, xlsx, dan xlsm
Excel 8.0 tidak ada ikutannya karena semuanya xls dan berlaku untuk xl2002 (mungkin malah dari sebelumnya, tapi setelah Excel 4) dan xl2003
Regards,Kid
2018-01-16 17:13 GMT+07:00 hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com >:
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
#yiv3952068635 #yiv3952068635 -- #yiv3952068635ygrp-
Tue Jan 16, 2018 4:05 am (PST) . Posted by:
"Fahmi Syaifullah" fahmisyaifullah20
Bantu sedikit yaak.
fungsi lookup (pencarian) rata2 dimiliki oleh vlookup dan match ada sub (pkoknya ketik vlookup terus liat dibawa tuh ada petunjuk nah itu) yang bernama range lookup. Diisi True atau setara angka satu atau tidak diisi. Membuat rumus mencari sesuai tingkatan. =vlookup(cari_ini,ditabel_ini,kolom_2,1)jika false atau diisi 0 . Membuat rumus menjadi exact. HARUS SESUAI.
coba searching2 tntng rumus vlookup ini.banyakk kok.. rumus sangat simple tp sangat berguna.
Mudah2an paham yaa hehe
terima kasihfahmi
Dikirim dari Yahoo Mail di Android
Pada Sel, 16 Jan 2018 pada 14:19, luddy subiyandoko luddy_subiyandoko@yahoo.co.id [belajar-excel]<belajar-excel@yahoogroups.com> menulis:
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
#yiv1823343274 #yiv1823343274 -- #yiv1823343274ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv1823343274 #yiv1823343274ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv1823343274 #yiv1823343274ygrp-mkp #yiv1823343274hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv1823343274 #yiv1823343274ygrp-mkp #yiv1823343274ads {margin-bottom:10px;}#yiv1823343274 #yiv1823343274ygrp-mkp .yiv1823343274ad {padding:0 0;}#yiv1823343274 #yiv1823343274ygrp-mkp .yiv1823343274ad p {margin:0;}#yiv1823343274 #yiv1823343274ygrp-mkp .yiv1823343274ad a {color:#0000ff;text-decoration:none;}#yiv1823343274 #yiv1823343274ygrp-sponsor #yiv1823343274ygrp-lc {font-family:Arial;}#yiv1823343274 #yiv1823343274ygrp-sponsor #yiv1823343274ygrp-lc #yiv1823343274hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv1823343274 #yiv1823343274ygrp-sponsor #yiv1823343274ygrp-lc .yiv1823343274ad {margin-bottom:10px;padding:0 0;}#yiv1823343274 #yiv1823343274actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv1823343274 #yiv1823343274activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv1823343274 #yiv1823343274activity span {font-weight:700;}#yiv1823343274 #yiv1823343274activity span:first-child {text-transform:uppercase;}#yiv1823343274 #yiv1823343274activity span a {color:#5085b6;text-decoration:none;}#yiv1823343274 #yiv1823343274activity span span {color:#ff7900;}#yiv1823343274 #yiv1823343274activity span .yiv1823343274underline {text-decoration:underline;}#yiv1823343274 .yiv1823343274attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv1823343274 .yiv1823343274attach div a {text-decoration:none;}#yiv1823343274 .yiv1823343274attach img {border:none;padding-right:5px;}#yiv1823343274 .yiv1823343274attach label {display:block;margin-bottom:5px;}#yiv1823343274 .yiv1823343274attach label a {text-decoration:none;}#yiv1823343274 blockquote {margin:0 0 0 4px;}#yiv1823343274 .yiv1823343274bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv1823343274 .yiv1823343274bold a {text-decoration:none;}#yiv1823343274 dd.yiv1823343274last p a {font-family:Verdana;font-weight:700;}#yiv1823343274 dd.yiv1823343274last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv1823343274 dd.yiv1823343274last p span.yiv1823343274yshortcuts {margin-right:0;}#yiv1823343274 div.yiv1823343274attach-table div div a {text-decoration:none;}#yiv1823343274 div.yiv1823343274attach-table {width:400px;}#yiv1823343274 div.yiv1823343274file-title a, #yiv1823343274 div.yiv1823343274file-title a:active, #yiv1823343274 div.yiv1823343274file-title a:hover, #yiv1823343274 div.yiv1823343274file-title a:visited {text-decoration:none;}#yiv1823343274 div.yiv1823343274photo-title a, #yiv1823343274 div.yiv1823343274photo-title a:active, #yiv1823343274 div.yiv1823343274photo-title a:hover, #yiv1823343274 div.yiv1823343274photo-title a:visited {text-decoration:none;}#yiv1823343274 div#yiv1823343274ygrp-mlmsg #yiv1823343274ygrp-msg p a span.yiv1823343274yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv1823343274 .yiv1823343274green {color:#628c2a;}#yiv1823343274 .yiv1823343274MsoNormal {margin:0 0 0 0;}#yiv1823343274 o {font-size:0;}#yiv1823343274 #yiv1823343274photos div {float:left;width:72px;}#yiv1823343274 #yiv1823343274photos div div {border:1px solid #666666;min-height:62px;overflow:hidden;width:62px;}#yiv1823343274 #yiv1823343274photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv1823343274 #yiv1823343274reco-category {font-size:77%;}#yiv1823343274 #yiv1823343274reco-desc {font-size:77%;}#yiv1823343274 .yiv1823343274replbq {margin:4px;}#yiv1823343274 #yiv1823343274ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv1823343274 #yiv1823343274ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv1823343274 #yiv1823343274ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv1823343274 #yiv1823343274ygrp-mlmsg select, #yiv1823343274 input, #yiv1823343274 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv1823343274 #yiv1823343274ygrp-mlmsg pre, #yiv1823343274 code {font:115% monospace;}#yiv1823343274 #yiv1823343274ygrp-mlmsg * {line-height:1.22em;}#yiv1823343274 #yiv1823343274ygrp-mlmsg #yiv1823343274logo {padding-bottom:10px;}#yiv1823343274 #yiv1823343274ygrp-msg p a {font-family:Verdana;}#yiv1823343274 #yiv1823343274ygrp-msg p#yiv1823343274attach-count span {color:#1E66AE;font-weight:700;}#yiv1823343274 #yiv1823343274ygrp-reco #yiv1823343274reco-head {color:#ff7900;font-weight:700;}#yiv1823343274 #yiv1823343274ygrp-reco {margin-bottom:20px;padding:0px;}#yiv1823343274 #yiv1823343274ygrp-sponsor #yiv1823343274ov li a {font-size:130%;text-decoration:none;}#yiv1823343274 #yiv1823343274ygrp-sponsor #yiv1823343274ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv1823343274 #yiv1823343274ygrp-sponsor #yiv1823343274ov ul {margin:0;padding:0 0 0 8px;}#yiv1823343274 #yiv1823343274ygrp-text {font-family:Georgia;}#yiv1823343274 #yiv1823343274ygrp-text p {margin:0 0 1em 0;}#yiv1823343274 #yiv1823343274ygrp-text tt {font-size:120%;}#yiv1823343274 #yiv1823343274ygrp-vital ul li:last-child {border-right:none !important;}#yiv1823343274
fungsi lookup (pencarian) rata2 dimiliki oleh vlookup dan match ada sub (pkoknya ketik vlookup terus liat dibawa tuh ada petunjuk nah itu) yang bernama range lookup. Diisi True atau setara angka satu atau tidak diisi. Membuat rumus mencari sesuai tingkatan. =vlookup(cari_ini,ditabel_ini,kolom_2,1)jika false atau diisi 0 . Membuat rumus menjadi exact. HARUS SESUAI.
coba searching2 tntng rumus vlookup ini.banyakk kok.. rumus sangat simple tp sangat berguna.
Mudah2an paham yaa hehe
terima kasihfahmi
Dikirim dari Yahoo Mail di Android
Pada Sel, 16 Jan 2018 pada 14:19, luddy subiyandoko luddy_subiyandoko@yahoo.co.id [belajar-excel]<belajar-excel@yahoogroups.com> menulis:
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
#yiv1823343274 #yiv1823343274 -- #yiv1823343274ygrp-
Tue Jan 16, 2018 4:12 am (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Hai Subi,
Coba datanya di-sort ascending, lalu pakai match type BUKAN numerik 0 (di
vlookup dan hlookup disebut range lookup atau approximate match). Nilai 0
setara FALSE, BUKAN numerik 0 setara TRUE.
lookup di Excel
> *vlookup dan hlookup* menggunakan match *type 0* (kosong atau true atau
*exact*), *match *dengan match *type 0 atau exact* : data *boleh unsorted*
> *vlookup, hlookup, dan lookup* menggunakan match *type BUKAN 0* (atau
false atau approximate), match dengan match type 1 atau less then : data
HARUS *sorted ascending*
> *match* dengan match type *-1 atau greater then* : data HARUS *sorted
descending*
Regards,
Kid
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 datanya di-sort ascending, lalu pakai match type BUKAN numerik 0 (di
vlookup dan hlookup disebut range lookup atau approximate match). Nilai 0
setara FALSE, BUKAN numerik 0 setara TRUE.
lookup di Excel
> *vlookup dan hlookup* menggunakan match *type 0* (kosong atau true atau
*exact*), *match *dengan match *type 0 atau exact* : data *boleh unsorted*
> *vlookup, hlookup, dan lookup* menggunakan match *type BUKAN 0* (atau
false atau approximate), match dengan match type 1 atau less then : data
HARUS *sorted ascending*
> *match* dengan match type *-1 atau greater then* : data HARUS *sorted
descending*
Regards,
Kid
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>
>
>
>
Tue Jan 16, 2018 12:12 pm (PST) . Posted by:
"luddy subiyandoko" luddy_subiyandoko
Ok mr kid terima kasih info
Dikirim dari Yahoo Mail di Android
Pada Sel, 16 Jan 2018 pada 19:12, 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]<belajar-excel@yahoogroups.com> menulis:
Hai Subi,
Coba datanya di-sort ascending, lalu pakai match type BUKAN numerik 0 (di vlookup dan hlookup disebut range lookup atau approximate match). Nilai 0 setara FALSE, BUKAN numerik 0 setara TRUE.
lookup di Excel
> vlookup dan hlookup menggunakan match type 0 (kosong atau true atau exact), match dengan match type 0 atau exact : data boleh unsorted
> vlookup, hlookup, dan lookup menggunakan match type BUKAN 0 (atau false atau approximate), match dengan match type 1 atau less then : data HARUS sorted ascending
> match dengan match type -1 atau greater then : data HARUS sorted descending
Regards,Kid
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
#yiv3641944215 #yiv3641944215 -- #yiv3641944215ygrp-
Tue Jan 16, 2018 7:00 am (PST) . Posted by:
"riansutarsa" riansutarsa
assalamu'alaikum wr.wb.
Para Master yang baik hati sekiranya ada yang masih ingat mengenai rumus/fungsi mengurutkan data unik tanpa ganda dan tanpa fungsi array karena lepi nya jadi lemot kalo pake fungsi array.
terimakasih sebelumnya.wassalamu'alaikum. wr.wb
Para Master yang baik hati sekiranya ada yang masih ingat mengenai rumus/fungsi mengurutkan data unik tanpa ganda dan tanpa fungsi array karena lepi nya jadi lemot kalo pake fungsi array.
terimakasih sebelumnya.wassalam
Tue Jan 16, 2018 1:01 pm (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
wa'alaikumussalam wr wb
Hai Rian,
Coba pakai pivot table.
Contoh ada disini
<https://groups.yahoo.com/neo/groups/belajar-excel/conversations/messages/38120>
..
wassalamu'alaikum wr wb
Kid
2018-01-16 21:06 GMT+07:00 riansutarsa riansutarsa@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> assalamu'alaikum wr.wb.
>
> Para Master yang baik hati sekiranya ada yang masih ingat mengenai
> rumus/fungsi mengurutkan data unik tanpa ganda dan tanpa fungsi array
> karena lepi nya jadi lemot kalo pake fungsi array.
>
> terimakasih sebelumnya.
> wassalamu'alaikum. wr.wb
>
>
>
>
>
Hai Rian,
Coba pakai pivot table.
Contoh ada disini
<https://groups.yahoo.com/neo/groups/belajar-excel/conversations/messages/38120>
..
wassalamu'alaikum wr wb
Kid
2018-01-16 21:06 GMT+07:00 riansutarsa riansutarsa@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> assalamu'
>
> Para Master yang baik hati sekiranya ada yang masih ingat mengenai
> rumus/fungsi mengurutkan data unik tanpa ganda dan tanpa fungsi array
> karena lepi nya jadi lemot kalo pake fungsi array.
>
> terimakasih sebelumnya.
> wassalamu'
>
>
>
>
>
Tue Jan 16, 2018 5:04 pm (PST) . Posted by:
"riansutarsa" riansutarsa
terimakasih banyak Mr. Kid
Dikirim dari ponsel cerdas Samsung Galaxy saya.
-------- Pesan asli --------Dari: "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> Tanggal: 17/01/18 04:01 (GMT+07:00) Ke: BeExcel <belajar-excel@yahoogroups.com> Subjek: Re: [belajar-excel] mengurutkan data unik tanpa ganda dan tanpa fungsi array
wa'alaikumussalam wr wb
Hai Rian,
Coba pakai pivot table.
Contoh ada disini.
wassalamu'alaikum wr wbKid
2018-01-16 21:06 GMT+07:00 riansutarsa riansutarsa@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>:
assalamu'alaikum wr.wb.
Para Master yang baik hati sekiranya ada yang masih ingat mengenai rumus/fungsi mengurutkan data unik tanpa ganda dan tanpa fungsi array karena lepi nya jadi lemot kalo pake fungsi array.
terimakasih sebelumnya.wassalamu'alaikum. wr.wb
Dikirim dari ponsel cerdas Samsung Galaxy saya.
-------- Pesan asli --------Dari: "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> Tanggal: 17/01/18 04:01 (GMT+07:00) Ke: BeExcel <belajar-excel@yahoogroups.com> Subjek: Re: [belajar-excel] mengurutkan data unik tanpa ganda dan tanpa fungsi array
wa'alaikumussalam wr wb
Hai Rian,
Coba pakai pivot table.
Contoh ada disini.
wassalamu'alaikum wr wbKid
2018-01-16 21:06 GMT+07:00 riansutarsa riansutarsa@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>:
assalamu'
Para Master yang baik hati sekiranya ada yang masih ingat mengenai rumus/fungsi mengurutkan data unik tanpa ganda dan tanpa fungsi array karena lepi nya jadi lemot kalo pake fungsi array.
terimakasih sebelumnya.wassalam
Tue Jan 16, 2018 5:04 pm (PST) . Posted by:
"riansutarsa" riansutarsa
Mr. terimakasih banyak formula nya sangat bermanfaat satuhal lagi yabg jadi pertanyaan sesuai judul diatas. kalau melihat contoh lampiran Mr. Kid disana, bagaimana agar tidak muncul nama barang yang ganda
-------- Pesan asli --------Dari: "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> Tanggal: 17/01/18 04:01 (GMT+07:00) Ke: BeExcel <belajar-excel@yahoogroups.com> Subjek: Re: [belajar-excel] mengurutkan data unik tanpa ganda dan tanpa fungsi array
wa'alaikumussalam wr wb
Hai Rian,
Coba pakai pivot table.
Contoh ada disini.
wassalamu'alaikum wr wbKid
2018-01-16 21:06 GMT+07:00 riansutarsa riansutarsa@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>:
assalamu'alaikum wr.wb.
Para Master yang baik hati sekiranya ada yang masih ingat mengenai rumus/fungsi mengurutkan data unik tanpa ganda dan tanpa fungsi array karena lepi nya jadi lemot kalo pake fungsi array.
terimakasih sebelumnya.wassalamu'alaikum. wr.wb
-------- Pesan asli --------Dari: "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> Tanggal: 17/01/18 04:01 (GMT+07:00) Ke: BeExcel <belajar-excel@yahoogroups.com> Subjek: Re: [belajar-excel] mengurutkan data unik tanpa ganda dan tanpa fungsi array
wa'alaikumussalam wr wb
Hai Rian,
Coba pakai pivot table.
Contoh ada disini.
wassalamu'alaikum wr wbKid
2018-01-16 21:06 GMT+07:00 riansutarsa riansutarsa@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>:
assalamu'
Para Master yang baik hati sekiranya ada yang masih ingat mengenai rumus/fungsi mengurutkan data unik tanpa ganda dan tanpa fungsi array karena lepi nya jadi lemot kalo pake fungsi array.
terimakasih sebelumnya.wassalam
============================================================
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