Dear pa zainul... Benar kata pa indra .... saya juga mau... :) Terimaksih On Mar 26, 2013 6:37 PM, "Indra" <vendeta...@yahoo.co.id> wrote:
> ** > > > Fix Scriptnya donk Pak Zainul kalo boleh :D sebagai bahan pembelajaran > untuk saya dan teman” B-XL yang lain… Matur tengkyu**** > > ** ** > > ** ** > > Salam,**** > > ** ** > > ** ** > > ChordJR**** > > * * > > * * > > * * > > *From:* belajar-excel@yahoogroups.com [mailto: > belajar-excel@yahoogroups.com] *On Behalf Of *zainul_ulum[at]yahoo[dot]com > *Sent:* Tuesday, March 26, 2013 6:12 PM > *To:* belajar-excel@yahoogroups.com > *Subject:* RE: [belajar-excel] Ambil Tabel dari web ke excel dengan VBA*** > * > > ** ** > > **** > > Maturnuwun mas Kid,**** > > Sarannya sudah dicoba dan berhasil.**** > > **** > > Wassalam**** > > -zainul-**** > > **** > > *From:* belajar-excel@yahoogroups.com [mailto: > belajar-excel@yahoogroups.com] *On Behalf Of *Mr. Kid > *Sent:* Tuesday, March 26, 2013 5:44 PM > *To:* belajar-excel@yahoogroups.com > *Subject:* Re: [belajar-excel] Ambil Tabel dari web ke excel dengan VBA*** > * > > **** > > **** > > Pak Zainul, > > Coba lakukan web query. Pada object inet yang muncul dan setelah menuju > url yang diinginkan, coba hitung tanda panah kuning kecil yang muncul. > Urutan hitungnya dari kiri atas arah horisontal duluan baru ke bawahnya. > Setelah menemukan indeks tabel yang akan diambil (misal indeks tabel nomor > 7), maka atur properti WebTables agar diisi dengan indeks tersebut. > nomor indeks bertipe string ya, seperti "7" dsb. > > Wassalam, > Kid. > > > **** > > On Tue, Mar 26, 2013 at 5:35 PM, zainul_ulum[at]yahoo[dot]com < > zainul_u...@yahoo.com> wrote:**** > > **** > > Be-Excel,**** > > **** > > Saya membuat VBA untuk memngambil data kurs pajak mingguan sbb:**** > > '====start vba===**** > > Const ALAMAT_WEB As String = "http://www.depkeu.go.id/ind/currency/"**** > > **** > > Sub AmbilTableKursPajakMingguan()**** > > Dim rgTarget As Range, aWebQry As QueryTable, sht As Worksheet**** > > Set sht = ActiveSheet**** > > **** > > Application.ScreenUpdating = False**** > > With sht.UsedRange**** > > If .Rows.Count > 0 Then**** > > .Columns.Delete 'hapus hasil query sebelumnya**** > > End If**** > > End With**** > > **** > > Set rgTarget = sht.Range("$A$1")**** > > Set aWebQry = ActiveSheet.QueryTables.Add(Connection:= _**** > > "URL;" & ALAMAT_WEB, _**** > > Destination:=rgTarget)**** > > **** > > With aWebQry**** > > .Name = "KursPajakMingguan"**** > > .AdjustColumnWidth = False**** > > .WebSelectionType = xlSpecifiedTables**** > > .WebTables = "1"**** > > .WebFormatting = xlWebFormattingNone**** > > .Refresh BackgroundQuery:=False**** > > End With**** > > RapihkanTable sht**** > > Application.ScreenUpdating = True**** > > End Sub**** > > **** > > Private Sub RapihkanTable(sht As Worksheet)**** > > **** > > sht.Columns("A:I").Delete 'hapus kolom yang kosong**** > > sht.Rows("1:4").Delete ' hapus baris yg kosong**** > > sht.Range("A5").CurrentRegion.Columns.AutoFit**** > > **** > > 'rapihkan judul**** > > With sht.Range("A2:F4")**** > > .HorizontalAlignment = xlCenter**** > > .VerticalAlignment = xlCenter**** > > .WrapText = True**** > > .MergeCells = True**** > > End With**** > > **** > > Dim cn As Object**** > > For Each cn In sht.Parent.Connections 'menghapus connection yang ada** > ** > > cn.Delete**** > > Next**** > > **** > > End Sub**** > > '====end vba**** > > Pertanyaan:**** > > Bagaimana caranya agar yang diambil hanya table dan isinya saja? Sehingga > procedure RapihkanTable() tidak diperlukan.**** > > JIka prosedur **** > > **** > > **** > > **** > >
