Terima kasih Mr. Kid atas jawabannya. Saya coba dulu. Semoga Tuhan membalas kebaikan Mr. Kid. Wassalam.
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com] Sent: Tuesday, February 09, 2016 8:08 AM To: BeExcel Subject: Re: [belajar-excel] Code VBA import data query microsoft access ke Excel di workbook excel Hai Tio, coba buat object ado connection nya dulu. Lakukan connection baru buka recordset. dim con as adodb.connection set con=new adodb.connection con.open myconnect 'baru baris sisanya yang ada di script Anda. 2016-02-04 14:52 GMT+07:00 Tio Adi Bayu Adjie tio.ad...@ptssb.co.id<mailto:tio.ad...@ptssb.co.id> [belajar-excel] <belajar-excel@yahoogroups.com<mailto:belajar-excel@yahoogroups.com>>: Salam Excel Expert, Saya ada code untuk import query Microsoft access ke Excel tapi tidak jalan. Mohon pencerahannya, bagaimana solusinya ? Error yang muncul di .Parameters("[Harga <= Dari?]") = Range("B1").Value (yg saya kasih tanda warna hijau). Di computer saya 2003 tidak berhasil, tapi kalau di Access 2007 berhasil. Mohon pencerahannya Berikut yang saya dapat : Sub CopyRecordDariAccess2() 'Sebelum menjalankan procedure dibawah ini, pastikan library ini sudah ditambahkan 'di Tools -> References: '- Microsoft ActiveX Data Objects Library 'Versi sesuai dengan Office yg diinstall di PC nya 'Tahap 1: Deklarasi nama object dan variable yg digunakan Dim MyConnect As String Dim MyRecordset As ADODB.Recordset Dim MyQueryDef As DAO.QueryDef Dim MyDatabase As ADODB.Recordset 'Tahap 2: Deklarasi jenis koneksi database dan lokasinya MyConnect = "Provider=Microsoft.JET.OLEDB.4.0;" & _ "Data Source=" & ActiveWorkbook.Path & "\KolaborasiAccessExcel.mdb" 'Tahap 3: Tentukan nama table/query Set MyDatabase = New ADODB.Recordset MyRecordset.Open "[TestParameterQuery]", MyConnect, adOpenStatic, adLockReadOnly Set MyQueryDef = MyDatabase.QueryDefs("TestParameterQuery") 'Tahap 3: Definiskan Parameter yg digunakan With MyQueryDef .Parameters("[Harga <= Dari?]") = Range("B1").Value End With 'Langkah 4: Membuka query Set MyRecordset = MyQueryDef.OpenRecordset 'Tahap 4: Copy seluruh record ke Excel Sheets("Sheet1").Select ActiveSheet.Range("A2").CopyFromRecordset MyRecordset 'Tahap 5: Tambahkan judul kolom di Excel For i = 1 To MyRecordset.Fields.Count ActiveSheet.Cells(1, i).Value = MyRecordset.Fields(i - 1).Name Next i 'Tahap 6: Bersihkan memory di VBA MyRecordset.Close Set MyRecordset = Nothing Terima kasih. Tio_,_._,___
