Bạn hiện đang ngoại tuyến, hãy chờ internet để kết nối lại

Làm thế nào để lấy một bảng từ truy cập vào Excel sử dụng DAO

QUAN TRỌNG: Bài viết này được dịch bằng phần mềm dịch máy của Microsoft chứ không phải do con người dịch. Microsoft cung cấp các bài viết do con người dịch và cả các bài viết do máy dịch để bạn có thể truy cập vào tất cả các bài viết trong Cơ sở Kiến thức của chúng tôi bằng ngôn ngữ của bạn. Tuy nhiên, bài viết do máy dịch không phải lúc nào cũng hoàn hảo. Loại bài viết này có thể chứa các sai sót về từ vựng, cú pháp hoặc ngữ pháp, giống như một người nước ngoài có thể mắc sai sót khi nói ngôn ngữ của bạn. Microsoft không chịu trách nhiệm về bất kỳ sự thiếu chính xác, sai sót hoặc thiệt hại nào do việc dịch sai nội dung hoặc do hoạt động sử dụng của khách hàng gây ra. Microsoft cũng thường xuyên cập nhật phần mềm dịch máy này.

Nhấp chuột vào đây để xem bản tiếng Anh của bài viết này:146406
Bài viết này đã được lưu trữ. Bài viết được cung cấp "nguyên trạng" và sẽ không còn được cập nhật nữa.
TÓM TẮT
Trong các phiên bản của Microsoft Excel được liệt kê ở trên, bạn có thể sử dụng truy cập dữ liệuCác đối tượng (DAO) trong Visual Basic cho các ứng dụng để lấy một bảng từMicrosoft Access.

Để cung cấp một ví dụ về cách bạn có thể sử dụng DAO để lấy một bảng từMicrosoft Access, vĩ mô được mô tả trong bài viết này sử dụng Northwindcơ sở dữ liệu được vận chuyển với cả Microsoft Office Professional cho Windows95, phiên bản 7.0, và Microsoft văn phòng 97 Professional for Windows. Nếu bạnchọn tùy chọn mặc định khi bạn cài đặt Microsoft OfficeChuyên nghiệp cho Windows 95, phiên bản 7.0, cơ sở dữ liệu nằm ở:
   \MSOffice\Access\Samples\Northwind.mdb				
Nếu bạn chọn tùy chọn mặc định khi bạn cài đặt Microsoft Office97 Chuyên nghiệp đối với Windows, cơ sở dữ liệu nằm ở:
   \Program Files\Microsoft Office\Office\Samples\Northwind.mdb				
Nếu cơ sở dữ liệu Northwind nằm trong một cặp khác của bạnmáy tính, bạn sẽ cần phải chỉnh sửa mã được cung cấp dưới đây trước khi bạn chạynó.

Sử dụng DAO ở vĩ mô của bạn, bạn phải tham khảo đối tượng DAO MicrosoftThư viện hoặc bạn có thể nhận được báo lỗi "User-defined loại không xác định". Đểtham khảo này thư viện trong Microsoft Excel Phiên bản 7.0, kích hoạt một mô-đuntấm, Click vào tham khảo trên trình đơn công cụ, và kiểm tra "Microsoft DAO3,0 Đối tượng thư viện"tùy chọn. Để tham khảo này thư viện trong Microsoft ExcelPhiên bản 97, nhấp tham khảo vào trình đơn Tools trong Visual Basic Editorvà kiểm tra các "Microsoft DAO 3.5 đối tượng Library".
THÔNG TIN THÊM
Microsoft cung cấp lập trình ví dụ để minh hoạ chỉ, không có bảo hành hoặc thể hiện hay ngụ ý. Điều này bao gồm, nhưng không giới hạn, bảo đảm ngụ ý khả năng bán hàng hoặc cho một mục đích cụ thể. Bài viết này giả định rằng bạn đã quen thuộc với ngôn ngữ lập trình mà đang được chứng minh và với những công cụ được sử dụng để tạo ra và gỡ lỗi thủ tục. Microsoft hỗ trợ các kỹ sư có thể giúp giải thích các chức năng của một thủ tục cụ thể, nhưng họ sẽ không sửa đổi các ví dụ để cung cấp thêm chức năng hoặc xây dựng quy trình để đáp ứng các yêu cầu cụ thể của bạn. Để lấy một bảng từ Microsoft Access, hãy làm theo các bước sau:

  1. Thiết lập một đối tượng cơ sở dữ liệu.
  2. Thiết lập một đối tượng Recordset.
  3. Lấy các tiêu đề (nếu muốn).
  4. Truy xuất dữ liệu từ các bảng.
Sau khi dữ liệu được lấy ra, bạn nên đóng tất cả các đối tượng mà bạn đã mởbởi phát hành.Close lệnh.

Để lấy một bảng từ Microsoft Access lập trình, sử dụng cácTheo Visual Basic cho các ứng dụng mã:
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.CloseEnd Sub				
THAM KHẢO
Để biết thêm chi tiết về truy cập dữ liệu, nhấp vào Index tab MicrosoftExcel giúp, nhập văn bản sau đây
truy cập dữ liệu trong DAO
và sau đó bấm đúp chuột vào các văn bản đã chọn để đi đến các "truy cập ngoàiCơ sở dữ liệu với DAO"chủ đề.
OFF7 XL7 8,00 97 XL97 OFF97 XL

Cảnh báo: Bài viết này được dịch tự động

Thuộc tính

ID Bài viết: 146406 - Xem lại Lần cuối: 12/04/2015 14:09:27 - Bản sửa đổi: 2.0

Microsoft Excel 97 Standard Edition, Microsoft Excel 95 Standard Edition

  • kbnosurvey kbarchive kbdtacode kbhowto kbinterop kbprogramming kbmt KB146406 KbMtvi
Phản hồi