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 <[email protected]>
> **
>
>
> 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.
>
>
>
