Re: ]] XL-mania [[ Query Otomatis dengan Data > Web Query

 

Hai Abin,

Asumsi : telah ada sebuah sheet berisi sebuah web query table (misal namanya sheet myWeb), dan data
Coba buat disebuah module :
public sub ubahkoneksi()
       dim qt as querytable, sCon as string, lPage as long
       set qt=sheets("myWeb").querytables(1)
       with qt
            for lpage=1 to 234
                 scon= "https://www.address.co.id/web/data/?m1=1&m2=1&m3=2011&hal=" & lpage
                 .connection=scon
                 .refresh false
                 'proses copy data di sheet myweb ke sheet penyimpanan data diletakkan disini
            next lpage
       end with
end sub

Jalankan prosedur tersebut dengan menekan ALT   F8  kemudian pilih nama prosedur diatas dan tekan Run

Wassalam,
Kid.

2012/10/8 abin sierra <abin.sierra@gmail.com>

 

Malam semua...

Sehari2, saya menggunakan Excel untuk melakukan query record dari server melalui menu Data > From Web > Address

Jumlah record yang diambil selama satu bulan mencapai 7000 s/d 10000 record.

Aplikasi web server hanya membatasi 30 record per query sehingga untuk 7000 record dibutuhkan

query sebanyak 7000/30 = 234. 

Proses query ini saya lakukan secara manual dengan melakukan copy paste url ke menu Data > From Web > Address.

Misal alamat url nya : 

https://www.address.co.id/web/data/?m1=1&m2=1&m3=2011&hal=1

maka saya melakukan copy paste manual

https://www.address.co.id/web/data/?m1=1&m2=1&m3=2011&hal=1

ke Data > From Web > Address

kemudian hasil query saya copy paste ke Excel

Selanjutnya untuk query halaman 2, saya copy paste 

https://www.address.co.id/web/data/?m1=1&m2=1&m3=2011&hal=2

ke Data > From Web > Address

kemudian hasil query saya copy paste ke Excel

Selanjutnya untuk query halaman 3, saya copy paste 

https://www.address.co.id/web/data/?m1=1&m2=1&m3=2011&hal=3

ke Data > From Web > Address

kemudian hasil query saya copy paste ke Excel

begitu seterusnya sampai hal 234.

https://www.address.co.id/web/data/?m1=1&m2=1&m3=2011&hal=234

m1 = bulan awal

m2 = bulan akhir

m3 = tahun

hal = halaman web query

Yang saya inginkan adalah sebuah script yang mampu melakukan query otomatis dari hal 1 sampai hal terakhir pada bulan awal, bulan akhir dan tahun yang bersangkutan.

Saya sangat berharap ada teman-teman yang bersedia berbagi.

Terima kasih atas berbaginya.

Salam.

__._,_.___

Reply to sender | Reply to group | Reply via web post | Start a New Topic

Messages in this topic (2)

Recent Activity:

• New Members 60

Visit Your Group

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| Selamat jalan SitiVi, semoga bahagia di sisi-Nya...               |
| Maaf moderasi lemooOooOott... momods siboek                       |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message,  melecehkan,  tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan  winzip  jika  perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke  |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/           |
+-------------------------------------------------------------------+
| Berikan testimoni di :                                            |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html           |
+-------------------------------------------------------------------+
| Message lama ada di :                                             |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id]  |
| http://www.mail-archive.com/xl-mania@yahoogroups.com              |
+-------------------------------------------------------------------+

Switch to: Text-Only, Daily Digest • Unsubscribe • Terms of Use

.

__,_._,___