Tùy chọn
tìm kiếm và update dữ liệu từ excel cho access
- tìm kiếm và update dữ liệu từ excel cho access
-
RE: tìm kiếm và update dữ liệu từ excel cho access
Xuân Thanh > 07-11-13, 04:49 PM
(07-11-13, 12:39 PM)connguoi123 Đã viết: Chào Bác Xuân Thành,
Em gửi kèm theo file. Em muốn tìm tên sản phẩm và update cột Ngày bán trong file excel vào field Datesale trong bảng TblSanpham của file Access.
http://upfile.vn/c90c55
Bác chỉ giáo em với. Tks you bác nhiều
1/ Trong tblSanPham của file Access, đặt trường SanPham là PrimariKey
2/ File Access và Excel đặt chung trong một Folder. Tên file, tên trường, tên sheet, tên cột giữ nguyên như của bạn
3/ Trong modul của Access, vào Tools/Reference duyệt tìm và chọn Microsof Excel 11 Object Libary. Chép đoạn code sau đây vào modul và chạy nó
Mã PHP:Option Compare Database
Option Explicit
Sub CopyExcelToAccess()
Dim Ex As New Excel.Application
Dim rs As Recordset
Dim FileEx As Workbook
Set FileEx = Ex.Workbooks.Open(CurrentProject.Path & "\reportSale.xls")
Set rs = CurrentDb.OpenRecordset("tblSanPham", dbOpenTable)
rs.Index = "PrimaryKey"
Dim Ws As Worksheet
Set Ws = FileEx.Worksheets("Sheet1")
Dim n As Integer, i As Integer
n = Ws.Range("B65000").End(xlUp).Row
For i = 2 To n
rs.Seek "=", Ws.Range("B" & i)
If Not rs.NoMatch Then
rs.Edit
rs!DateSale = Ws.Range("C" & i)
rs.Update
Else
rs.AddNew
rs!sanpham = Ws.Range("B" & i)
rs!DateSale = Ws.Range("C" & i)
rs.Update
End If
Next
rs.Close: FileEx.Close False: Set Ex = Nothing
End Sub
Thân mến -
RE: tìm kiếm và update dữ liệu từ excel cho access
connguoi123 > 10-01-14, 06:21 PM
(07-11-13, 12:39 PM)connguoi123 Đã viết: Chào Bác Xuân Thành,
Em gửi kèm theo file. Em muốn tìm tên sản phẩm và update cột Ngày bán trong file excel vào field Datesale trong bảng TblSanpham của file Access.
http://upfile.vn/c90c55
Bác chỉ giáo em với. Tks you bác nhiều
Em chào Bác Xuan Thanh, bác giúp em vụ này với ... Em làm mãi ko được . Tks -
RE: tìm kiếm và update dữ liệu từ excel cho access
connguoi123 > 14-01-14, 12:46 PM
(10-01-14, 06:21 PM)connguoi123 Đã viết:
(07-11-13, 12:39 PM)connguoi123 Đã viết: Chào Bác Xuân Thành,
Em gửi kèm theo file. Em muốn tìm tên sản phẩm và update cột Ngày bán trong file excel vào field Datesale trong bảng TblSanpham của file Access.
http://upfile.vn/c90c55
Bác chỉ giáo em với. Tks you bác nhiều
Em chào Bác Xuan Thanh, bác giúp em vụ này với ... Em làm mãi ko được . Tks
Hi Bác XuanThanh, em àm đúng như bác nói mà vẫn không được, bạn có thể demo cho file của em với. Tks -
RE: tìm kiếm và update dữ liệu từ excel cho access
Xuân Thanh > 14-01-14, 02:48 PM
Đường link bị lỗi, post lại nhé
Thân mến -
RE: tìm kiếm và update dữ liệu từ excel cho access
connguoi123 > 14-01-14, 06:29 PM
(14-01-14, 02:48 PM)Xuân Thanh Đã viết: Đường link bị lỗi, post lại nhé
Thân mến
Cám ơn Bác Xuân Thành quan tâm giúp đỡ, em gửi lại link đây, Bác xem giúp
http://speedy.sh/7pqDt/Sanpham.rar -
RE: tìm kiếm và update dữ liệu từ excel cho access
Xuân Thanh > 15-01-14, 05:19 PM
Up lên chỗ khác đi. Mất công cài đặt thêm "phần mềm vô ý thức"
Thân mến -
RE: tìm kiếm và update dữ liệu từ excel cho access
connguoi123 > 15-01-14, 07:10 PM
(15-01-14, 05:19 PM)Xuân Thanh Đã viết: Up lên chỗ khác đi. Mất công cài đặt thêm "phần mềm vô ý thức"
Thân mến
Bác Xuân Thành thử link này xem sao . Tks
https://www.mediafire.com/?qzja6tt11zwa1mn -
RE: tìm kiếm và update dữ liệu từ excel cho access
Xuân Thanh > 21-01-14, 02:10 PM
1/ Bạn không làm đúng theo yêu cầu ===> đọc lại hướng dẫn
2/ Muốn làm được thì ( theo file bạn post mới nhất trên mediafire
2.1/ Chọn Microsoft Office 11.0 Libary
2.2/ Trong file Excel, chèn thêm một cột trống phía trước, cột MaSP để ở cột B, cốt ngày bán để ở cột C cho khớp với code
2.2a/ Nếu không sửa file Ex thì sưa code, chổ nào có Range("B")...chuyển thành range("A")...và Range("C") chuyển thành Range("B") do bạn xóa cột A trong file cũ
Thử lại xem
Thân mến -
RE: tìm kiếm và update dữ liệu từ excel cho access
connguoi123 > 23-01-14, 09:46 AM
(21-01-14, 02:10 PM)Xuân Thanh Đã viết: 1/ Bạn không làm đúng theo yêu cầu ===> đọc lại hướng dẫn
2/ Muốn làm được thì ( theo file bạn post mới nhất trên mediafire
2.1/ Chọn Microsoft Office 11.0 Libary
2.2/ Trong file Excel, chèn thêm một cột trống phía trước, cột MaSP để ở cột B, cốt ngày bán để ở cột C cho khớp với code
2.2a/ Nếu không sửa file Ex thì sưa code, chổ nào có Range("B")...chuyển thành range("A")...và Range("C") chuyển thành Range("B") do bạn xóa cột A trong file cũ
Thử lại xem
Thân mến
Thank you Bác Xuân Thành, để em thử lại theo hướng dẫn của Bác xem sao. -
RE: tìm kiếm và update dữ liệu từ excel cho access
duyennguyen2008 > 23-01-14, 10:49 AM
Cảm ơn Bác Xuân Thanh nhé! đã được mở mang thêm tằm mắt thêm! Nhưng không biết sao mình chạy cứ bị báo lỗi : "Compile error:
User-defined type not defined"
Cả trên office 2003 và office 2010!
nên đến giờ chưa được thấy date trong tblsanpham được cập nhật!