Viết VBA kết nối đẩy dữ liệu từ Excel vào Access

[adamduong1978]

Mình muốn viết đoạn VBA để kết nối Excel 2007 vào Access 2007 để từ đó có thể cập nhật dữ liệu vào Access thông qua Excel.

Mình có tham khảo các đoạn code, nhưng chép những connection dùng ADO để kết nối với ACCESS 2007, nhưng thường báo lỗi về các thư viện và không nhận dạng format của Access 2007, các bạn hướng dẫn cho mình cách để mình có thể giải quyết được vấn đề này với, và các thư viện cần thiết nữa.

Đoạn code ma tôi đã viết như sau:

TenFile = ThisWorkbook.Path & "\Dulieuthunhap1.accdb"
MyConnect = "Provider=Microsoft.ACE.OLEDB.12.0;Password="""";User ID=Admin" & _
"Data Source=" & TenFile

Set MyRecordset = New ADODB.Recordset
MyRecordset.Open "KyKeToan", MyConnect, adOpenStatic, adLockOptimistic

Nhưng đoạn code luôn bị lỗi ở phần mở recordset, các bạn giúp mình với.

Cám ơn

 

[lehuucuongqt]

Xin cho mình hỏi kèm vô với bạn adamduong1978 luôn, mình lấy dữ liệu từ Excel qua Access bằng cách Import thành 1 bảng.. Giờ mình đưa dữ liệu từ bảng đó lên Form qua các TextBox để chế độ Preview thì nó giống Excel, mình muốn trong bảng dữ liệu khi in ra nếu số bé hơn 5 thì có màu khác như Excel có được không? Xin các bạn biết chỉ giúp mình. Trân trọng cám ơn..