Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Cập nhật dữ liệu Access từ dữ liệu nguồn trong Excel
#1
Xin chào mọi người.
Hằng ngày, hệ thống phần mềm công ty xuất ra dữ liệu bằng file excel theo mẫu và tên file cũng thay đổi theo ngày. Công việc của mình là tổng hợp các file này để import lại trong access để xử lý và chạy báo cáo nên rất mất thời gian. Nên rất mong mọi người chỉ giúp về code VBA để có thể truy xuất dữ liệu trong access từ file excel và vẫn giữ nguyên định dạng như file excel.
Ví dụ như các file đính kèm
Hàng ngày hệ thống chạy ra 2 file(Data Source_info và Detail_Source) theo mẫu đính kèm. Mình có 1 file Access(Data_Daily) để tổng hợp data từ 2 file source này.
Trong file Access mình có một form bao gồm 2 Button để get data từ 2 file excel. Mình muốn nhờ mọi người chỉ giúp đoạn code VBA mà thực hiện được cái yêu cầu như bên dưới.
Khi mình nhấn nút button Update_Information thì sẽ:
1. Xóa hết toàn bộ dữ liệu bảng(table) List_Information
2. Sẽ truy xuất vào file excel Data Source_info sau đó copy(Copy theo định dạng format của file excel) dữ liệu từ A7 đến cột AC(đến dòng cuối cùng) sau đó sẽ update dữ liệu vừa copy này vào bảng(table) List_Information
Tương tự khi mình nhấn nút Update_List_detail thì cũng sẽ thực hiện 2 thao tác tương tự ở trên với bảng List_Detail.
Rất mong mọi người giúp đỡ.
https://www.mediafire.com/file/h00220d2m...t.zip/file
Chữ ký của subasatran Xin chào, mình là subasatran, Tham gia http://thuthuataccess.com/forum từ ngày 18-12 -14.
Reply
Những người đã cảm ơn
#2
File  của bạn đây.

Link file: http://www.mediafire.com/file/4agyflloco...accdb/file

Code cho nút Import:

Mã PHP:
Private Sub cmdImport_Click()

   Dim sFilePath As String

   sFilePath 
Me.txtFilePath
   ImportDataFromRange sFilePath
Me.OpenArgs

   MsgBox 
"Completed import."
   DoCmd.Close acForm"frm_SelectFileDlg"

End Sub 

- Hàm Import

Mã PHP:
Function ImportDataFromRange(sFilePath As StringsImportTable As String)

   Dim db As DAO.Database
   Dim rs 
As DAO.Recordset
   Dim tbl 
As TableDeffld As Field
   Dim sSQL 
As String

  DoCmd
.Hourglass True

   sSQL 
"DELETE * FROM " sImportTable
   CurrentDb
.Execute sSQLdbFailOnError

   
'Excel variables'
   Dim oExcel As Object
   Dim oWkb 
As Object
   Dim oSheet 
As Object
   Dim oRange 
As Object
   Dim lastRow 
As Longfirstrow As Integer
   Dim r 
As IntegerAs IntegerAs Integer

   Set db 
CurrentDb
   Set rs 
db.OpenRecordset(sImportTabledbOpenDynaset)

   Set oExcel CreateObject("Excel.Application")

   Set oWkb oExcel.Workbooks.Open(sFilePath)
   Set oSheet oWkb.Sheets("Sheet1")
   lastRow oSheet.UsedRange.Row oSheet.UsedRange.Rows.Count

   Select 
Case Me.OpenArgs
   Case 
"List_Information"
       Set oRange oSheet.Range("A7:AC" lastRow)
       firstrow 7
   Case 
"List_Detail"
       Set oRange oSheet.Range("A4:M" lastRow)
       firstrow 4
   End Select
   Debug
.Print "So dong: " oRange.Rows.Count " | So cot: " oRange.Columns.Count

   For r 
firstrow To lastRow
       rs
.AddNew
       For c 
1 To oRange.Columns.Count
           rs
.Fields(1) = oSheet.Cells(rc)
       Next c
       rs
.Update
   Next r
   
   DoCmd
.Hourglass False
   
   oExcel
.Quit
   Set oExcel 
Nothing

   rs
.Close
   Set rs 
Nothing

End 
Function 
Chữ ký của ongke0711 If you BORN poor, it's not your mistake. But if you DIE poor, It's your mistake!
ღღღღღTài sản của ongke0711 (View All Items) ღღღღღ
Reply
Những người đã cảm ơn maidinhdan , NguyenDungAnh


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  Demo Import/Export Excel + Hàm Liệt tên ALL Access maidinhdan 73 11,553 03-11-18, 02:28 PM
Bài mới nhất: maidinhdan
  [Hỏi] Import nhiều file Excel vào Table Access vuthaiha90 32 2,551 27-08-18, 11:06 AM
Bài mới nhất: vuthaiha90
  Demo Access định dạng adp kết nối với SQL Server dangh5 5 466 08-08-18, 01:35 AM
Bài mới nhất: dangh5
  [Hỏi] Nhiều phần mềm Access dùng chung CSDL ?? vkaccess 10 1,280 05-08-18, 11:20 AM
Bài mới nhất: zebnguyen
  Export Table từ access sang 1 file word có sẵn! cong_agribankPT 55 27,965 02-08-18, 08:26 AM
Bài mới nhất: vuthaiha90

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ| PMA Nha Trang| Gỗ Acrylic Không Đường Line