tự động cập nhật excel vào access

Liên hệ QC
H

hoabattu3387

Thành viên chính thức
Tham gia
11/9/08
Bài viết
91
Được thích
2
Mình có 1 file access lấy dữ liệu từ file excel vào bảng BVL để tạo ra 2 report BVL và VTB, file excel thay đổi theo ngày (cả nội dung lẫn tên file). Nhờ các bạn viết code giúp mình trên access để tự động lấy dữ liệu từ file excel.
Mình cảm ơn cả nhà!
 

File đính kèm

  • New folder.rar
    59.2 KB · Đọc: 14
Sắp xếp theo thời gian sắp xếp theo bầu chọn
hoabattu3387 đã viết:
Mình có 1 file access lấy dữ liệu từ file excel vào bảng BVL để tạo ra 2 report BVL và VTB, file excel thay đổi theo ngày (cả nội dung lẫn tên file). Nhờ các bạn viết code giúp mình trên access để tự động lấy dữ liệu từ file excel.
Mình cảm ơn cả nhà!
Nhấp chuột vào đây để mở rộng...
Bạn chỉnh code sau và chạy thử nhé

Mã: 
On Error Resume Next
DoCmd.DeleteObject acTable, "BVL"
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "BVL", "DuongDanDenFile", True, "DetailOfCreditTotalTransaction!A6:Z17"
 
Upvote 0
Hai Lúa Miền Tây đã viết:
Bạn chỉnh code sau và chạy thử nhé

Mã: 
On Error Resume Next
DoCmd.DeleteObject acTable, "BVL"
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "BVL", "DuongDanDenFile", True, "DetailOfCreditTotalTransaction!A6:Z17"
Nhấp chuột vào đây để mở rộng...
Anh ơi, lệnh DoCmd.DeleteObject sẽ bị xóa cả bảng "BVL", nên lệnh DoCmd.TransferSpreadsheet không tìm thấy bảng "BVL" để import ạ.
 
Upvote 0
hoabattu3387 đã viết:
Anh ơi, lệnh DoCmd.DeleteObject sẽ bị xóa cả bảng "BVL", nên lệnh DoCmd.TransferSpreadsheet không tìm thấy bảng "BVL" để import ạ.
Nhấp chuột vào đây để mở rộng...
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12Xml, "\\10.33.132.218\ktts\Doi soat\12. POS-BVL\THANG 09.17\28.09\28.09.xlsx", True, "DetailOfCreditTotalTransaction!A6:Z19"
e chạy riêng lệnh này vẫn báo lỗi ạ upload_2017-9-28_11-6-51.png
 
Upvote 0
hoabattu3387 đã viết:
Anh ơi, lệnh DoCmd.DeleteObject sẽ bị xóa cả bảng "BVL", nên lệnh DoCmd.TransferSpreadsheet không tìm thấy bảng "BVL" để import ạ.
Nhấp chuột vào đây để mở rộng...
Nó sẽ xóa bảng BVL cũ và thay thế bằng bảng BVL mới chứ làm gì có chuyện báo lỗi không tìm thấy bảng BVL để import? Có chăng là không tìm thấy BVL để xóa thôi, cho nên tôi mới có dòng On error resume next đó.
 
Upvote 0
Upvote 0
Mã: 
Sub importfile()
Dim tblefilename, tblename As String
tblefilename = Access.CurrentProject.Path
tblename = tblefilename & "\28.09.xlsx"
DoCmd.DeleteObject acTable, "BVL"
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12Xml, "BVL", tblename, True, "DetailOfCreditTotalTransaction!A6:Z19"
DoCmd.RunSavedImportExport "chi tiet gui bvl.xlsx"
End Sub
anh kiểm tra giúp em dòng code (DoCmd.RunSavedImportExport "chi tiet gui bvl.xlsx"), e muốn export bảng "chi tiet gui bvl" mà báo lỗi, e ko hiểu ạ.
 
Upvote 0
hoabattu3387 đã viết:
Mã: 
Sub importfile()
Dim tblefilename, tblename As String
tblefilename = Access.CurrentProject.Path
tblename = tblefilename & "\28.09.xlsx"
DoCmd.DeleteObject acTable, "BVL"
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12Xml, "BVL", tblename, True, "DetailOfCreditTotalTransaction!A6:Z19"
DoCmd.RunSavedImportExport "chi tiet gui bvl.xlsx"
End Sub
anh kiểm tra giúp em dòng code (DoCmd.RunSavedImportExport "chi tiet gui bvl.xlsx"), e muốn export bảng "chi tiet gui bvl" mà báo lỗi, e ko hiểu ạ.
Nhấp chuột vào đây để mở rộng...
Túm lại bạn đã đưa dữ liệu vào được chưa?
Câu lệnh
Mã: 
DoCmd.RunSavedImportExport "chi tiet gui bvl.xlsx"
Mục đích của bạn làm gì?
upload_2017-9-28_15-1-35.png
Bạn có làm động tác trên khi Import dữ liệu không?
 
Upvote 0
Upvote 0
Upvote 0
Hai Lúa Miền Tây đã viết:
Bạn thử như sau nhé.
Mã: 
DoCmd.OutputTo ObjectType:=acOutputQuery, ObjectName:="TenQueryCuaBan", OutputFormat:=acFormatXLSX
Nhấp chuột vào đây để mở rộng...
được rồi anh ạ, chỗ import vào bảng "BVL" ý anh, vì mỗi ngày 1 file dữ liệu khác nhau, nếu em muốn chọn đến dòng có dữ liệu (trừ dòng tổng cộng cuối cùng) thì có cách nào không anh, vì khi e tăng số dòng lên cao để đảm bảo dữ liệu luôn import vào hết thì lại bị dòng tổng cộng dính vào.
 
Upvote 0
hoabattu3387 đã viết:
được rồi anh ạ, chỗ import vào bảng "BVL" ý anh, vì mỗi ngày 1 file dữ liệu khác nhau, nếu em muốn chọn đến dòng có dữ liệu (trừ dòng tổng cộng cuối cùng) thì có cách nào không anh, vì khi e tăng số dòng lên cao để đảm bảo dữ liệu luôn import vào hết thì lại bị dòng tổng cộng dính vào.
Nhấp chuột vào đây để mở rộng...
Import bình thường thì phải chịu thôi bạn, muốn theo ý phải dùng ADO.

Bạn thử code sau nhé:
Mã: 
Dim cn As Object
Dim SourcePath As String
Set cn = CreateObject("ADODB.Connection")
SourcePath = "DuongDanDenFile\DetailOfCreditTotalTransaction_20170926_105939.xlsx"
Set cn = CurrentProject.Connection
cn.Execute ("insert into BVL SELECT * FROM [Excel 12.0;HDR=YES;DATABASE=" & SourcePath & "].[DetailOfCreditTotalTransaction$A6:Z100] Where MID is not null")
Code này sẽ ghi nối xuống dưới bảng BVL, Nếu muốn bỏ cái cũ thì dùng code xóa nó đi trước khi chạy code trên.
 
Upvote 0
Hai Lúa Miền Tây đã viết:
Dim cn As Object
Mã: 
Sub importfile()
On Error Resume Next
Dim tblefilename, tblename As String
tblefilename = Access.CurrentProject.Path
FName = "\29.09.XLSX"
tblename = tblefilename & FName
DoCmd.DeleteObject acTable, "BVL"
Dim cn As Object
Set cn = CreateObject("ADODB.Connection")
Set cn = CurrentProject.Connection
cn.Execute ("insert into BVL SELECT * FROM [Excel 12.0;HDR=YES;DATABASE=" & tblename & "].[DetailOfCreditTotalTransaction$A6:Z100] Where MID is not null")
DoCmd.OutputTo ObjectType:=acOutputQuery, ObjectName:="chi tiet gui bvl", OutputFormat:=acFormatXLSX, Outputfile:=tblefilename & "\chi tiet gui bvl.xlsx"
DoCmd.OutputTo ObjectType:=acOutputReport, ObjectName:="BVL", OutputFormat:=acFormatPDF, Outputfile:=tblefilename & "\BVL.pdf"
DoCmd.OutputTo ObjectType:=acOutputReport, ObjectName:="VTB", OutputFormat:=acFormatPDF, Outputfile:=tblefilename & "\VTB.pdf"
End Sub
SourcePath As String Set cn = CreateObject("ADODB.Connection") SourcePath = "DuongDanDenFile\DetailOfCreditTotalTransaction_20170926_105939.xlsx" Set cn = CurrentProject.Connection cn.Execute ("insert into BVL SELECT * FROM [Excel 12.0;HDR=YES;DATABASE=" & SourcePath & "].[DetailOfCreditTotalTransaction$A6:Z100] Where MID is not null")
Nhấp chuột vào đây để mở rộng...
e sửa thế này nhưng vẫn bị báo lỗi, và thoát luôn access ạ, a xem giúp em sai chỗ nào với: upload_2017-9-29_14-28-49.png
 
Upvote 0
Upvote 0
hoabattu3387 đã viết:
Mã: 
cn.Execute ("insert into BVL SELECT * FROM [Excel 12.0;HDR=YES;DATABASE=" & tblename & "].[DetailOfCreditTotalTransaction$A6:Z100] Where MID is not null")
đến dòng này thì báo lỗi và thoát luôn access ạ.
Nhấp chuột vào đây để mở rộng...
Bạn kiểm tra lại tiêu đề cột coi có đúng với tiêu đề cột trong bảng BVL không nhé. Mà trước khi báo lỗi hình trên nó có thông báo lỗi gì không bạn?
 
Upvote 0
Hai Lúa Miền Tây đã viết:
Bạn kiểm tra lại tiêu đề cột coi có đúng với tiêu đề cột trong bảng BVL không nhé. Mà trước khi báo lỗi hình trên nó có thông báo lỗi gì không bạn?
Nhấp chuột vào đây để mở rộng...
tiêu đề cột đúng a ạ, chạy qua dòng
Mã: 
Set cn = CurrentProject.Connection
thì báo lôĩ và thoát luôn access.
cái chỗ "insert in to BVL..." liệu nó có hiểu insert vào bảng BVL ko anh?
 
Upvote 0
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.
Web KT

Bài viết mới nhất

dovanha1994
Giúp e tìm nguyên nhân sai và hướng dẫn e đọc file này với ạ
    • Phẫn nộ
Trả lời
4
Đọc
105
SA_DQ
SA_DQ
CodyPham97
tạo biểu tượng thay thế nhấn đúp chuột
Trả lời
2
Đọc
56
CodyPham97
CodyPham97
20050911
File Excel lỗi ''The file could not be accessed. Try one of the following:.."
Trả lời
10
Đọc
484
20050911
20050911
N
Giúp sửa mã code
2
Trả lời
20
Đọc
416
Nguyễn Diêu Hiền
N
F
  • Question
Nhờ tư vấn cách tạo QR trong Excel
Trả lời
5
Đọc
468
Nguyễn Duy Tuân
Nguyễn Duy Tuân
GPE-Trợ Lý
MỪNG NGÀY NHÀ GIÁO VIỆT NAM 20/11/2024
    • Thích
    • Yêu thích
Trả lời
1
Đọc
78
SA_DQ
SA_DQ
Tuấn Bụng Bự
  • Question
Tìm Bộ 8 số xuất hiện nhiều nhất trong random( 1 - 80)
2
Trả lời
32
Đọc
849
VetMini
V
K
Nhờ mọi người hoàn thiện giúp công thức
Trả lời
4
Đọc
101
kiendt1973
K
P
Nhờ giúp đỡ hàm lọc dữ liệu theo tỉnh
Trả lời
10
Đọc
165
Parabol
P
H
Chúc mừng 20/11- ngày tôn vinh nhà giáo Việt Nam.
    • Thích
    • Yêu thích
Trả lời
0
Đọc
61
HUONGHCKT
H
N
Vẽ biểu đồ kết hợp nhiều yếu tố trong excel
Trả lời
7
Đọc
195
Ny Ny 2024
N
Nhật Anh 9x
  • Question
Tính tồn cuối kỳ luỹ kế cho nhiều mã
Trả lời
2
Đọc
100
Nhật Anh 9x
Nhật Anh 9x
H
Hỗ trợ lấy danh sách dữ liệu thỏa mãn điều kiện
Trả lời
1
Đọc
85
bebo021999
B
C
Chia sẻ: Kết quả xổ số Keno
    • Cười
    • Thích
2
Trả lời
20
Đọc
578
ptm0412
ptm0412
nguyen trung cuong
File chứa marco không mở được.
Trả lời
2
Đọc
78
nguyen trung cuong
nguyen trung cuong
huynhnhu1234
Tìm giá vé máy bay một chiều và khứ hồi
Trả lời
1
Đọc
114
hvnhpro
H
nobita994
Trừ số lượng dần theo dòng khi quét Sumif tổng có tên sản phẩm bị trùng.
Trả lời
2
Đọc
85
bebo021999
B
PhanTuHuong
Bàn về môn thể thao bóng bàn nào!
    • Thích
    • Yêu thích
    • Cười
2
Trả lời
37
Đọc
2K
cantl
C
S
  • Question
Xin file excel bảng giá quần áo, trang phục, phụ kiện
Trả lời
2
Đọc
79
VetMini
V
P
Tổng hợp dữ liệu từ các sheet theo chọn lọc
Trả lời
19
Đọc
389
VetMini
V
Xem thêm…

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Back
Top Bottom