Kalo file dipindah ke computer lain atau folder lain
Untuk refresh, menggunakan tombol [Plan Versus Actual] di sheet PlanVsActua$
Karena sudah diset di syntax:
strFileXls = ActiveWorkbook.FullName
strPath = ActiveWorkbook.Path
sConn = _
"ODBC;DSN=Excel Files;DBQ=" & strFileXls & ";" & _
"DriverId=1046;" & _
"MaxBufferSize=2048;PageTimeout=5;"
-----Original Message-----
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
On Behalf Of jkssxls Sudarsono
Sent: Tuesday, February 14, 2012 10:23 AM
To: Belajar-Excel Yahoo Groups
Subject: RE: [belajar-excel] Pivot Table hasil query dari beberap table
dalam satu workbook dengan VBA
File Excel yang digunakan , mengacu pada Path yang lama , maka saat refresh
dapat menimbulkan error. Untuk itu sebaiknya dihapus.
Caranya :ketik di range Box ( Name Box ) : TblPlanVsActualmaka Tabel
TblPlanVsActual terpilih , lalu tekan [DEL] . akan muncul peringatan 'The
range you deleted is associated with query .... 'pilih ( [command] ) Yes.
catatan : jika memindahkan file excel yang berisi Query, maka query akan
mencari file excel pada folder sebelumnya.
From: jkss...@hotmail.com
Date: Tue, 14 Feb 2012 03:10:20 +0000
coba ganti :
Set oQt = shtTarget.QueryTables(1) 'hanya boleh satu query dalam satu sheet
If Err.Number = 0 Then 'query table sudah ada
oQt.CommandText = ssql
oQt.Refresh
Else
menjadi
If shtTarget.QueryTables.Count > 0 Then
Set oQt = shtTarget.QueryTables(1) 'hanya boleh satu query dalam
satu sheet
oQt.CommandText = ssql
oQt.Refresh
Else
From: zainul_u...@yahoo.com
Date: Tue, 14 Feb 2012 09:40:44 +0700
Be-Exceler,
Sesuai dengan subject di atas, proses yang aku kerjakan saat ini adalah:
1. membuat object QueryTable dari dengan memasukkan syntax SQL di propery
QueryTable.Commandtext
2. Hasil dari Query kemudian di buat pivot tablenya.
Pertanyaan:
1. Bagaimanakah caranya agar bisa dibuat object pivot table tanpa
menggunakan table bantuan berupa QueryTable (menghilangkan langkah nomer #1)
Saya sdh mencoba membuat PivotCache dengan cara di bawah, tetapi tidak
berhasil saat membuat PivotTable nya
Dim pvChace As PivotCache
Set pvChace = wbTarget.PivotCaches.Add(xlExternal)
With pvChace
.Connection = sConn
.CommandText = ssql
.CommandType = xlCmdSql
End With
2. Apakah memang di excel 2007 .PivotCaches.Add diganti menjadi
.PivotCaches.Create
Wassalam
-zainul-
------------------------------------
---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscr...@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-ow...@yahoogroups.com
keluar dari membership milis (UnSubscribe):
kirim mail kosong ke belajar-excel-unsubscr...@yahoogroups.com
---------------------------------------------------------------------Yahoo!
Groups Links
