Bagaimana untuk mengambil meja dari akses ke Excel menggunakan DAO

Terjemahan Artikel Terjemahan Artikel
ID Artikel: 146406 - Melihat produk di mana artikel ini berlaku.
Perbesar semua | Perkecil semua

RINGKASAN

Dalam versi Microsoft Excel yang tercantum di atas, Anda dapat menggunakan Data Access Objek (DAO) dalam Visual Basic untuk aplikasi untuk mengambil meja dari Microsoft Access.

Memberikan contoh bagaimana Anda dapat menggunakan DAO untuk mengambil meja dari Microsoft Access, makro yang dijelaskan dalam artikel ini menggunakan Northwind database yang dikirim dengan kedua Microsoft Office profesional untuk Windows 95, versi 7.0, dan Microsoft Office 97 profesional untuk Windows. Jika Anda dipilih pilihan default ketika Anda menginstal Microsoft Office Profesional untuk Windows 95, versi 7.0, database terletak di:
   \MSOffice\Access\Samples\Northwind.mdb
				
Jika Anda memilih pilihan default ketika Anda menginstal Microsoft Office 97 Profesional untuk Windows, database terletak di:
   \Program Files\Microsoft Office\Office\Samples\Northwind.mdb
				
Jika Northwind database terletak di folder yang berbeda pada Anda komputer, Anda akan perlu untuk mengedit kode yang disediakan di bawah ini sebelum Anda menjalankan itu.

Untuk menggunakan DAO di makro Anda, Anda harus referensi objek DAO Microsoft Perpustakaan atau Anda akan menerima galat "User-defined jenis tidak didefinisikan". Pada referensi Perpustakaan di Microsoft Excel versi 7.0, mengaktifkan modul lembaran, klik referensi pada menu alat, dan periksa "Microsoft DAO Perpustakaan objek 3.0"pilihan. Untuk referensi Perpustakaan ini dalam Microsoft Excel Versi 97, klik referensi pada menu alat di Editor Visual Basic dan memeriksa "Microsoft DAO 3.5 perpustakaan objek".

INFORMASI LEBIH LANJUT

Microsoft menyediakan contoh pemrograman hanya sebagai ilustrasi, tanpa jaminan apa pun baik tersurat maupun tersirat. Termasuk, namun tidak terbatas pada, jaminan tersirat mengenai kelayakan untuk diperdagangkan atau kesesuaian untuk keperluan tertentu. Artikel ini mengasumsikan bahwa Anda telah terbiasa dengan bahasa pemrograman yang ditunjukkan dan dengan alat yang digunakan untuk membuat dan mendebug prosedur. Teknisi dukungan Microsoft dapat membantu menjelaskan fungsionalitas prosedur tertentu, namun mereka tidak akan memodifikasi contoh untuk memberikan fungsionalitas tambahan atau menyusun prosedur untuk memenuhi persyaratan khusus Anda. Untuk mengambil meja dari Microsoft Access, ikuti langkah berikut:

  1. Membangun sebuah Database objek.
  2. Menetapkan objek Recordset.
  3. Mengambil header (jika diinginkan).
  4. Mengambil data dari tabel.
Setelah data yang diperoleh, Anda harus menutup semua objek yang Anda membuka dengan mengeluarkan.Dekat perintah.

Untuk mengambil meja dari Microsoft Access pemrograman, menggunakan Berikut Visual Basic untuk aplikasi kode:
Sub GetTable()
'This sub will retrieve all the data in the "Customers" table in
'Northwind

   'Declare variables
   Dim Db As Database
   Dim Rs As Recordset
   Dim Ws As Object
   Dim i As Integer
   Dim Path as String

   'This line will define the Object "Ws" as Sheets("Sheet1")
   'The purpose of this is to save typing Sheets("Sheet1")
   'over and over again
   Set Ws = Sheets("Sheet1")

   'Set the Path to the database. This line is useful because
   'if your database is in another location, you just need to change
   'it here and the Path Variable will be used throughout the code
   Path = "c:\msoffice\access\samples\northwind.mdb"

   'This set of code will activate Sheet1 and clear any existing data
   'After clearing the data it will select cell A1
   Ws.Activate
   Range("A1").Activate
   Selection.CurrentRegion.Select
   Selection.ClearContents
   Range("A1").Select

   'Set the Database, and RecordSet  This Table exists in the database
   Set Db = Workspaces(0).OpenDatabase(Path, ReadOnly:=True)

   'This will set the RecordSet to all records in the Customers table
   Set Rs = Db.OpenRecordset("Customers")

   'You could instead set the RecordSet to, for example, the records
   'where the Country Code is "UK", without quotes. To do this, replace
   'the line above: Set Rs = Db.OpenRecordset("Customers") with the
   'following:
   '
   'Set Rs = _
   'Db.OpenRecordset("SELECT * FROM Customers WHERE Country = 'UK';")


   'This loop will collect the field names and place them in the first
   'row starting at "A1"
   For i = 0 To Rs.Fields.Count - 1
      Ws.Cells(1, i + 1).Value = Rs.Fields(i).Name
   Next I

   'The next line simply formats the headers to bold font
   Ws.Range(Ws.Cells(1, 1), Ws.Cells(1, Rs.Fields.Count)).Font.Bold=True

   'The next line will get the data from the recordset and copy it
   'into the Worksheet (Sheet1).
   Ws.Range("A2").CopyFromRecordset Rs

   'This next code set will just select the data region and
   'auto-fit the columns
   Sheets("Sheet1").Select
   Range("A1").Select
   Selection.CurrentRegion.Select
   Selection.Columns.AutoFit
   Range("A1").Select

   Rs.Close
   Db.Close
End Sub
				

REFERENSI

Untuk informasi lebih lanjut tentang Data Access, klik tab indeks di Microsoft Excel bantuan, ketik teks berikut
mengakses data di DAO
kemudian klik dua kali teks yang dipilih untuk pergi ke "mengakses eksternal Database dengan DAO"topik.

Properti

ID Artikel: 146406 - Kajian Terakhir: 15 September 2011 - Revisi: 2.0
Berlaku bagi:
  • Microsoft Excel 97 Standard Edition
  • Microsoft Excel 95 Standard Edition
Kata kunci: 
kbdtacode kbhowto kbinterop kbprogramming kbmt KB146406 KbMtid
Penerjemahan Mesin
PENTING: Artikel ini diterjemahkan menggunakan perangkat lunak mesin penerjemah Microsoft dan bukan oleh seorang penerjemah. Microsoft menawarkan artikel yang diterjemahkan oleh seorang penerjemah maupun artikel yang diterjemahkan menggunakan mesin sehingga Anda akan memiliki akses ke seluruh artikel baru yang diterbitkan di Pangkalan Pengetahuan (Knowledge Base) dalam bahasa yang Anda gunakan. Namun, artikel yang diterjemahkan menggunakan mesin tidak selalu sempurna. Artikel tersebut mungkin memiliki kesalahan kosa kata, sintaksis, atau tata bahasa, hampir sama seperti orang asing yang berbicara dalam bahasa Anda. Microsoft tidak bertanggung jawab terhadap akurasi, kesalahan atau kerusakan yang disebabkan karena kesalahan penerjemahan konten atau penggunaannya oleh para pelanggan. Microsoft juga sering memperbarui perangkat lunak mesin penerjemah.
Klik disini untuk melihat versi Inggris dari artikel ini:146406
Sanggahan Konten KB yang Tidak Lagi Diperbarui
Artikel ini berisi tentang produk yang tidak lagi didukung oleh Microsoft. Oleh karena itu, artikel ini disajikan ?sebagaimana adanya? dan tidak akan diperbarui.

Berikan Masukan

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com